#!/usr/bin/perl
use strict;

# Dit brugernavn og din adgangskode. Pas på med adgangskoder, der
# indeholder specielle tegn, herunder ', % og &.

my $login  = "";
my $passwd = "";

# URL og data, der skal postes.

my $url    = "https://www.gjk.dk/netadmin/client.php";
my $post   = "login=$login&passwd=$passwd";

# Wget eller cURL bruges til at kommunikere med webserveren. Begge
# findes til både UNIX og Windows.

my $cmd;

# Hvis Wget skal bruges.

$cmd       = "/usr/bin/wget -q --no-check-certificate --output-document=- --post-data='$post' $url";

# Hvis cURL skal bruges.

#$cmd       = "/usr/bin/curl -s -d '$post' $url";

open PIPE, "$cmd |";
while (my $s = <PIPE>)
{
    chomp($s);
    if ($s =~ /^ERR (.*)$/)
    {
        print "$1\n";
    }
}
close PIPE;