#!/usr/bin/perl
 
use warnings;
use strict;
use LWP::UserAgent;
use Data::Dumper;
 
my $USER = 's123456';
my $PASS = 'AdgangsKode';
my $UUID = '768b5c86-0e0e-4525-8f04-1ef413d31700';
 
if ($ENV{'CONNECTION_UUID'} ne $UUID) {
        # Not on DTU not logging in.
        exit 0;
}
 
my $version = "0.1";
my $ua = LWP::UserAgent->new;
$ua->agent("DTUwireless/" . $version . " ");
 
#  $ua->request(POST 'http://somewhere/foo', [foo => bar, bar => foo]);
 
my $headers = HTTP::Headers->new(
    "X-Powered-By" => "DTUwireless/0.1",
    "Referer" => "https://login.wireless.dtu.dk/login.html?redirect=google.com/"
);
my $req = HTTP::Request->new(POST => 'https://login.wireless.dtu.dk/login.html', $headers);
$req->content_type('application/x-www-form-urlencoded');
$req->content('buttonClicked=4&err_flag=0&err_msg=&info_flag=0&info_msg=&redirect_url=http%3A%2F%2Fgoogle.com%2F&username=s104238&password=Coax1805polpot');
my $res = $ua->request($req);
 
 
if ($res->is_success) {
    print "\n", $res->code, "\n";
} else {
    if ($res->code == 404) {
        print "Unable to connect to server www.wireless.dtu.dk\n";
    } else {
        print "Some unknown error occured (HTTP STATUS: ", $res->code, "\n";
    }
}