#!/usr/bin/perl

use warnings;
use strict;
use WWW::Mechanize;
use HTML::TokeParser;
use HTTP::Cookies;
use Term::ANSIColor;
my $url = "usb.unitedsb.de";
my $username = "hasskopf";
my $password = "v6cpak";

my $agent = WWW::Mechanize->new();
$agent->cookie_jar(HTTP::Cookies->new);

sub logmein {
        print("Logging in...\n");
        $agent->get("http://$url/");
        $agent->follow_link( text => "Anmelden", n => 1);
        $agent->form_name('LOGIN');
        $agent->field('UserName',$username);
        $agent->field('PassWord',$password);
        $agent->submit();
}


sub getprozent {
        $agent->get("http://$url/index.php?act=atkshop&do=target");
        # HTML-Code auf den ich matchen will: <strong>Hp: </strong> 62/62
        $agent->content =~ m/.+Hp: <\/strong> (\d+)\/(\d+)/;
        my $hp = $1; my $maxhp = $2; my $prozent;
        $prozent = ($hp * 100 / $maxhp);
        return $prozent;
}

logmein();
print ("Prozent: "); print getprozent;