#!/usr/bin/perl -w

use LWP::UserAgent;
use URI::URL;
use HTTP::Cookies;

$|=1;

my $user = $ENV{'WEBUSER'};
my $pass = $ENV{'WEBPASS'};

my $ua= new LWP::UserAgent;

my $req=new HTTP::Request('POST','http://192.168.1.1/cgi-bin/webcm');
$req->content_type('application/x-www-form-urlencoded');

my %form = ( 
  getpage => '../html/status/syslog.htm', 
  errorpage=> '../html/index.html', 
  'login:command/username' => $user, 
  'login:command/password'=> $pass, 
  'var:errormsg' => 'Error'
);

my $qurl=url("http:");
$qurl->query_form(%form);
$req->content($qurl->equery);

my $result=$ua->request($req);

my $cookie_jar = HTTP::Cookies->new;
$cookie_jar->extract_cookies($result);

my $html=$result->as_string;
$html=~/<textarea name="textarea".*?>(.*?)<\/textarea>/s;

my $log = $1;
$log=~s/^\s+//s;
$log=~s/\s+$//s;

print "$log\n";
