/[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.2 by dpavlin, Sat Mar 17 14:15:47 2001 UTC revision 1.3 by dpavlin, Thu Apr 5 10:49:59 2001 UTC
# Line 15  my $market=0; Line 15  my $market=0;
15  my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4');  my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4');
16  my @val;  my @val;
17    
18  my $close_time='23:23:23 CET';  my $close_time='21:21:21 CET';
19    
20  sub insert {  sub insert {
21          my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")";          my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")";
# Line 34  if ($res->is_success) { Line 34  if ($res->is_success) {
34                  my ($time,$date) = ($1,$2);                  my ($time,$date) = ($1,$2);
35                  insert() if (@val);                  insert() if (@val);
36                  undef @val;                  undef @val;
37                  push @val,"$date $time GMT";                  push @val,"$date $time WET";
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) {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26