/[corp]/esi/filter.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /esi/filter.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by dpavlin, Thu Mar 15 07:51:21 2001 UTC revision 1.2 by dpavlin, Sat Mar 17 14:15:47 2001 UTC
# Line 32  if ($res->is_success) { Line 32  if ($res->is_success) {
32          chomp;          chomp;
33          if (m, at (\d+:\d\d) on (\d+\s\w+\s\d+),i) {          if (m, at (\d+:\d\d) on (\d+\s\w+\s\d+),i) {
34                  my ($time,$date) = ($1,$2);                  my ($time,$date) = ($1,$2);
35                  insert() if (defined(@val));                  insert() if (@val);
36                  undef @val;                  undef @val;
37                  push @val,"$date $time GMT";                  push @val,"$date $time GMT";
38                  $dbh->do("delete from stocks where date='$date $close_time'");                  $dbh->do("delete from stocks where date='$date $close_time'");
39  #               print "delete from stocks where date='$date $close_time'";  #               print "delete from stocks where date='$date $close_time'";
40          } elsif (m, at close on (\d+\s\w+\s\d+),i) {          } elsif (m, at close on (\d+\s\w+\s\d+),i) {
41                  my ($time,$date) = ($close_time,$1);                  my ($time,$date) = ($close_time,$1);
42                  insert() if (defined(@val));                  insert() if (@val);
43                  undef @val;                  undef @val;
44                  push @val,"$date $time";                  push @val,"$date $time";
45          }          }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.26