version 1.1.1.1, 2011/06/03 09:28:47 |
version 1.3, 2011/12/21 09:25:22 |
|
|
# $Id$ |
# $Id$ |
use DBI; |
use DBI; |
|
|
my $DB_SERVER = "MSSQL"; # from /usr/local/etc/freetds.conf |
my $DB_SERVER = "pdc"; # from /usr/local/etc/freetds.conf |
my $DB_USER = "it_men"; |
my $DB_USER = "sa"; |
my $DB_PASS = "itmen712"; |
my $DB_PASS = "aekghbynflvby"; |
my $dsn = "DBI:Sybase:server=$DB_SERVER"; |
my $dsn = "DBI:Sybase:server=$DB_SERVER"; |
my $dbh; |
my $dbh; |
my $sth; |
my $sth; |
|
|
my $value; |
my $value; |
my @status; |
my @status; |
|
|
if(scalar(@ARGV) != 3 || $ARGV[1] ne "tiff" && $ARGV[1] ne "jpeg" && $ARGV[1] ne "proba") |
if(scalar(@ARGV) != 3 || $ARGV[1] ne "tiff" && $ARGV[1] ne "proba" && $ARGV[1] ne "tt" && $ARGV[1] ne "jpeg") |
{ |
{ |
print "Usage:\n"; |
print "Usage:\n"; |
print "zstatus <NumCard> <tiff|jpeg|proba> <value>\n"; |
print "zstatus <NumCard> <tiff|proba|tt|jpeg> <value>\n"; |
exit(-1); |
exit(-1); |
} |
} |
$numcard = shift; |
$numcard = shift; |
|
|
} |
} |
|
|
$dbh = DBI->connect($dsn, $DB_USER, $DB_PASS) or die("Can not connect to database!"); |
$dbh = DBI->connect($dsn, $DB_USER, $DB_PASS) or die("Can not connect to database!"); |
$dbh->do("use Manager"); |
$dbh->do("use full_print"); |
|
|
$sth = $dbh->prepare("SELECT ID,Status from upload_files WHERE NumCard=$numcard AND type_file=0") if($type eq "tiff"); |
$sth = $dbh->prepare("SELECT ID,status from upload_files WHERE numcard=$numcard AND type_file=0") if($type eq "tiff"); |
$sth = $dbh->prepare("SELECT ID,Status from upload_files WHERE NumCard=$numcard AND type_file=1") if($type eq "jpeg"); |
$sth = $dbh->prepare("SELECT ID,status from upload_files WHERE numcard=$numcard AND type_file=1") if($type eq "proba"); |
$sth = $dbh->prepare("SELECT ID,Status from upload_files WHERE NumCard=$numcard AND type_file=2") if($type eq "proba"); |
$sth = $dbh->prepare("SELECT ID,status from upload_files WHERE numcard=$numcard AND type_file=2") if($type eq "tt"); |
|
$sth = $dbh->prepare("SELECT ID,status from upload_files WHERE numcard=$numcard AND type_file=3") if($type eq "jpeg"); |
$sth->execute( ); |
$sth->execute( ); |
|
|
@status = ($sth->fetchrow_array( )); |
@status = ($sth->fetchrow_array( )); |
|
|
exit(-1); |
exit(-1); |
} |
} |
|
|
$sth = $dbh->prepare("UPDATE upload_files SET Status=$value WHERE NumCard=$numcard AND type_file=0") if($type eq "tiff"); |
$sth = $dbh->prepare("UPDATE upload_files SET status=$value WHERE numcard=$numcard AND type_file=0") if($type eq "tiff"); |
$sth = $dbh->prepare("UPDATE upload_files SET Status=$value WHERE NumCard=$numcard AND type_file=1") if($type eq "jpeg"); |
$sth = $dbh->prepare("UPDATE upload_files SET status=$value WHERE numcard=$numcard AND type_file=1") if($type eq "proba"); |
$sth = $dbh->prepare("UPDATE upload_files SET Status=$value WHERE NumCard=$numcard AND type_file=2") if($type eq "proba"); |
$sth = $dbh->prepare("UPDATE upload_files SET status=$value WHERE numcard=$numcard AND type_file=2") if($type eq "tt"); |
|
$sth = $dbh->prepare("UPDATE upload_files SET status=$value WHERE numcard=$numcard AND type_file=3") if($type eq "jpeg"); |
$sth->execute( ) or die("Can not execute SQL"); |
$sth->execute( ) or die("Can not execute SQL"); |
print "status changed from $status[1] " . ($status[1] == 0 ? "(NOT SENT)" : "(SENT)") . " to $value " . ($value == 1 ? "(SENT)" : "(NOT SENT)") . "\n"; |
print "status changed from $status[1] " . ($status[1] == 0 ? "(NOT SENT)" : "(SENT)") . " to $value " . ($value == 1 ? "(SENT)" : "(NOT SENT)") . "\n"; |
|
|