system "echo USE print; select comp from printers | mysql -u root --password=password -s -N > c:\\comps.txt";
open(file, "c:\\comps.txt");
system "del c:\\logs.txt";
while (<file>){
$a = $_; $a =~ s/\n//g;
system "d:/wwwroot/printerlog/dumpel.exe -s $a -l system -m Print -format dtucs -e 10 -d 10 -t >> c:\\logs.txt";
}
close(file1);
open(file, "c:\\logs.txt");
open(file2, "> c:\\insert.sql");
while(<file>){
$a=$_;
$a =~ s/(.*?)\/(.*?)\/(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(\d*)/
insert into logs (printers_id, date, user, doc, count, printer_name, edate)
(SELECT id ,\"$3-$1-$2 $4\", \"$5\", \"$9\", \"$14\", \"$7\/$11\", NOW()
FROM printers
WHERE (comp=\"$7\" OR ip=\"$7\")
AND name = substring(\"$11\", 1, length(name)));
/g;
$a =~ s/\\/\\\\/g;
print file2 "$a";
}
close(file);
close(file2);
system "mysql -u root --password=password -s -N --database=print -f <c:\insert.sql";
system "del c:\\comps.txt";
system "del c:\\logs.txt";
system "del c:\\insert.sql";
|
