Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement