#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("evil hacker und so :) ");
$ua->env_proxy;			# load possible proxies from your env


my $site = get($ua, 'https://ausbildung.ihk.de/pruefungsinfos/Willkommen10.aspx?knr=150');
exit 1 if (!$site);

`/usr/local/bin/growlnotify -sm "IHK\n\nPruefungsergebnisse sind online\!"`
	if !($site =~ 'Die Anwendung ist aktuell noch nicht freigeschaltet.');


#
# get()
#
sub get
{
	my $ua = shift;
	my $response = $ua->get(shift);
	return $response->decoded_content if $response->is_success;
	return undef;
}