Parent Directory | Revision Log | Patch
revision 1.2 by dpavlin, Tue Feb 5 09:53:15 2002 UTC | revision 1.3 by dpavlin, Wed Feb 6 13:01:24 2002 UTC | |
---|---|---|
# | Line 47 if ($res->is_success) { | Line 47 if ($res->is_success) { |
47 | chomp; | chomp; |
48 | print_debug("line: $_\n"); | print_debug("line: $_\n"); |
49 | if (m,class="ft-quotedate">(\d+:\d+) (\d+)/(\d+)/(\d+),i) { | if (m,class="ft-quotedate">(\d+:\d+) (\d+)/(\d+)/(\d+),i) { |
50 | my ($time,$mm,$dd,$yy) = ($1,$2,$3,$4); | my ($time,$dd,$mm,$yy) = ($1,$2,$3,$4); |
51 | my $date=($yy+2000)."-$mm-$dd"; | my $date=($yy+2000)."-$mm-$dd"; |
52 | print_debug("time: $time date: $date"); | print_debug("time: $time date: $date"); |
53 | insert() if (@val); | insert() if (@val); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |