#!/usr/bin/perl use CGI qw(:standard); use strict; use warnings; my $var_username = param( "USERNAME" ); my $var_password = param( "PASSWORD" ); my $url="http://host.redirectdomain.com:9999/"; my $t=1; # time until redirect activates print "Content-Type: text/html; charset=utf-8\n\n"; open ( FILE, "/tmp/password.txt" ) || die "The file could not be opened"; while ( my $line = ) { chomp $line; ( my $username, my $password ) = split( ",", $line ); if ( ( $var_username eq $username ) && ( $var_password eq $password ) ) { print "$var_username, $var_password
"; # I will remove this in real world print "Permission has been granted
"; print "\n"; } elsif ( ( $var_username eq $username ) && ( $var_password ne $password ) ) { print "$var_username, $var_password
"; # I will remove this in real world print "You entered an invalid password.
"; print "Access has been denied.
"; } elsif ( ( $var_username ne $username ) && ( $var_password eq $password ) ) { print "$var_username, $var_password
"; # I will remove this in real world print "You entered an invalid username.
"; print "Access has been denied.
"; } else{ print "$var_username, $var_password
"; # I will remove this in real world print "You were denied access to this server.
"; } } close( FILE );