From 34b81bfb1d78d143dceae44563e16818c3a122a7 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Tue, 10 Aug 2004 18:03:50 +0000
Subject: [PATCH] Very minimal documentation

---
 perl/sctweb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/perl/sctweb b/perl/sctweb
index af6bdc6..7fe412b 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -2,6 +2,10 @@
 # $Id$
 # -*- perl -*- vim: ft=perl sw=4 sts=4
 
+# Brief usage instructions:
+# Create a ~/.sctwebrc that has SID=yourssn and PIN=yourpin
+# You'll need to change the url below if you go anywhere but Northwest Vista.
+
 use strict;
 use LWP::UserAgent;
 use HTML::TableExtract;
@@ -33,7 +37,7 @@ die $response->status_line unless $response->is_success;
 my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
 die "Site down. Try again later.\n" unless (@terms);
 
-sub do_schedule {
+sub do_html_schedule {
     my @readheaders = ("Section ID/Title", "Instructor", "Days", "Time", "Start/EndDates", "Site/Building/Room");
     my @showheaders = ("Section ID/Title", "Instructor", "Days", "Time", "Start/End\nDates", "Location");
     my $te = new HTML::TableExtract( headers => [ @readheaders ] );
@@ -75,7 +79,7 @@ sub do_schedule {
     print "</table>\n";
 }
 
-sub do_grades {
+sub do_html_grades {
     my @readheaders = ("Section ID", "Course Title", "Grade", "Attempted  Hours", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
     my @showheaders = ("Section ID", "Course Title", "Grade", "Attempted<br>Hours", "Earned<br>Hours", "Quality<br>Hours", "Quality<br>Points", "GPA");
     my ($row, $lastrow);
@@ -112,9 +116,9 @@ sub do_grades {
 
 if(defined($ARGV[0]) && $ARGV[0] eq "-g") {
     shift;
-    do_grades;
+    do_html_grades;
 } else {
-    do_schedule;
+    do_html_schedule;
 }
 
 $ua->get("$url&tserve_trans_config=alogout.cfg"); # Logout
-- 
2.30.2