#!/usr/bin/perl print "Content-type: text/HTML\n\n"; require "pw_variables.pm"; $referring_url = $ENV{'HTTP_REFERER'}; if ( !( $referring_url =~ "passwordprotection.html") ) { print "You have called this page from an incorrect location - this program will now exit ...
"; exit; } print< IE Internet Password Protected Area Management
Irelands leader for affordable web hosting, website hosting, email hosting, ecommerce hosting, windows hosting, secure hosting, full anti-virus email screening, full anti-spam email screening, ieinternet.com shared hosting, ieinternet.com sme hosting, irelands leading cost effective web hosting provider.ieinternet.com Access your control panel here Access your webmail here



This page allows you to add and remove users from your password protected area, as well as being able to change the passwords for
existing users

Add User
User Name:
Password:

Remove User
User Name: MAINBODY # List the users open (HTPASSWD, $htpasswdfile) || die "couldn't open the file $htpasswdfile: $!"; while () { ($user, $password) = split (/:/, $_); push @htusers, $user; } close (HTPASSWD); $arraysize = @htusers; print ""; print<

Change a user's password
User Name: MIDDLE print ""; print<
New Password:


Copyright 1998 - 2004 IE Internet.com Ltd. All Rights Reserved.
FOOT