#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use Encode qw/encode decode/;
print "content-type: text/html \n\n";
my $query = $ENV{QUERY_STRING};
my $ua = LWP::UserAgent->new;
my ($req, $res, $content, $OUT);
my $url = 'http://site/cgi-bin/trstat.pl';
my $post=$ENV{'QUERY_STRING'};
open my $FILE, '<', '/inetpub/wwwroot/cl/clients.txt' or die "Open error: $!\n";
my @f = <$FILE>;
chomp @f;
close $FILE;
foreach my $name(@f) {
$req = HTTP::Request->new (GET => $url . "?code=$name&month" .$post);
$req->content_type ('text/html');
$res = $ua->request ($req);
die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success;
$content = $res->content;
open $OUT, '>','/inetpub/wwwroot/cl/res/' . $name.''.$post. '.txt';
print $OUT decode('KOI8-U',$content);
close $OUT;
}
print "Все готово,чтобы посмотреть отчеты нажмите <a href=http://192.168.100.211/cl/res/>сюда</a>";