/[corp]/convert/veterina/fix_have_smpc.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 /convert/veterina/fix_have_smpc.pl

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

revision 1.1 by dpavlin, Thu Apr 5 11:59:12 2001 UTC revision 1.2 by dpavlin, Tue May 8 10:43:53 2001 UTC
# Line 4  use DBI; Line 4  use DBI;
4  my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr;  my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr;
5  my $sth;  my $sth;
6    
7  my $dir="/home/dpavlin/private/corp/public_html/vet";  #my $dir="/home/dpavlin/private/corp/public_html/vet";
8    my $dir="/data/corp_html/vet";
9  opendir(DIR, $dir) || die "can't opendir $dir: $!";  opendir(DIR, $dir) || die "can't opendir $dir: $!";
10  #grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ }  #grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ }
11  while($file=readdir(DIR)) {  while($file=readdir(DIR)) {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26