/[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.4 by dpavlin, Thu Apr 19 09:20:14 2001 UTC revision 1.5 by dpavlin, Tue May 8 09:54:28 2001 UTC
# Line 22  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);          print "$sql\n" if ($debug);
27          $market++          $market++
28    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.26