wpscripts/zstatus/zstatus.pl - diff

Return to zstatus.pl CVS log

Up to [local] / wpscripts / zstatus

Diff for /wpscripts/zstatus/zstatus.pl between version 1.1 and 1.2

version 1.1, 2011/06/03 09:28:47

version 1.2, 2011/07/20 07:42:05

Line 2

# $Id$

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 $dbh;

my $sth;

Line 13

my $value;

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")

{

print "Usage:\n";

print "zstatus <NumCard> <tiff|jpeg|proba> <value>\n";

print "zstatus <NumCard> <tiff|proba> <value>\n";

exit(-1);

}

$numcard = shift;

Line 29

}

$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->execute( );

@status = ($sth->fetchrow_array( ));

Line 43

Line 42

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->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";

CVSweb