Annotation of wpscripts/elist/dbops.pm, Revision 1.1
1.1 ! yason 1: #!/usr/bin/perl
! 2: use DBI;
! 3: use warnings;
! 4:
! 5: package dbops;
! 6:
! 7: our $EPD_ZAYAVKA_T = 0;
! 8: our $EPD_PROBA_T = 1;
! 9:
! 10: our $server = "MSSQL";
! 11: our $user = "it_men";
! 12: our $pass = "itmen712";
! 13: our $dsn = "DBI:Sybase:server=$server";
! 14: our $table = 'T$_EPD_File';
! 15: our $sth;
! 16:
! 17: sub db_connect()
! 18: {
! 19: $dbh = DBI->connect($dsn, $user, $pass) or die "unable to connect to server $DBI::errstr";
! 20: }
! 21:
! 22:
! 23: sub db_select()
! 24: {
! 25: $dbh->do("use Manager");
! 26: }
! 27:
! 28:
! 29: sub db_disconnect()
! 30: {
! 31: $dbh->disconnect();
! 32: }
! 33:
! 34:
! 35: sub db_fetch($$)
! 36: {
! 37: my $file_type = shift;
! 38: my $Ready = shift;
! 39: my $i = 0;
! 40: my @OrderNO;
! 41: my @win_path;
! 42: my @setDate;
! 43: my @ReadyDate;
! 44:
! 45:
! 46: $sth = $dbh->prepare ("SELECT OrderNO,win_path,setDate,ReadyDate FROM $table WHERE File_type=$file_type AND Ready=$Ready AND Backed_up=0")
! 47: or die("fetch");
! 48:
! 49: $sth->execute( ) or die "unable to execute query! error $DBI::errstr";
! 50:
! 51: # initialize to zero everything
! 52: $#OrderNO = $#win_path = $#setDate = $#ReadyDate = 0;
! 53:
! 54: while( ($OrderNO[$i], $win_path[$i], $setDate[$i], $ReadyDate[$i]) = $sth->fetchrow_array())
! 55: {
! 56: # fetch by row
! 57:
! 58: $i++;
! 59: }
! 60:
! 61: $sth->finish();
! 62:
! 63: return( (\@OrderNO, \@win_path, \@setDate, \@ReadyDate) );
! 64:
! 65: } # db_fetch()
! 66:
! 67: return(1);
CVSweb