Added warning and skeleton do_xml_grades

diff --git a/perl/sct6 b/perl/sct6
index f8a539a16a051fbd6f28c1db21868beea97c82a1..01767610a3bdb6fcc7d4b009215f68bab869ad6e 100755 (executable)
--- a/perl/sct6
+++ b/perl/sct6
@@ -6,6 +6,9 @@
 # Create a ~/.sct6rc that has SID=yourssn and PIN=yourpin
 # You'll need to change the url below if you go anywhere but TAMUK.
 
 # Create a ~/.sct6rc that has SID=yourssn and PIN=yourpin
 # You'll need to change the url below if you go anywhere but TAMUK.
 

+# Update: This tool now only outputs in XML.  For other formats, convert
+# with schedproc
+

 use strict;
 use Date::Calc::Object qw(Day_of_Week Decode_Day_of_Week Decode_Month 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 strict;
 use Date::Calc::Object qw(Day_of_Week Decode_Day_of_Week Decode_Month 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);


@@ -380,67 +383,12 @@ sub do_html_schedule {
     print "</table>\n";
 }
 
     print "</table>\n";
 }
 

-sub do_html_grades {
-    my @readheaders = ("Section ID", "Course Title", "Grade", "Earned  Hours", "Quality  Hours", "Quality  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."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 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/^\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] =~ /:|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 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";
+sub do_xml_grades {
+    print "<grades>\n</grades>\n";

 }
 
 sub do_transcripts {
 }
 
 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|[Bb])>//g;
-       next if /<\/td>/;
-       print "$_\n";
-    }
+    print "Not implemented.\n";

 }
 
 if ($arg eq "-s" || $arg eq "-h") {
 }
 
 if ($arg eq "-s" || $arg eq "-h") {


@@ -452,10 +400,8 @@ if ($arg eq "-s" || $arg eq "-h") {
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
 } elsif ($arg eq "-g") {
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
 } elsif ($arg eq "-g") {

-    die "Grade support currently broken.\n";
-    do_html_grades(@ARGV);
+    do_xml_grades(@ARGV);

 } elsif ($arg eq "-t") {
 } elsif ($arg eq "-t") {

-    die "Transcript support currently broken.\n";

     do_transcripts;
 } elsif ($arg eq "-x" || 1) {
     do_xml_schedule(@ARGV);
     do_transcripts;
 } elsif ($arg eq "-x" || 1) {
     do_xml_schedule(@ARGV);