From: Tim Pope <code@tpope.net>
Date: Mon, 18 Oct 2004 19:36:40 +0000 (+0000)
Subject: Fixed for changes to server side implementation
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=5006e21be08831527203ee4777de1c3d29b2abb2

Fixed for changes to server side implementation
---

diff --git a/perl/sctweb b/perl/sctweb
index aa91c49..e9d76b9 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -178,7 +178,7 @@ sub get_schedule {
 	foreach my $row ($ts->rows) {
 	    map { s/\xa0//g; $_} @$row;
 	    $row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
-	    $row->[0] =~ s/(.*) <BR>(.*)/capitalize($2)/eg;
+	    $row->[0] =~ s/(.*) ?<[Bb][Rr][^>]*>(.*)/capitalize($2)/eg;
 	    $classid=$1;
 	    $row->[2] = capitalize($row->[2]);
 	    $row->[2] =~ s/([A-Z]r?)$/$1./;
@@ -263,7 +263,7 @@ sub do_mhc_schedule {
 	foreach (@mhc) {
 	    $_ =~ s/X-SC-Subject: ([^\n]*)/X-SC-Subject: $1\nSubject: $1/;
 	    $_ =~ s/X-SC-Category: ([^\n]*)/X-SC-Category: $1\nFrom: $1/;
-	    $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " 2037 12:00:00 +0000"/e;
+	    $_ =~ s/X-SC-Duration: (\d\d\d\d)(\d\d)(\d\d)-/"X-SC-Duration: $1$2$3-\nDate: $3 " . $mon[$2-1] . " $1 12:00:00 +0000"/e;
 	    push @mhc2, $_;
 	}
 	@mhc = @mhc2;