X-Git-Url: http://git.tpope.net/?a=blobdiff_plain;f=perl%2Fsctweb;h=fc96328f3e79256617dbdbd1cb8e04a5e0e28675;hb=62d1a430c533c078983e3e94889f5bd353d8b2ea;hp=9aef892403e2d7d2290ea829cff15516970944a9;hpb=36b147d74705c795fb884507c3564477eb31e2bb;p=tpope-extra.git

diff --git a/perl/sctweb b/perl/sctweb
index 9aef892..fc96328 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -13,6 +13,8 @@ use HTML::TableExtract;
 use Date::Calc::Object qw(Day_of_Week Decode_Day_of_Week Week_of_Year Monday_of_Week Day_of_Week_Abbreviation Delta_Days Add_Delta_Days Nth_Weekday_of_Month_Year Gmtime Mktime);
 use Date::Calendar::Profiles qw($Profiles);
 use Date::Calendar::Year;
+use IO::File;
+use XML::Writer;
 use vars qw($ua %opts %faculty);
 
 my ($response);
@@ -61,7 +63,7 @@ sub US_Labor # First Monday after the first Sunday in September
 }
 
 my $config = $ENV{HOME} . "/.sctwebrc";
-if ($ARGV[0] eq '-f') {
+if ($ARGV[0] eq '-F') {
     shift;
     $config = shift;
 }
@@ -91,7 +93,7 @@ $response = $ua->post("$url&tserve_trans_config=astulog.cfg", { tserve_tip_write
 
 $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=" . ("regterm.cfg"||"rgrdterm.cfg")); # Valid terms
 die $response->status_line unless $response->is_success;
-my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
+my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content)); # "
 if(@terms) {
     $opts{school} = 'accd';
 } else {
@@ -181,12 +183,14 @@ sub off_for_exams {
 	} elsif($time =~ /$ending/) {
 	    return $lastday-5;
 	}
+    } elsif($days eq "5") {
+	return $lastday-2;
     }
     return wantarray ? () : "";
 }
 
 sub capitalize {
-    local $_ = shift;
+    local $_ = shift || "";
     s/ +$//;
     s/\b([A-Z])([A-Z]*)\b/$1\L$2/g;
     s/\b(I)(i*)\b/$1\U$2/g;
@@ -230,7 +234,7 @@ sub get_schedule_terms {
     } elsif ($localtime[4]<10) { # through Oct 31
 	@sterms=((1900+$localtime[5]).$a[0]);
     } else {
-	@sterms=((1900+$localtime[5])."1",(1901+$localtime[5])."2");
+	@sterms=((1900+$localtime[5]).$a[0],(1901+$localtime[5]).$a[1]);
     }
     return @sterms;
 }
@@ -273,18 +277,18 @@ sub get_schedule {
 	    push @schedule, {
 		id => $classid,
 		title => $row->[0],
-		session => $row->[1],
+		#session => $row->[1],
 		instructor => $row->[2],
 		credits => $row->[3],
-		callnumber => $row->[4],
-		gradetype => $row->[5],
+		crn => $row->[4],
+		#gradetype => $row->[5],
 		days => $row->[6],
-		'time' => $row->[7],
+		#'time' => $row->[7],
 		begin => $begin,
 		end => $end || undef,
 		duration => $row->[8],
 		location => $row->[9],
-		message => $row->[10],
+		#message => $row->[10],
 	    };
 	}
     }
@@ -318,18 +322,18 @@ sub get_schedule {
 	    push @schedule, {
 		id => $classid,
 		title => $row->[0],
-		session => $session,
+		#session => $session,
 		instructor => $row->[3],
 		credits => $row->[4],
-		callnumber => $row->[5],
-		gradetype => $row->[6],
+		crn => $row->[5],
+		#gradetype => $row->[6],
 		days => $days,
-		'time' => $times,
+		#'time' => $times,
 		begin => $begin,
 		end => $end || undef,
 		duration => $row->[2],
 		location => $row->[1],
-		message => $row->[7],
+		#message => $row->[7],
 	    };
 	}
     }
@@ -342,7 +346,7 @@ sub get_faculty_email {
 	open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
 	while($_ = <INS>) {
 	    chomp;
-	    m/"([^"]*)",([^,]*),([^,]*)/;
+	    m/"([^"]*)",([^,]*),([^,]*)/; # "
 	    ($name, $email, $school) = ($1, $2, $3);
 	    $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
 	    $name =~ s/ [A-Z]\.//g;
@@ -525,18 +529,46 @@ sub do_vcalendar_schedule {
     print "END:VCALENDAR\r\n";
 }
 
+sub do_xml_schedule {
+    my $file = shift if (defined $_[0] and $_[0] !~ /^\d/);
+    my ($output, $writer);
+    if($file) {
+	$output = new IO::File(">$file");
+	$writer = new XML::Writer(OUTPUT => $output, DATA_MODE => 1);
+    } else {
+	$writer = new XML::Writer(DATA_MODE => 1);
+    }
+    my @schedule = get_schedule(@_);
+    $writer->startTag("schedule");
+    foreach my $class (@schedule) {
+	$writer->startTag("class");
+	foreach my $key (sort keys %$class) {
+	    $writer->dataElement($key, $class->{$key});
+	}
+	$writer->endTag("class");
+    }
+    $writer->endTag("schedule");
+    $writer->end();
+    close $output if $file;
+}
+
 sub do_html_schedule {
     my @showheaders = ("Section ID/Title", "Instructor", "Days", "Time", "Duration", "Location");
+    my $shade = "dark";
     my @schedule = get_schedule(@_);
-    print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
+    print '<table id="schedule" cellpadding="3" cellspacing="0">'."\n<tr><th>";
     print join("</th><th>",@showheaders);
     print "</th></tr>\n";
 	foreach my $row (@schedule) {
 	    map { s/\n/<br \/>/g; $_} %$row;
-	    $row->{'time'} =~ s/-/-<wbr \/>/;
+	    #$row->{'time'} =~ s/-/-<wbr \/>/;
+	    $row->{'duration'} =~ s/-/<br \/>/;
 	    $row->{'duration'} =~ s/\d\d(\d\d)(\d\d)(\d\d)/$2-$3-$1/g;
-	    print '<tr>';
-	    print "<td>" . $row->{'id'} . "<br />" . $row->{'title'} . "</td>";
+	    print '<tr class="'.$shade.'">';
+	    $shade = ($shade eq "dark"?"light":"dark");
+	    print '<td class="idtitle">';
+	    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/;
 	    my $email = get_faculty_email($instructor);
@@ -547,7 +579,7 @@ sub do_html_schedule {
 		print "<td>" . $row->{'instructor'} . "</td>";
 	    #}
 	    print "<td>" . $row->{'days'} . "</td>";
-	    print "<td>" . $row->{'time'} . "</td>";
+	    print "<td>" . $row->{'begin'}."-<wbr />".$row->{'end'} . "</td>";
 	    print "<td>" . $row->{'duration'} . "</td>";
 	    print "<td>" . $row->{'location'} . "</td>";
 	    print "</tr>\n";
@@ -557,38 +589,53 @@ sub do_html_schedule {
 
 sub do_html_grades {
     my @readheaders = ("Section ID", "Course Title", "Grade", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
-    my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points", "GPA");
+    @readheaders = ("Section", "Course Title", "FinalGrade", "Earned Hours", "Quality Hours", "Quality Points", "GPA") if($opts{'school'} eq 'tamuk');
+    my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br />Hours", "Quality<br />Hours", "Quality<br />Points");
     my ($row, $lastrow);
+    my $shade = "dark";
     my $te = new HTML::TableExtract( headers => [ @readheaders ] );
     my $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=rgrdterm.cfg"); # Valid grading terms
     die $response->status_line unless $response->is_success;
     #my @terms = reverse grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
     my @terms = ();
     my $year = Date::Calc->localtime->year;
-    for(my $y=$year-4;$y<=$year;$y++) { push @terms, ($y.2,$y.3,$y.4,$y.1); }
+    for(my $y=$year-4;$y<=$year;$y++) { push @terms, ($y.2,$y."F",$y.3,$y.4,$y.1,$y."S"); }
     foreach(@_ ? @_ : @terms) {
 	$response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=rgrades.cfg&Term=".($_) );
 	die $response->status_line unless $response->is_success;
 	$te->parse($response->content);
     }
-    print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
-    print join("</th><th>",@showheaders);
+    print '<table id="grades" cellpadding="3" cellspacing="0">'."\n<tr>";
+    print '<th align="left" class="sectionid">', $showheaders[0];
+    print '</th><th align="left" class="coursetitle">', $showheaders[1];
+    print '</th><th align="center" class="grade">';
+    print join('</th><th align="center" class="right-number">',@showheaders[2 .. 5]);
     print "</th></tr>\n";
     foreach my $ts ($te->table_states) {
 	foreach my $row ($ts->rows) {
-	    map { s/\xa0//g; s/\n/<br \/>/g; $_} @$row;
+	    map { s/^\s+//; s/\xa0|\r//g; s/\n/<br \/>/g; $_} @$row;
 	    $row->[1] = capitalize($row->[1]);
+	    $row->[1] =~ s/&/&amp;/g;
+	    $row->[0] =~ s/Cumulative through/Cumulative: through/;
+	    $row->[0] =~ s/Cumulative:(.*) (\d{4}) (.*)/Cumulative:$1 $3 $2/;
 	    $lastrow=$row;
-	    next if $row->[0] =~ /:/;
-	    print '<tr><td>';
-	    print join('</td><td>', @$row);
+	    next if $row->[0] =~ /:|Current Term/;
+	    print '<tr class="'.$shade.'">';
+	    $shade = ($shade eq "dark"?"light":"dark");
+	    print '<td align="left" class="sectionid">', $$row[0], '</td>';
+	    print '<td align="left" class="coursetitle">', $$row[1], '</td>';
+	    print '<td align="center" class="grade">';
+	    #print join('</td><td>', @$row[0 .. 1]);
+	    print join('</td><td align="right" class="right-number">', @$row[2 .. 5]);
 	    print "</td></tr>\n";
 	}
     }
-    print '<tr><td colspan="2">', capitalize($lastrow->[0]);
-    shift @$lastrow; shift @$lastrow;
-    print "</td><td>";
-    print join('</td><td>', @$lastrow);
+    print '<tr class="cumulative '.$shade.'"><td id="cumulative" colspan="2">', capitalize($lastrow->[0]);
+    #shift @$lastrow; shift @$lastrow;
+    print '</td><td align="center" id="gpa" class="grade">';
+    print $$lastrow[6];
+    print '</td><td align="right" class="right-number">';
+    print join('</td><td align="right" class="right-number">', @$lastrow[3 .. 5]);
     print "</td></tr>\n";
     print "</table>\n";
 }
@@ -615,14 +662,13 @@ sub do_transcripts {
     $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN&tserve_trans_config=rtranscr.cfg&CareerReqNum=1");
     foreach (split /\n/, $response->content) {
 	next unless s/^\&nbsp;|<pre>// || s/\&nbsp;/ /;
-	s/<\/?[Hh]\d>//g;
+	s/<\/?([Hh]\d|[Bb])>//g;
+	next if /<\/td>/;
 	print "$_\n";
     }
 }
 
-if ($arg eq "-g") {
-    do_html_grades(@ARGV);
-} elsif ($arg eq "-s") {
+if ($arg eq "-s" || $arg eq "-h") {
     do_html_schedule(@ARGV);
 } elsif ($arg eq "-m") {
     do_mhc_schedule(@ARGV);
@@ -630,10 +676,14 @@ if ($arg eq "-g") {
     do_csv_schedule(@ARGV);
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
+} elsif ($arg eq "-g") {
+    do_html_grades(@ARGV);
 } elsif ($arg eq "-t") {
     do_transcripts;
 } elsif ($arg eq "-f") {
     do_faculty;
+} elsif ($arg eq "-x" || 1) {
+    do_xml_schedule(@ARGV);
 }
 
 $ua->get("$url&tserve_trans_config=alogout.cfg"); # Logout