Stripped out non-XML formats in preparation for new schedproc script

[tpope-extra.git] / perl / sct6

diff --git a/perl/sct6 b/perl/sct6
index dc5aad2c2827c82465db6f47e2b3fd6025277c18..ffb1cbbc7031f977070430a865652f5ac98c8603 100755 (executable)
--- a/perl/sct6
+++ b/perl/sct6
@@ -188,8 +188,7 @@ sub capitalize {
     s/\bUs\b/US/g;
     s/ (And|For|Of|Or|The|To|With) / \l$1 /g;
     s/\b(Mc)([a-z])/$1\u$2/g;
-    s/\bTba\b/TBA/g;
-    s/\b(Tcp\/Ip|Pc)\b/\U$&/g;
+    s/\b(Tcp\/Ip|Pc|Tba)\b/\U$&/g;
     s/\bThru\b/Through/g;
     s/\bAcct\b/Accounting/g;
     s/\bAmer\b/American/g;
@@ -204,6 +203,7 @@ sub capitalize {
     s/\bLit\b/Literature/g;
     s/\bPrin\b/Principles/g;
     s/\bBus\b/Business/g;
+    s/\bSyst\b/Sys/g;
     return $_;
 }
 
@@ -276,7 +276,7 @@ sub get_schedule {
            $row->[3] =~ s/\n/ /g;
            push @schedule, {
                id => $classid,
-               title => $title,
+               title => capitalize($title),
                instructor => $row->[6],
                days => $row->[2],
                #'time' => $row->[1],
@@ -298,7 +298,7 @@ sub get_faculty_email {
            chomp;
            m/"([^"]*)",([^,]*),([^,]*)/; # "
            ($name, $email, $school) = ($1, $2, $3);
-           $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
+           #$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
            $name =~ s/ [A-Z]\.//g;
            $name = lc $name;
            $name =~ s/\W//g;
@@ -364,7 +364,7 @@ sub do_mhc_schedule {
        $current .= "X-SC-Alarm: 15 minutes\n";
        $current .= "X-SC-Record-Id: <".$row->{'id'}."\@from.sctweb>\n";
        if(defined($file) && (-d $file)) {
-           $row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
+           #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
            my $email = get_faculty_email $row->{'instructor'};
            $row->{'instructor'} = '"' . $row->{'instructor'} . '" <'. ($email || ($1 || "unknown") . "\@from.sctweb") . ">";
            $row->{'duration'} =~ /^(\d\d\d\d)(\d\d)(\d\d)-\d{8}$/;
@@ -416,7 +416,7 @@ sub do_csv_schedule {
        my $id=generate_id($row->{'id'});
        $row->{'days'} =~ s/([MTWRFS])/ $days{$1}/g;
        $row->{'days'} =~ s/^ //;
-       $row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
+       #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
        my $next = next_class(%$row);
        $current = "";
        #print "# $id\n";
@@ -439,7 +439,7 @@ sub do_vcalendar_schedule {
     print "BEGIN:VCALENDAR\r\nVERSION:1.0\r\n";
     foreach my $row (@schedule) {
        map { s/\n/-/g; $_} %$row;
-       $row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
+       #$row->{'instructor'} =~ s/^([^,]*), ([^,]*)/$2 $1/;
        $row->{'days'} =~ s/([MTWRFS])/ $days{$1}/g;
        $row->{'days'} =~ s/^ //;
        #$row->{'duration'} =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
@@ -511,8 +511,7 @@ sub do_html_schedule {
     print "</th></tr>\n";
        foreach my $row (@schedule) {
            map { s/\n/<br \/>/g; $_} %$row;
-           $row->{'time'} =~ s/-/-<wbr \/>/;
-           $row->{'duration'} =~ s/-/\n/g;
+           $row->{'duration'} =~ s/-/<br \/>/g;
            $row->{'duration'} =~ s/\d\d(\d\d)(\d\d)(\d\d)/$2-$3-$1/g;
            print '<tr class="'.$shade.'">';
            $shade = ($shade eq "dark"?"light":"dark");
@@ -520,7 +519,7 @@ sub do_html_schedule {
            print '<span class="sectionid">' .$row->{'id'}. '</span><br />';
            print '<span class="coursetitle">' .$row->{'title'}. '</span></td>';
            my $instructor = $row->{'instructor'};
-           $instructor =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
+           #$instructor =~ s/^([^,]*), ([^,]*)(.*)/$2 $1$3/;
            my $email = get_faculty_email($instructor);
            #if($email) {
                #print '<td><a href="mailto:' . $email . '">'
@@ -600,7 +599,7 @@ sub do_transcripts {
     }
 }
 
-if ($arg eq "-s") {
+if ($arg eq "-s" || $arg eq "-h") {
     do_html_schedule(@ARGV);
 } elsif ($arg eq "-m") {
     do_mhc_schedule(@ARGV);
@@ -608,14 +607,14 @@ if ($arg eq "-s") {
     do_csv_schedule(@ARGV);
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
-} elsif ($arg eq "-x") {
-    do_xml_schedule(@ARGV);
 } elsif ($arg eq "-g") {
     die "Grade support currently broken.\n";
     do_html_grades(@ARGV);
 } elsif ($arg eq "-t") {
     die "Transcript support currently broken.\n";
     do_transcripts;
+} elsif ($arg eq "-x" || 1) {
+    do_xml_schedule(@ARGV);
 }
 
 $ua->get("${url}twbkwbis.P_Logout"); # Logout