Return to zlist.pl CVS log

Up to [local] / wpscripts / zlist

Annotation of wpscripts/zlist/zlist.pl, Revision 1.1.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: