wpscripts/zlist/zlist - diff

Return to zlist CVS log

Up to [local] / wpscripts / zlist

Diff for /wpscripts/zlist/zlist between version 1.1 and 1.2

version 1.1, 2011/06/03 09:28:47

version 1.2, 2011/07/19 16:12:10

Line 7

$| = 1;

# database

our $server = "MSSQL";

our $server = "pdc";

our $user = "it_men";

our $user = "sa";

our $pass = "itmen712";

our $pass = "aekghbynflvby";

our $dsn = "DBI:Sybase:server=$server";

our $sth;

Line 46

}

else

{

if( -e "/var/log/ztransfer/FILE" && -e "/var/log/ztransfer/ACTION")

if( -e "/var/log/wpscripts/ztransfer/FILE" && -e "/var/log/ztransfer/ACTION")

{

open(CURRENT, "/var/log/ztransfer/FILE");

open(CURRENT, "/var/log/wpscripts/ztransfer/FILE");

my $file = <CURRENT>;

close(CURRENT);

open(CURRENT, "/var/log/ztransfer/ACTION");

open(CURRENT, "/var/log/wpscripts/ztransfer/ACTION");

my $action = <CURRENT>;

close(CURRENT);

Line 79

print "\n";

# fetch jpegs

db_fetch(1);

# print "****** jpegs ($#numcard) ******\n";

print BOLD WHITE ON_BLUE "Очередь джепегов". RESET . " ($#numcard штук) :\n";

$i = 0;

while( ($numcard[$i]) )

{

print "$numcard[$i]\t[ оформлено $time[$i], приоритет=$pri[$i], файл=$path[$i] (размер=$size[$i]) ]\n";

$i++;

$total++;

}

print "\n";

# fetch probas

db_fetch(2);

Line 126

Line 111

sub db_select()

{

$dbh->do("use Manager");

$dbh->do("use full_print");

}

Line 136

Line 121

my $i = 0;

my $searchpath;

$sth = $dbh->prepare ("SELECT NumCard,Path,time_file,file_priority,tx_count FROM upload_files WHERE Status=0 AND type_file=$type_file") or die "SQL prepare failed\n";

$sth = $dbh->prepare ("SELECT numcard,path,time_file,file_priority,tx_count FROM upload_files WHERE status=0 AND type_file=$type_file") or die "SQL prepare failed\n";

$sth->execute( ) or die "unable to execute query $query error $DBI::errstr";

# zero elements

Line 161

Line 146

# make local file path

$searchpath =~ tr/\\/\//; $searchpath = '/WIDEPRINT/' . $searchpath;

# follow symlink to achieve real path

# # follow symlink to achieve real path

chomp( $_ = `dirname $searchpath | xargs /usr/bin/readlink` ); chomp( $searchpath = $_ . '/' . `basename $searchpath` );

# chomp( $_ = `dirname $searchpath | xargs /usr/bin/readlink` ); chomp( $searchpath = $_ . '/' . `basename $searchpath` );

# finally, get file size

$size[$i] = -s $searchpath;

CVSweb