/[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.4 by dpavlin, Thu Apr 19 09:20:14 2001 UTC
# Line 4  use LWP::UserAgent; Line 4  use LWP::UserAgent;
4  use strict;  use strict;
5  use DBI;  use DBI;
6    
7    my $debug=0;
8    
9  my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr;  my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr;
10    
11  my $ua = new LWP::UserAgent;  my $ua = new LWP::UserAgent;
# Line 15  my $market=0; Line 17  my $market=0;
17  my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4');  my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4');
18  my @val;  my @val;
19    
20  my $close_time='23:23:23 CET';  my $close_time='21:21:21 CET';
21    
22  sub insert {  sub insert {
23          my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")";          my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")";
24          $sql=~s/,\+(\d)/,$1/g;  # nuke + which pgsql doesn't like          $sql=~s/,\+(\d)/,$1/g;  # nuke + which pgsql doesn't like
25          $dbh->do("$sql") || die "$sql\n".$DBI::errstr;  #       $dbh->do("$sql") || die "$sql\n".$DBI::errstr;
26            print "$sql\n" if ($debug);
27          $market++          $market++
28    
29  }  }
# Line 32  if ($res->is_success) { Line 35  if ($res->is_success) {
35          chomp;          chomp;
36          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) {
37                  my ($time,$date) = ($1,$2);                  my ($time,$date) = ($1,$2);
38                  insert() if (defined(@val));                  insert() if (@val);
39                  undef @val;                  undef @val;
40                  push @val,"$date $time GMT";                  push @val,"$date $time";
41                  $dbh->do("delete from stocks where date='$date $close_time'");                  $dbh->do("delete from stocks where date='$date $close_time'");
42  #               print "delete from stocks where date='$date $close_time'";  #               print "delete from stocks where date='$date $close_time'";
43          } elsif (m, at close on (\d+\s\w+\s\d+),i) {          } elsif (m, at close on (\d+\s\w+\s\d+),i) {
44                  my ($time,$date) = ($close_time,$1);                  my ($time,$date) = ($close_time,$1);
45                  insert() if (defined(@val));                  insert() if (@val);
46                  undef @val;                  undef @val;
47                  push @val,"$date $time";                  push @val,"$date $time";
48          }          }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26