Return to dbops.pm CVS log

Up to [local] / wpscripts / elist

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