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);
$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 {
}
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;
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],
};
}
}
$row->[2] =~ s/(.*\S)\s*//;
$session = $1;
$row->[2] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
- $row->[2] =~ s/ *to */\n/g;
+ $row->[2] =~ s/ *to */-/g;
$row->[3] = capitalize($row->[3]);
$row->[3] =~ s/([A-Z]r?)$/$1./;
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],
};
}
}
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;
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);
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";
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.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/&/&/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[0 .. 5]);
+ 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]);
+ print '<tr class="cumulative '.$shade.'"><td id="cumulative" colspan="2">', capitalize($lastrow->[0]);
#shift @$lastrow; shift @$lastrow;
- print "</td><td>";
+ print '</td><td align="center" id="gpa" class="grade">';
print $$lastrow[6];
- print "</td><td>";
- print join('</td><td>', @$lastrow[3 .. 5]);
+ 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";
}
}
}
-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);
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