Annotation of wpscripts/zlist/zlist.pl, Revision 1.1
1.1 ! yason 1: #!/usr/bin/perl
! 2: # $Id: zlist.pl,v 1.3 2005/12/12 12:57:05 init Exp $
! 3: use DBI;
! 4:
! 5: $| = 1;
! 6:
! 7: my $server = "MSSQL";
! 8: my $user = "it_men";
! 9: my $pass = "itmen712";
! 10: my $dsn = "DBI:Sybase:server=$server";
! 11: my $sth;
! 12:
! 13: my @zayavki;
! 14: my @zayavki_times;
! 15: my @zayavki_pri;
! 16: my @jpegs;
! 17: my @jpegs_times;
! 18: my @jpegs_pri;
! 19: my @probas;
! 20: my @probas_times;
! 21: my @probas_pri;
! 22: my $i;
! 23: $dbh = DBI->connect($dsn, $user, $pass) or die "unable to connect to server $DBI::errstr";
! 24: $dbh->do("use Manager");
! 25:
! 26: $sth = $dbh->prepare ("SELECT NumCard,time_file,file_priority FROM upload_files WHERE Status=0 AND type_file=0") or die "SQL prepare failed\n";
! 27: $sth->execute( ) or die "unable to execute query $query error $DBI::errstr";
! 28:
! 29: $i=0;
! 30: print "*** Zayavki ***\n";
! 31: while( ($zayavki[$i], $zayavki_times[$i], $zayavki_pri[$i]) = $sth->fetchrow_array())
! 32: {
! 33: print "$zayavki[$i] - $zayavki_times[$i] [priority $zayavki_pri[$i]]\n";
! 34: $i++;
! 35: }
! 36: $sth->finish();
! 37:
! 38: $sth = $dbh->prepare ("SELECT NumCard,time_file,file_priority FROM upload_files WHERE Status=0 AND type_file=1") or die "SQL prepare failed\n";
! 39: $sth->execute( ) or die "unable to execute query $query error $DBI::errstr";
! 40:
! 41: $i=0;
! 42: print "\n*** Jpegs ***\n";
! 43: while( ($jpegs[$i], $jpegs_times[$i], $jpegs_pri[$i]) = $sth->fetchrow_array())
! 44: {
! 45: print "$jpegs[$i] - $jpegs_times[$i] [priority $jpegs_pri[$i]]\n";
! 46: $i++;
! 47: }
! 48: $sth->finish();
! 49:
! 50: $sth = $dbh->prepare ("SELECT NumCard,time_file,file_priority FROM upload_files WHERE Status=0 AND type_file=2") or die "SQL prepare failed\n";
! 51: $sth->execute( ) or die "unable to execute query $query error $DBI::errstr";
! 52:
! 53: $i=0;
! 54: print "\n*** Probas ***\n";
! 55: while( ($probas[$i], $probas_times[$i], $probas_pri[$i]) = $sth->fetchrow_array())
! 56: {
! 57: print "$probas[$i] - $probas_times[$i] [priority $probas_pri[$i]]\n";
! 58: $i++;
! 59: }
! 60: $sth->finish();
! 61:
! 62:
! 63:
CVSweb