/[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.3 by dpavlin, Thu Apr 5 10:49:59 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 20  my $close_time='21:21:21 CET'; Line 22  my $close_time='21:21:21 CET';
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 34  if ($res->is_success) { Line 37  if ($res->is_success) {
37                  my ($time,$date) = ($1,$2);                  my ($time,$date) = ($1,$2);
38                  insert() if (@val);                  insert() if (@val);
39                  undef @val;                  undef @val;
40                  push @val,"$date $time WET";                  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) {
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26