####################################################################### # htmlgen.pm # # These routines generate the HTML for the GnuDIP # Web interface. # # See COPYING for licensing information. # ####################################################################### # Perl modules use strict; # global variables use vars qw($conf); use vars qw($pref $userinfo $remote_ip); use vars qw($reqparm $thiscgi $thishost $thisurl); use vars qw($htmlgen_header $htmlgen_trailer); # GnuDIP common subroutines use gdiplib; use gdipcgi_cmn; use gdipmailchk; # variables global to this file # - may be included in all pages my ($title, $head, $headtxt, $topline, $trailerline, $bodytxt, $body, $bodyend, $html_dir); ####################################################################### # initialise global variables ####################################################################### sub htmlgen_init { # title $title = "GnuDIP Web Interface"; $headtxt = tst(qq* $title*); $head = tst(qq* $headtxt *); # HTML to insert after if (! defined $htmlgen_header or ! defined $$conf{'persistance'} or $$conf{'persistance'} ne 'YES') { my $headerfile = $$conf{'header_file'}; $headerfile = '' if !defined($headerfile); $htmlgen_header = ''; if ($headerfile and open(HEADER,"$headerfile")) { while (my $line =

) { $htmlgen_header .= $line; }; close HEADER; } } # HTML to insert before if (! defined $htmlgen_trailer or ! defined $$conf{'persistance'} or $$conf{'persistance'} ne 'YES') { my $trailerfile = $$conf{'trailer_file'}; $trailerfile = '' if !defined($trailerfile); $htmlgen_trailer = ''; if ($trailerfile and open(TRAILER,"$trailerfile")) { while (my $line = ) { $htmlgen_trailer .= $line; }; close TRAILER; } } # offset to HTML directory $html_dir = $$conf{'html_dir'}; $html_dir = '../html' if !$html_dir; # stuff for top of each page $topline = $htmlgen_header . tst(qq*

$title

Help

*); # for starting and ending HTML body $bodytxt = "body bgcolor=\"FFFFFF\""; $body = "<$bodytxt>"; $bodyend = $htmlgen_trailer . ''; } ####################################################################### # login ####################################################################### sub pg_login { header(); tpr(qq* $headtxt <$bodytxt onload="sethidden()"> $topline

Login

$htmlgen_trailer *); exit; } ####################################################################### # forgotten password ####################################################################### sub pg_sendURL { # ensure initialized default_empty('sendURL_username'); header(); tpr(qq* $headtxt $body $topline

Forgotten Password

Enter your username and domain
A Quick Login URL will be sent to the E-mail address on record $bodyend *); exit; } ####################################################################### # Quick Login URL E-mail sent ####################################################################### sub pg_sentURL { my $email = shift; pg_msg(qq* Quick Login URL E-mail Sent *,qq* An E-mail has been sent to the E-mail address on record for this host, containing a Quick Login URL (i.e., www address).
When you receive the E-mail, connect to the URL in your browser to login. *); } ####################################################################### # self signup ####################################################################### sub pg_self { pg_error("no_addself") if $$pref{'ADD_SELF'} ne 'YES'; header(); tpr(qq* $head $body $topline

Self Registration

$bodyend *); exit; } ####################################################################### # self signup E-mail sent ####################################################################### sub pg_selfemail { my $email = shift; pg_msg(qq* Self Registration E-mail Sent *,qq* An E-mail has been sent to $email, containing a URL (i.e., www address).
When you receive the E-mail, connect to the URL in your browser to complete the self registration process. *); } ####################################################################### # self signup done ####################################################################### sub pg_didself { pg_msg(qq* Registration Successful *,qq* Your registration was successful.
Please return to the login page. *); } ####################################################################### # E-mail update E-mail sent ####################################################################### sub pg_newemail { my $email = shift; pg_msg(qq* E-mail Update E-mail Sent *,qq* An E-mail has been sent to $email, containing a URL (i.e., www address).
When you receive the E-mail, connect to the URL in your browser to complete the E-mail address update process. *); } ####################################################################### # E-mail update done ####################################################################### sub pg_didemail { pg_msg(qq* E-mail Address Update Successful *,qq* Your E-mail address update was successful. *); } ####################################################################### # no forward URL set ####################################################################### sub pg_noforwardurl { pg_msg(qq* Auto Update Successful but Forward URL Not Set *,qq* Your username and password were verified and your hostname now points to your new IP $remote_ip.

However you have not set a URL to forward to.
Please set a Forward URL in your GnuDIP settings. *); } ####################################################################### # AutoURL test succeeded ####################################################################### sub pg_goodautourl { pg_msg(qq* AutoURL Test Succeeded *,qq* Your username and password were verified and your hostname now points to your new IP $remote_ip.

Set this page as your default page and from now on it will automatically forward you to your Forward URL under the settings menu. *); } ####################################################################### # user options ####################################################################### sub pg_options { # ensure initialized default_empty('localaddr'); default_empty('user_pattern'); default_empty('errormsg'); header(); tpr(qq* $head $body *); if ($$pref{'DELETE_SELF'} eq 'YES' and !$$conf{'URL_delthisuser'}) { tpr(qq* *); } tpr(qq* $topline *); my $updateaddr = $remote_ip; if ($$userinfo{'level'} eq 'USER') { tpr(qq*

Hostname $$userinfo{'username'}.$$userinfo{'domain'} Currently Points to $$userinfo{'currentip'}
(Updated at $$userinfo{'updated'})

The computer that connected to GnuDIP has IP address $remote_ip

*); if ($$reqparm{'localaddr'} eq 'nojavascript') { tpr(qq* GnuDIP cannot determine if $remote_ip is the IP address of your computer.
Javascript is not enabled in your browser. *); } elsif ($$reqparm{'localaddr'} eq 'nojava') { tpr(qq* GnuDIP cannot determine if $remote_ip is the IP address of your computer.
Java is not enabled in your browser. *); } elsif ($$reqparm{'localaddr'} eq 'javaerror') { writelog('Error occured in Java applet:'); writelog(" message: $$reqparm{'errormsg'}"); tpr(qq* GnuDIP cannot determine if $remote_ip is the IP address of your computer.
The Java applet for doing this has failed with the following message:

$$reqparm{'errormsg'}

*); } elsif (validdotquad($$reqparm{'localaddr'})) { $updateaddr = $$reqparm{'localaddr'}; tpr(qq* The computer your browser is running on has IP address $updateaddr *); } elsif ($$reqparm{'localaddr'}) { writelog('Error occured in Java applet:'); writelog(" invalid IP address: $$reqparm{'localaddr'}"); tpr(qq* GnuDIP cannot determine if $remote_ip is the IP address of your computer.
The Java applet for doing this has failed. It returned an invalid IP address. *); } else { tpr(qq* Browser based IP address detection was not done *); } tpr(qq* *); } tpr(qq*

User Options

*); if ($$reqparm{'updatehost'}) { tpr(qq* Update done for $$userinfo{'username'}.$$userinfo{'domain'}

*); } elsif ($$reqparm{'offline'}) { tpr(qq*

Offline done for $$userinfo{'username'}.$$userinfo{'domain'}

*); } tpr(qq*

*); html_user(); $$reqparm{'updateaddr'} = $updateaddr if ! defined $$reqparm{'updateaddr'}; tpr(qq* *); if ($$userinfo{'level'} eq "USER") { tpr(qq* *); } tpr(qq* *); if ($$userinfo{'level'} eq 'USER' and $$pref{'REQUIRE_EMAIL'} eq 'YES') { tpr(qq* *); } if ($$userinfo{'level'} eq 'USER' and $$pref{'ALLOW_AUTO_URL'} eq 'YES') { tpr(qq* *); } if ($$userinfo{'level'} eq 'ADMIN') { tpr(qq* *); } if ($$pref{'DELETE_SELF'} eq 'YES') { tpr(qq* *); } tpr(qq*

Update $$userinfo{'username'}.$$userinfo{'domain'}

Offline $$userinfo{'username'}.$$userinfo{'domain'}

Change Settings

Change E-mail Address

Set Auto URL

Add User

Manage Users

User Pattern:

\*	-	zero or more characters
?	-	one character

Add Domain

Manage Domains

Administrative Settings

Delete Current User

*); if (!$$conf{'URL_delthisuser'}) { tpr(qq* *); } else { # sign the self delete information my $checkval = md5_base64( $$userinfo{'username'} . '.' . $$userinfo{'domain'} . '.' . $$pref{'SERVER_KEY'} ); # the URL must have a question mark and any other # parameters already in it my $url = $$conf{'URL_delthisuser'}; $url .= 'user=' . $$userinfo{'username'}; $url .= '&domn=' . $$userinfo{'domain'}; $url .= '&sign=' . uri_escape($checkval); tpr(qq*

Delete

*); } tpr(qq*

*); # button for setting Quick Login my $detect; my $quick = "$thisurl?"; if ($updateaddr eq $$reqparm{'localaddr'}) { $quick .= 'login=ipdetect'; $detect = 'yes'; } else { $quick .= 'login=enc'; $detect = 'no'; } $quick .= "&username=$$userinfo{'username'}" . "&password=$$userinfo{'password'}"; if ($$userinfo{'level'} eq 'USER') { $quick .= "&domain=$$userinfo{'domain'}"; } tpr(qq* $bodyend *); exit; } ####################################################################### # user settings ####################################################################### sub pg_usersettings { pg_cmn_edituser($userinfo); } ####################################################################### # current user deleted ####################################################################### sub pg_usergone { pg_msg(qq* Current User Deleted *,qq* The current user has been deleted.
Please go back to the previous Login page. *); } ####################################################################### # set quick login ####################################################################### sub pg_setquick { # "&" has to become "&" in HTML my $quick = $$reqparm{'quick'}; $quick =~ s/\&/\&/g; header(); tpr(qq* $head $body $topline

Set Quick Login URL

Create a new Favorite or Bookmark now

Or in Windows create a Shortcut
Right click on this link:

GnuDIP Quick Login

The Favorite, Bookmark or Shortcut will do Quick Login. *); if ($$reqparm{'detect'} eq 'no') { tpr(q*

This URL will not do IP address detection.
Either Javascript or Java is not enabled in your browser. *); } tpr(qq*

$bodyend *); exit; } ####################################################################### # Quick Login IP detection ####################################################################### sub pg_ipdetect { header(); tpr(qq* $headtxt <$bodytxt onload=\"winload()\">

Java support is not enabled in this browser. Java support is required for IP address detection.

*); exit; } ####################################################################### # add domain ####################################################################### sub pg_adddomain { # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; header(); tpr(qq* $head $body $topline

Add Domain

New domains are added at the end of the list

You may delete and re-add a domain
Updates using the client will not be affected
Web Tool users for that domain cannot login until the domain is re-added

$bodyend *); exit; } ####################################################################### # manage domains ####################################################################### sub pg_managedomains { # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; # get domains from database my $domains = getdomains(); header(); tpr(qq* $head $body $topline

Manage Domains

*); html_user(); tpr(qq* *); foreach my $dominfo (@$domains) { tpr(qq* *); } tpr(qq*

Domain	Allow Password Changes	Allow Add Self	Edit Domain	Delete Domain
$$dominfo{'domain'}	$$dominfo{'changepass'}	$$dominfo{'addself'}

$bodyend *); exit; } ####################################################################### # edit domain ####################################################################### sub pg_editdomain { my $dinfo = shift; # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; # domain not passed but domain name available? if (!$dinfo and $$reqparm{'editdom'}) { $dinfo = getdomain($$reqparm{'editdom'}); pg_error('bad_sel_domain') if !$dinfo; } header(); tpr(qq* $head $body $topline

Edit Domain

*); # do we have a domain to edit? if (!$dinfo) { tpr(qq*

No domain has been selected
Please go back and select a domain

$bodyend *); exit; } # reshowing this page? if ($$reqparm{'do_editdomain'}) { tpr(qq* Previous changes saved

*); } my $cpcheck = setcheck($$dinfo{'changepass'}); my $ascheck = setcheck($$dinfo{'addself'}); tpr(qq*

$bodyend *); exit; } ####################################################################### # add user (by admin) ####################################################################### sub pg_adduser { # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; header(); tpr(qq* $head $body $topline

Add User

$bodyend *); exit; } ####################################################################### # manage users ####################################################################### sub pg_manageusers { # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; # ensure initialized default_empty('orderby'); default_empty('sortby'); default_empty('user_pattern'); # local title my $ltitle = 'Manage Users'; $ltitle .= " - $$reqparm{'user_pattern'}" if $$reqparm{'user_pattern'}; # the red up/down mark my $mark = '<'; $mark = '>' if $$reqparm{'orderby'} eq 'desc'; $mark = qq*$mark*; my $byip = ''; my $bydomain = ''; my $byupdated = ''; my $bylevel = ''; my $byemail = ''; my $byuser = ''; if ($$reqparm{'manage_users_sortby_currentip'}) { $byip = $mark; } elsif ($$reqparm{'manage_users_sortby_domain'}) { $bydomain = $mark; } elsif ($$reqparm{'manage_users_sortby_updated'}) { $byupdated = $mark; } elsif ($$reqparm{'manage_users_sortby_level'}) { $bylevel = $mark; } elsif ($$reqparm{'manage_users_sortby_email'}) { $byemail = $mark; } else { $byuser = $mark; } header(); tpr(qq* $head $body $topline

$ltitle

*); html_user(); tpr(qq* *); # one row for each user my $sth = getuserspattern( $$reqparm{'user_pattern'}, $$reqparm{'sortby'}, $$reqparm{'orderby'} ); while (my $uinfo = getuserseach($sth)) { $$uinfo{'email'} = ' ' if !$$uinfo{'email'}; $$uinfo{'domain'} = ' ' if !$$uinfo{'domain'}; tpr(qq* *); } tpr(qq*

Username	Current IP	E-Mail	Domain	Last Updated	Level	Edit User	Delete User
$byuser	$byip	$byemail	$bydomain	$byupdated	$bylevel
$$uinfo{'username'}	$$uinfo{'currentip'}	$$uinfo{'email'}	$$uinfo{'domain'}	$$uinfo{'updated'}	$$uinfo{'level'}

$bodyend *); exit; } ####################################################################### # edit user ####################################################################### sub pg_edituser { my $uinfo = shift; # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; # user not passed but one ID-ed? if (!$uinfo and $$reqparm{'edituser'}) { # user exists? $uinfo = getuserbyid($$reqparm{'edituser'}); pg_error('bad_sel_user') if !$uinfo; } # show common page pg_cmn_edituser($uinfo); } ######################################################################## # common user edit page # - cases distinguished by: # $$reqparm{'do_edituser'} or $$reqparm{'manageusers_edituser'} ######################################################################## sub pg_cmn_edituser { my $uinfo = shift; # differences for each case my $ltitle = ''; my $submit = ''; my $page = ''; if ($$reqparm{'do_edituser'} or $$reqparm{'manageusers_edituser'}) { $ltitle = 'Edit User'; $submit = 'do_edituser'; $page = 'edituser'; } else { $ltitle = 'Current Settings'; $submit = 'do_updatesettings'; $page = 'updatesettings'; } header(); tpr(qq* $head $body $topline

$ltitle

*); # do we have a user to edit? if (!$uinfo) { tpr(qq*

No user has been selected
Please go back and select a user

$bodyend *); exit; } # reshowing this page? if ($$reqparm{'do_updatesettings'} or $$reqparm{'do_edituser'}) { tpr(qq* Previous changes saved

*); } tpr(qq*

Note: Leave Password Fields Blank to Remain the Same

*); html_user(); # save ID of user if not editing self if ($$reqparm{'edituser'}) { tpr(qq* *); } tpr(qq* *); # user being edited not admin? if ($$uinfo{'level'} ne 'ADMIN') { # domain list html_domain($$uinfo{'domain'}); # autoURL if ($$pref{'ALLOW_AUTO_URL'} eq 'YES') { tpr(qq* *); } # not editing self? if ($$reqparm{'do_edituser'} or $$reqparm{'manageusers_edituser'}) { # wildcards user by user? if ($$pref{'ALLOW_WILD'} eq 'USER') { my $checked = setcheck($$uinfo{'allowwild'}); tpr(qq* *); } # MX values user by user? if ($$pref{'ALLOW_MX'} eq 'USER') { my $checked = setcheck($$uinfo{'allowmx'}); tpr(qq* *); } my $currentip = $$uinfo{'currentip'}; $currentip = '' if $currentip eq '0.0.0.0'; tpr(qq* *); } # show wildcard option? if ($$pref{'ALLOW_WILD'} eq 'YES' or $$pref{'ALLOW_WILD'} eq 'USER' and $$uinfo{'allowwild'} eq 'YES') { my $checked = setcheck($$uinfo{'wildcard'}); tpr(qq* *); } # show MX value option? if ($$pref{'ALLOW_MX'} eq 'YES' or $$pref{'ALLOW_MX'} eq 'USER' and $$uinfo{'allowmx'} eq 'YES') { my $checked = setcheck($$uinfo{'MXbackup'}); tpr(qq* *); } } # not editing self? if ($$reqparm{'do_edituser'} or $$reqparm{'manageusers_edituser'}) { # show disable password option? if ($$uinfo{'password'} eq '') { tpr(qq* *); } else { tpr(qq* *); } } tpr(qq*

Username/Hostname

E-Mail Address

*); if ($$userinfo{'level'} eq 'USER' and $$pref{'REQUIRE_EMAIL'} eq 'YES') { tpr(qq*

$$uinfo{'email'}

*); } else { tpr(qq* *); } tpr(qq*

Forward URL (Do not forget http://)

Allow Wild Card

Allow Mail Exchanger

IP Address

Wild Card

Mail Exchanger

Backup Mail Exchanger

Password is Disabled

Disable Password

New Password

New Password Again

$bodyend *); exit; } ######################################################################## # need E-mail before proceeding ######################################################################## sub pg_needemail { # ensure initialized $$reqparm{'new_needemail'} = $$userinfo{'email'} if !defined $$reqparm{'new_needemail'}; header(); tpr(qq* $head $body $topline

E-mail Address Entry

You must provide a valid E-mail address.

$bodyend *); exit; } ####################################################################### # system settings ####################################################################### sub pg_syssettings { # must be admin pg_error('not_admin') if $$userinfo{'level'} ne 'ADMIN'; my $ADD_SELF_check = setcheck($$pref{'ADD_SELF'}); my $DELETE_SELF_check = setcheck($$pref{'DELETE_SELF'}); my $SEND_URL_check = setcheck($$pref{'SEND_URL'}); my $REQUIRE_EMAIL_check = setcheck($$pref{'REQUIRE_EMAIL'}); my $NO_ROBOTS_check = setcheck($$pref{'NO_ROBOTS'}); my $ALLOW_CHANGE_HOSTNAME_check = setcheck($$pref{'ALLOW_CHANGE_HOSTNAME'}); my $ALLOW_CHANGE_DOMAIN_check = setcheck($$pref{'ALLOW_CHANGE_DOMAIN'}); my $ALLOW_AUTO_URL_check = setcheck($$pref{'ALLOW_AUTO_URL'}); my $ALLOW_WILD_check = setcheck($$pref{'ALLOW_WILD'}); my $ALLOW_MX_check = setcheck($$pref{'ALLOW_MX'}); my $SHOW_DOMAINLIST_check = setcheck($$pref{'SHOW_DOMAINLIST'}); my $ALLOW_WILD_USER_check = $ALLOW_WILD_check; $ALLOW_WILD_USER_check = ' checked' if $$pref{'ALLOW_WILD'} eq 'USER'; my $ALLOW_MX_USER_check = $ALLOW_MX_check; $ALLOW_MX_USER_check = ' checked' if $$pref{'ALLOW_MX'} eq 'USER'; header(); tpr(qq* $head $body $topline

System Settings

*); if ($$reqparm{'save_settings'}) { tpr(qq* Previous settings saved

*); } tpr(qq*

*); html_user(); tpr(qq@

Allow self registration

Allow self deletion

Allow sending of quick login URL-s for forgotten passwords

Require and validate E-mail addresses

This option requires that a user provide an E-mail address during self registration. Also, whenever a non-administrative user provides an E-mail address, they must use a URL sent to that E-mail address to complete the change.

Check for robot before sending E-mail

This option requires that a user examine an image for a character string encoded in it and enter the string on any page that sends E-mail.

Show domain list on login page

Users will have to enter their domain name into a text box during login unless this option is on.

Allow users to change their hostname/username

Allow users to switch their domain

Enable automatic login using "Auto URL"

This allows users to set the GnuDIP Auto URL as their browser's default page to update their IP address and be redirected to their specified "Forward URL".

Allow all users to set a wildcard DNS RR entry

The wildcard entry will match any full hostname ending in the users full hostname. So not just "user.gnudipdomain" will map to the current address but so will "www.user.gnudipdomain" and so on.

Allow enabled users to set a wildcard DNS RR entry

Allow all users to set mail exchanger RR entries

This allows users to specify a (primary or backup) mail exchanger.

Allow enabled users to set mail exchanger RR entries

Restricted usernames

This is a comma seperated list of usernames you do not want to be allowed as GnuDIP usernames. It can protect common hostnames from being used. An * can be used as a wild card to match a string of characters, and a ? can be used to match a single character. Common entries include www, ftp, ns?, mail*, etc...

Page Timeout

If a number is provided here, browser pages will expire after that number of seconds. This will not apply to administrative users. A good value for this might be 1800 - 30 minutes.

Server Signature Key

This value is generated automatically upon the first login to GnuDIP. It is used to "sign" the login information placed in each page. This signature is tested each time a page internal to GnuDIP is requested.

$$pref{'SERVER_KEY'}

$bodyend @); exit; } ######################################################################## # set auto URL ######################################################################## sub pg_setautourl { # generate cookies printcookie('gnudipuser', $$userinfo{'username'}, '+1M'); printcookie('gnudipdomain', $$userinfo{'domain'}, '+1M'); printcookie('gnudippass', $$userinfo{'password'}, '+1M'); header(); tpr(qq* $head $body $topline

Auto URL Cookie Set

Auto URL is a feature of GnuDIP that allows a user to set cookies in their browser with their username, domain and (hashed) password.

When GnuDIP is contacted using the "Auto URL", it reads this information from the cookies passed from the browser to GnuDIP. After verifying this information it updates the hostname to point to the IP address of the computer that connected to GnuDIP, and then "redirects" the browser to the value the user has provided for "Forward URL". If "Forward URL" is not set a mesage page will be displayed instead of redirecting the browser.

Note that the IP address of the computer that connects to GnuDIP is used. Browser based IP address detection is not supported for Auto URL.

Now that the cookie has been set, you can test it by clicking the link below. After it succesfully updates your hostname set that page as your browsers default page.

$bodyend *); exit; } ####################################################################### # display title and message ####################################################################### sub pg_msg { my $msgtitle = shift; my $msg = shift; # ensure initialized $msgtitle = '' if !defined($msgtitle); $msg = '' if !defined($msg); # remove leading and trailing new lines $msgtitle =~ s /^\n//; $msgtitle =~ s /\n$//; $msg =~ s /^\n//; $msg =~ s /\n$//; header(); tpr(qq* $head $body $topline

$msgtitle

$msg $bodyend *); exit; } ####################################################################### # display error message ####################################################################### sub pg_error { my $error = shift; if ($error eq 'page_timeout') { pg_msg(qq* Error: Browser Page Has Expired *,qq* The current GnuDIP page has expired.
Please go back to the login page. *); } elsif ($error eq 'nouser') { pg_msg(qq* Error: Unknown User *,qq* You entered a username/domain combination which was unknown.
Please go back and check for typos. *); } elsif ($error eq 'bad_sel_user') { pg_msg(qq* Error: Selected User Does Not Exist *,qq* Please go back and refresh the list. *); } elsif ($error eq 'bad_edit_user') { pg_msg(qq* Error: User Being Edited Does Not Exist *,qq* Please go back and refresh the list. *); } elsif ($error eq 'bad_user_domain') { pg_msg(qq* Error: Domain For User Being Edited Does Not Exist *,qq* Please either restore the domain, or delete the user. Or use the "gdipdbfix.pl" script to remove all invalid users. *); } elsif ($error eq 'bad_sel_domain') { pg_msg(qq* Error: Selected Domain Does Not Exist *,qq* Please go back and refresh the list. *); } elsif ($error eq 'bad_edit_domain') { pg_msg(qq* Error: Domain Being Edited Does Not Exist *,qq* Please go back and refresh the list. *); } elsif ($error eq 'bad_request') { pg_msg(qq* Error: Invalid HTTP Request *,qq* The HTTP request was not valid. *); } elsif ($error eq 'badpass') { pg_msg(qq* Error: Invalid Password *,qq* The password you entered was invalid.
Please go back and check for typos. *); } elsif ($error eq 'dispass') { pg_msg(qq* Error: Password Disabled *,qq* The password for this user has been disabled. *); } elsif ($error eq 'not_same') { pg_msg(qq* Error: Password Error *,qq* You must enter the same password twice.
Please go back and enter the same password twice. *); } elsif ($error eq 'bad_username') { pg_msg(qq* Error: Invalid User Name *,qq* You entered a user name which is not a valid domain name component.
Please go back and check this entry. *); } elsif ($error eq 'user_exists') { pg_msg(qq* Error: User Exists *,qq* Please go back and choose a username that is not already in use. *); } elsif ($error eq 'no_username') { pg_msg(qq* Error: No User Name *,qq* You did not provide a user name.
Please go back and choose a username. *); } elsif ($error eq 'no_password') { pg_msg(qq* Error: No Password *,qq* You did not provide a password.
Please go back and choose a password. *); } elsif ($error eq 'no_email') { pg_msg(qq* Error: No E-mail Address *,qq* You did not provide an E-mail address.
Please go back and enter a valid E-mail address. *); } elsif ($error eq 'no_domain') { pg_msg(qq* Error: No Domain Name *,qq* You did not provide a domain name.
Please go back and choose a username. *); } elsif ($error eq 'domain_exists') { pg_msg(qq* Error: Domain Exists *,qq* Please go back and choose a domain that is not already in use. *); } elsif ($error eq 'no_cookie') { pg_msg(qq* Error: Missing AutoURL Cookie *,qq* One or more Auto URL cookies were not sent.
Please go to the main menu and choose 'Set Auto URL'. *); } elsif ($error eq 'no_autourl') { pg_msg(qq* Error: Auto URL Not Allowed *,qq* This server has the Auto URL option turned off.
Any Auto URL cookie that may have been in your browser has been removed. *); } elsif ($error eq 'bad_cookie') { pg_msg(qq* Error: Invalid AutoURL Login *,qq* The cookies passed by your browser contained an invalid username and/or password.
Perhaps you did not reset your cookie after you changed your password. *); } elsif ($error eq 'no_changepass') { pg_msg(qq* Error: Password Changes Not Allowed *,qq* Your administrator has chosen not to allow users to change their own password.
Please contact your administrator and ask them to change your password for you. *); } elsif ($error eq 'not_admin') { pg_msg(qq* Error: Not Administrator *,qq* You are not marked as an administrator.
Please log in again if you feel this is an error. *); } elsif ($error eq 'restricted_user') { pg_msg(qq* Error: Restricted Username *,qq* The username you have chosen has been marked as restricted.
Please contact your administrator if you feel this is an error. *); } elsif ($error eq 'no_changehostname') { pg_msg(qq* Error: Hostname changes not allowed *,qq* Your administrator has chosen not to allow users to change their hostnames.
Please contact your administrator if you feel this is an error. *); } elsif ($error eq 'no_domain_change') { pg_msg(qq* Error: Subdomain changes not allowed *,qq* Your administrator has chosen not to allow users to change their subdomain names.
Please contact your administrator if you feel this is an error. *); } elsif ($error eq 'no_dom_domain_change') { pg_msg(qq* Error: Change to this subdomain not allowed *,qq* Your administrator has chosen not to allow users to change their subdomain to this name.
Please contact your administrator if you feel this is an error. *); } elsif ($error eq 'no_spaces') { pg_msg(qq* Error: No Spaces or Blanks Allowed *,qq* You entered a string which contained spaces or was left blank.
Please go back and check your username. *); } elsif ($error eq 'no_addself') { pg_msg(qq* Error: Self registration not allowed *,qq* Your administrator has chosen not to allow self registration.
Please contact your administrator for an account. *); } elsif ($error eq 'no_sendURL') { pg_msg(qq* Error: Sending login URL not allowed *,qq* Your administrator has chosen not to allow mailing a login URL.
Please contact your administrator for a new password. *); } elsif ($error eq 'no_delself') { pg_msg(qq* Error: Self deletion not allowed *,qq* Your administrator has chosen not to allow self deletion. *); } elsif ($error eq 'no_domaddself') { pg_msg(qq* Error: Self registration for this domain not allowed *,qq* Your administrator has chosen not to allow self registration for this domain. *); } elsif ($error eq 'unknown_dom') { pg_msg(qq* Error: Unknown Domain *,qq* An invalid domain name was specified. *); } elsif ($error eq 'bad_domain') { pg_msg(qq* Error: Invalid Domain Name Syntax *,qq* The domain name you entered has invalid syntax.
Please go back and check what you entered. *); } elsif ($error eq 'bad_email') { pg_msg(qq* Error: Invalid E-mail Address Syntax *,qq* The E-mail address you entered has invalid syntax.
Please go back and check what you entered. *); } elsif ($error eq 'bad_MX_dom') { pg_msg(qq* Error: Invalid Mail Exchanger Domain Name *,qq* The domain name you provided for a mail exchanger is not valid.
Please go back and check what you entered. *); } elsif ($error eq 'bad_MX_IP') { pg_msg(qq* Error: Invalid Mail Exchanger IP *,qq* The IP address you provided for a mail exchanger is not valid.
Note: This domain requires the IP address of the mail exchanger.
Please go back and check what you entered. *); } elsif ($error eq 'bad_IP') { pg_msg(qq* Error: Unservicable IP Address *,qq* The requested IP address is not one that this GnuDIP installation will serve. *); } elsif ($error eq 'bad_IP_syntax') { pg_msg(qq* Error: Invalid IP Address Syntax *,qq* The requested IP address does not have valid syntax. *); } elsif ($error eq 'no_useremail') { pg_msg(qq* Error: No E-mail Address on Record *,qq* There is no E-mail address on record for the user you selected.
A Quick Login URL canot be sent. *); } elsif ($error eq 'config') { pg_msg(qq* Error: GnuDIP Configuration or Interface Problem *,qq* An internal GnuDIP operation has failed, due to a configuration error, or the failure of a system service required by GnuDIP.

Please report this problem to your administrator if it persists. *); } else { pg_msg(qq* Error: Internal Error *,qq* An internal error has occurred. *); } } ####################################################################### # subroutines ####################################################################### # generate html for user information sub html_user { # ensure people come through login page # sign the login information my $pagetime = time; my $checkval = md5_hex( "$$userinfo{'username'}.". "$$userinfo{'domain'}." . "$$userinfo{'password'}." . "$$reqparm{'logonid'}." . "$pagetime." . $$pref{'SERVER_KEY'} ); tpr(qq* *); } # generate html for the domain list # may specify the one at the top sub html_domain { my $top = shift; my $dname = shift; # default name for *); if ($top) { tpr(qq* *); } my $domains = getdomains(); foreach my $domain (@$domains) { if (!$top or $$domain{'domain'} ne $top) { tpr(qq* *); } } tpr(qq* *); } # return ' checked' if the value is 'YES' sub setcheck { my $value = shift; my $checked = ''; $checked = ' checked' if $value and $value eq 'YES'; return $checked; } # print content and document type sub header { tpr(qq* Content-Type: text/html; charset=iso-8859-1 *); } ####################################################################### # must return 1 ####################################################################### 1;