#!C:/perl/bin/perl -w
use strict;
use Win32::OLE;
use lib "C:/ROUTINES/LIB";
use pager qw/&die &warn/;
use webcmd;
use vars qw/$v77 $base $init $temp $pack $zipc $save $func/;
#...............................................................................
$init = "/DF:\\ /N****** /P*****";
$temp = "C:\\ROUTINES\\TMP\\price.xls";
$pack = "C:\\ROUTINES\\TMP\\price.zip";
$zipc = "C:\\ROUTINES\\BIN\\pkzip25 -add $pack $temp";
$save = "www/other/price.zip";
$func = 'ww_global_GeneratePrice()';
#...............................................................................
print scalar(localtime),"\n";
$v77 = Win32::OLE->new('V77.Application')
or die "V77.Application not found in current system\n";
$v77->Initialize($v77->RMTrade,$init,'') or die "Initialize failed: $!\n";
print "Init ok\n";
my $price = $v77->EvalExpr($func) or die "EvalExpr failed: $!\n";
$price->Write($temp,1);
print "Price was saved\n";
my $exc = system($zipc);
my ($sig,$cod) = ($exc & 127,$exc >> 8);
die $! unless defined($exc);
die "The archiving is completed with a suspicious retcode $sig:$cod\n" if $cod;
print "Price was packed\n";
webcmd::Upload($save,$pack,1)
or die "Uploading failed: ".&webcmd::get_last_error."\n";
print "Successfully uploaded\n";
unlink($temp) or warn "Unlinking failed: $!\n";
unlink($pack) or warn "Unlinking failed: $!\n";
exit(0);
|
Вариант для распечатки
Программирование под UNIX (Public)
on
14-Ноя-02, 19:13 (MSK)
