===================================================================
RCS file: /cvs/wpscripts/zstatus/zstatus.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- wpscripts/zstatus/zstatus.pl	2011/06/03 09:28:47	1.1
+++ wpscripts/zstatus/zstatus.pl	2011/07/20 07:42:05	1.2
@@ -1,10 +1,10 @@
 #!/usr/bin/perl
-# $Id: zstatus.pl,v 1.1 2011/06/03 09:28:47 yason Exp $
+# $Id: zstatus.pl,v 1.2 2011/07/20 07:42:05 yason Exp $
 use DBI;
 
-my $DB_SERVER = "MSSQL";  # from /usr/local/etc/freetds.conf
-my $DB_USER = "it_men";
-my $DB_PASS = "itmen712";
+my $DB_SERVER = "pdc";  # from /usr/local/etc/freetds.conf
+my $DB_USER = "sa";
+my $DB_PASS = "aekghbynflvby";
 my $dsn = "DBI:Sybase:server=$DB_SERVER";
 my $dbh;
 my $sth;
@@ -13,10 +13,10 @@
 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;
@@ -29,11 +29,10 @@
 }
 
 $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=1") if($type eq "jpeg");
-$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=0") if($type eq "tiff");
+$sth = $dbh->prepare("SELECT ID,status from upload_files WHERE numcard=$numcard AND type_file=1") if($type eq "proba");
 $sth->execute( );
 
 @status = ($sth->fetchrow_array( ));
@@ -43,9 +42,8 @@
     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=1") if($type eq "jpeg");
-$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=0") if($type eq "tiff");
+$sth = $dbh->prepare("UPDATE upload_files SET status=$value WHERE numcard=$numcard AND type_file=1") 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";