#!/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 "\n\nAccess Denied\n\n\n"; }