projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e1b7795
)
Fixed for changes to server side implementation
author
Tim Pope
<code@tpope.net>
Mon, 18 Oct 2004 19:36:40 +0000
(19:36 +0000)
committer
Tim Pope
<code@tpope.net>
Mon, 18 Oct 2004 19:36:40 +0000
(19:36 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index aa91c493a1a62e5c084eb3b3964c3d71019424db..e9d76b994001765b988cc0baed7c69b90b2d5e8a 100755
(executable)
--- 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;
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./;
$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/;
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;
push @mhc2, $_;
}
@mhc = @mhc2;