You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
340 B
19 lines
340 B
#!/usr/bin/perl
|
|
#
|
|
# $Id: bugslogin.pl,v 1.2 2004/01/13 19:22:04 jeffo Exp $
|
|
#
|
|
# Source File: bugslogin.pl
|
|
|
|
print "Content-Type: text/html\n\n";
|
|
|
|
# Get config
|
|
require 'bugsitecfg.pl';
|
|
|
|
&app_initialize;
|
|
|
|
if (&verifyaccess) {
|
|
&show_template("frames");
|
|
} else {
|
|
# Load Index.html
|
|
print "<HTML>\n<BODY>\nAccess Denied\n</BODY>\n</HTML>\n";
|
|
}
|
|
|