#!/usr/bin/perl
#
# Quick perl script foruse with the Apache SSLPassPharaseDialog Directive
# By: David A. Flanigan
# No Warrnety provided or implied, use at your own risk. 
# Free for any use. Please send improvements back to dave@flanigan.net
# E-mail dave@flanigan.net with questions on modifying this script. 
# http://www.flanigan.net/scripts
#

#check for two args from apache, drop silently if not received. 
if ( $ARGV[1] eq "" )
{
	exit(1);
}

# Set Varables
($svname, $svport) = split(/\:/,$ARGV[0]);
$svcry= $ARGV[1];

# Verify Arg contents
if (($svname eq "www.flanigan.net") && ($svcry eq "RSA"))
{
	print "password\n";
	exit(0)
}
else
{
	exit(1);
}