#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Encode;
use Storable;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

require LWP::UserAgent;
require HTTP::Cookies;
use HTML::TableExtract;

my $login = "";
my $logout = "";
my $url = "";
my $user = "";
my $pwd = "";

my $cgi = new CGI;
print $cgi->header .
      $cgi->start_html('Abfrage');
      
if(!defined($cgi->param('username')) or !defined($cgi->param('password'))) {

  print '<form action="/cgi-bin/script.cgi" method="post"><p align="center"><table cellpadding="3" cellspacing="0"><tr><th colspan="2">Bitte anmelden</b></th></tr><tr><td align="right">Benutzername</td><td><input type="text" name="username" size="20" class="input"></td></tr><tr><td align="right">Passwort</td><td><input type="password" name="password" size="20" class="input"></td></tr><tr><th colspan="2"><input type="submit" name="submit" value="Anmelden" class="button"></th></tr></table></p></form>';

  print $cgi->end_html;

} else {
 
  $user = $cgi->param('username');
  $pwd = $cgi->param('password');
  
  getConfig();
  
  my $ua = LWP::UserAgent->new;
  $ua->timeout(10);
  
  my $cookie_jar = HTTP::Cookies->new(
      file => "../configs/my_cookies.dat",
      autosave => 1);
  $ua->cookie_jar($cookie_jar);
  
  my $response = $ua->post($login, {'username' => $user, 'password' => $pwd, 'submit' => 'Anmelden'});
  
  if(grep (/Passwort ist falsch!/, $response->{_content}) > 0) {
    
    print '<form action="script.cgi" method="post"><p align="center">Sorry, aber dieses Passwort ist falsch!<br><br><input type="hidden" name="username" value="'.$user.'"><input type="submit" name="zurueck" value="Zur&uuml;ck"></p></form>';
    print $cgi->end_html;
    exit 1;
  }
    
  my ($cookie, $cookiepath) = split(';', $response->{'_headers'}->{'set-cookie'});
  $cookiepath =~ s/path= //;
  $cookie_jar->set_cookie( 1, "mySite", $cookie, $cookiepath, "www.example.com", 80, 0, 0, 3600, 1);
  
  $response = $ua->get($url);
  my @content = split("\n", $response->{'_content'});