}
my $config = $ENV{HOME} . "/.sctwebrc";
-if ($ARGV[0] eq '-f') {
+if ($ARGV[0] eq '-F') {
shift;
$config = shift;
}
} elsif($time =~ /$ending/) {
return $lastday-5;
}
+ } elsif($days eq "5") {
+ return $lastday-2;
}
return wantarray ? () : "";
}
} elsif ($localtime[4]<10) { # through Oct 31
@sterms=((1900+$localtime[5]).$a[0]);
} else {
- @sterms=((1900+$localtime[5])."1",(1901+$localtime[5])."2");
+ @sterms=((1900+$localtime[5]).$a[0],(1901+$localtime[5]).$a[1]);
}
return @sterms;
}
$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/^\ |<pre>// || s/\ / /;
- s/<\/?[Hh]\d>//g;
+ s/<\/?([Hh]\d|[Bb])>//g;
+ next if /<\/td>/;
print "$_\n";
}
}