SHARE
TWEET

Untitled

a guest May 9th, 2013 133 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. # Dit brugernavn og din adgangskode. Pas på med adgangskoder, der
  5. # indeholder specielle tegn, herunder ', % og &.
  6.  
  7. my $login  = "";
  8. my $passwd = "";
  9.  
  10. # URL og data, der skal postes.
  11.  
  12. my $url    = "https://www.gjk.dk/netadmin/client.php";
  13. my $post   = "login=$login&passwd=$passwd";
  14.  
  15. # Wget eller cURL bruges til at kommunikere med webserveren. Begge
  16. # findes til både UNIX og Windows.
  17.  
  18. my $cmd;
  19.  
  20. # Hvis Wget skal bruges.
  21.  
  22. $cmd       = "/usr/bin/wget -q --no-check-certificate --output-document=- --post-data='$post' $url";
  23.  
  24. # Hvis cURL skal bruges.
  25.  
  26. #$cmd       = "/usr/bin/curl -s -d '$post' $url";
  27.  
  28. open PIPE, "$cmd |";
  29. while (my $s = <PIPE>)
  30. {
  31.     chomp($s);
  32.     if ($s =~ /^ERR (.*)$/)
  33.     {
  34.         print "$1\n";
  35.     }
  36. }
  37. close PIPE;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top