#! /usr/bin/perl

######################################################################
#		MAM Authentication Script -Author: jagan@cs
# Enter your Directory ID username/Password	    	
# Edit the next three lines

$username=jagan;
$password=###################;
$logfile="/tmp/mam-logger";
#####################################################################

while($_=<STDIN>)
  {
    # Look for secret key id

     if ($_ =~ /INPUT[ ]+name\=secret[ ]+type\=hidden/)
	  {
		$_ =~ /(value=[ ]*\")([0-9A-z]+)(\")/;
		$secret_key= $2;
	#	print $secret_key;
			} 

     #Look for Verify_vernier key
	
     if ($_ =~ /INPUT[ ]+name\=verify_vernier[ ]+type\=hidden/)
          {
                $_ =~ /(value=[ ]*\")([0-9A-z]+)(\")/;
                $vernier_key= $2;
        #        print $vernier_key;
                        }
		
	} 

# Send a request for the page
# -2 : Use SSL2 
# -A : Spoof header to look like a request from a mozilla browser 
# -d : To post message 

system("curl -2 -A \"Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20020830\" -d \"vernier_id=VernierNetworks&product_id=VNSS&releast_id=1.0&logon_status=0&guest_allowed=1&realm_required=0&secret=$secret_key&verify_vernier=$vernier_key&query_string=&realm=Directory\ ID&username=$username&password=$password&logon_action=Logon\ User\" https://ptx-vernier-cs.net.umd.edu:443/cgi-bin/logon > $logfile");