From d16f72392367b09335daa4639793e24cad64b794 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Fri, 27 Aug 2004 21:58:53 +0000
Subject: [PATCH] X-SC-Record-Id and X-SC-Alarm fields

---
 perl/sctweb | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/perl/sctweb b/perl/sctweb
index 2cbedd6..da66f4b 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -207,7 +207,8 @@ sub do_mhc_schedule {
 	    map { s/\xa0//g; s/\n/-/g; $_} @$row;
 	    $row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
 	    $row->[0] =~ s/(.*) <BR>//g;
-	    my $id=generate_id($1);
+	    my $classid=$1;
+	    my $id=generate_id($classid);
 	    $row->[0] = capitalize($row->[0]);
 	    $row->[1] =~ s/([MTWRFS])/ $days{$1}/g;
 	    $row->[1] =~ s/^ //;
@@ -233,12 +234,14 @@ sub do_mhc_schedule {
 	    print "\n";
 	    print "# $id\n";
 	    print "X-SC-Subject: ", $row->[0], "\n";
+	    print "X-SC-Location: ", $row->[4], "\n";
 	    print "X-SC-Category: School\n";
 	    print "X-SC-Cond: ", $row->[1], "\n";
 	    print "X-SC-Time: ", $row->[2], "\n";
 	    print "X-SC-Duration: ", $row->[3], "\n";
-	    print("X-SC-Day: ", "@day", "\n") if(exists $day[0]);
-	    print "X-SC-Location: ", $row->[4], "\n";
+	    print("X-SC-Day: @day\n") if(exists $day[0]);
+	    print "X-SC-Alarm: 20 minutes\n";
+	    print "X-SC-Record-Id: <$classid\@from.sctweb>\n"
 	}
     }
 }
@@ -313,22 +316,25 @@ sub do_html_grades {
 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;//;
+	next unless s/^\&nbsp;|<pre>// || s/\&nbsp;/ /;
 	s/<\/?[Hh]\d>//g;
 	print "$_\n";
     }
 }
 
-if (defined($ARGV[0]) && $ARGV[0] eq "-g") {
+my $arg = "";
+$arg = shift if (defined($ARGV[0]) && $ARGV[0] =~ /^-\w$/);
+
+if ($arg eq "-g") {
     shift;
     do_html_grades;
-} elsif (defined($ARGV[0]) && $ARGV[0] eq "-s") {
+} elsif ($arg eq "-s") {
     shift;
     do_html_schedule;
-} elsif (defined($ARGV[0]) && $ARGV[0] eq "-m") {
+} elsif ($arg eq "-m") {
     shift;
     do_mhc_schedule(@ARGV);
-} elsif (defined($ARGV[0]) && $ARGV[0] eq "-t") {
+} elsif ($arg eq "-t") {
     do_transcripts;
 }
 
-- 
2.30.2