convert/veterina/fix_have_smpc.pl

#!/usr/local/bin/perl

use DBI;
my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") || die $DBI::errstr;
my $sth;

my $dir="/home/dpavlin/private/corp/public_html/vet";
opendir(DIR, $dir) || die "can't opendir $dir: $!";
#grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ } 
while($file=readdir(DIR)) {
        if ($file !~ /^\./ && -f "$dir/$file" && $file =~ /^\d\d\d\d\.htm/) {
                $file=~s/\.html*//;
                push @smpcs,$file
        }
}
closedir(DIR);

$dbh->do("update vet_products set have_smpc=false");
$dbh->do("update vet_products set have_smpc=true where smpc in (".join(",",@smpcs).")");
1	dpavlin	1.1	#!/usr/local/bin/perl
2
3			use DBI;
4			my $dbh = DBI->connect("DBI:Pg:dbname=corp","","") \|\| die $DBI::errstr;
5			my $sth;
6
7			my $dir="/home/dpavlin/private/corp/public_html/vet";
8			opendir(DIR, $dir) \|\| die "can't opendir $dir: $!";
9			#grep { /^\./ && -f "$dir/$_" && /^\d\d\d\d.htm/ }
10			while($file=readdir(DIR)) {
11			if ($file !~ /^\./ && -f "$dir/$file" && $file =~ /^\d\d\d\d\.htm/) {
12			$file=~s/\.html*//;
13			push @smpcs,$file
14			}
15			}
16			closedir(DIR);
17
18			$dbh->do("update vet_products set have_smpc=false");
19			$dbh->do("update vet_products set have_smpc=true where smpc in (".join(",",@smpcs).")");