Object Oriented Programming

Programming Object Oriented Programming

I can't get syntax highlight to work in the wiki bahhh

please see http://iam.colum.edu/oop

Syntax Highlighting Test

<java> /*

• Algernon - a rule-based inference engine in Java.
• http://algernon-j.sourceforge.net/
• This example shows how to open a Protege knowledge base
• in Java and use Algernon to query the KB.
• To run it, be sure to change the path in NEWSPAPER_PROJECT
• to match the correct project on your system.
• Micheal Hewett
• 05 May 2004
• hewett@cs.stanford.edu
• /

package org.algernon.test;

import java.util.*; </java>

<cpp> /*

• Algernon - a rule-based inference engine in Java.
• http://algernon-j.sourceforge.net/
• This example shows how to open a Protege knowledge base
• in Java and use Algernon to query the KB.
• To run it, be sure to change the path in NEWSPAPER_PROJECT
• to match the correct project on your system.
• Micheal Hewett
• 05 May 2004
• hewett@cs.stanford.edu
• /

package org.algernon.test;

import java.util.*; </cpp>

<csharp> /*

• Algernon - a rule-based inference engine in Java.
• http://algernon-j.sourceforge.net/
• This example shows how to open a Protege knowledge base
• in Java and use Algernon to query the KB.
• To run it, be sure to change the path in NEWSPAPER_PROJECT
• to match the correct project on your system.
• Micheal Hewett
• 05 May 2004
• hewett@cs.stanford.edu
• /

package org.algernon.test;

import java.util.*; </csharp>

Perl

<perl>

1. !/usr/local/bin/perl5.8.2
2. envia un correo a account_for_backups@gmail.com como usuario wickle con el backup de las
3. ultimas base de datos de wickle y con el label Backup
4. Usa Mail::Webmail::Gmail en #http://search.cpan.org/dist/Mail-Webmail-Gmail/lib/Mail/Webmail/Gmail.pm
5. Syntax ./send_gmail.pl file_to_backup.tar.gz

use Mail::Webmail::Gmail;

my $backup_label="Backups"; my $file_to_backup=$ARGV[0]; my $mail_to_backup="account_for_backups@gmail.com"; my $now = localtime time; print "It is now $now.\nfile to backup: $file_to_backup\n"; my ( $gmail ) = Mail::Webmail::Gmail->new(

           username => 'mygmailaccount', password => 'mypassword', );
   my $msgid = $gmail->send_message( to => 'account_for_backups@gmail.com', subject => 'Backup bases de datos '. $now, msgbody => 'Backup del dia '.$now. ' realizado', file0 => [$file_to_backup] );
   print "Msgid: $msgid\n";
   if ( $msgid ) {
       if ( $gmail->error() ) {
           print $gmail->error_msg();
       } else {
               ### Add this label to our new message ###
               $gmail->edit_labels( label => $backup_label, action => 'add', 'msgid' => $msgid );
               if ( $gmail->error() ) {
                   print $gmail->error_msg();
               } else {
                   print "Added label: $backup_label to message $msgid\n";
               }
       }
   }

</perl>