#!/usr/bin/perl ############################################################ # # index.cgi # ############################################################ # Initialisation require "uber/uber_main.pl"; $SCRIPT_TITLE = "Uber Index"; $ADMIN_EMAIL = "mike2sheds\@gmail.com"; #$SSO = 1; # Single Sign On @CSS_LIST = ("basic_stuff.css"); uber_main("uber_login", "uber_utils", "uber_admin", "uber_polls"); print $cgi->header(-cookie => [@COOKIE_LIST]); ############################################################ # Index print_index_page(); exit(0); ############################################################ # # print_index_page # ############################################################ sub print_index_page { print qq( $SCRIPT_TITLE ); print_css_list(); print qq(
); inline_login_form(); my $login = "login"; my $logout = "logout"; my $signup = "sign up"; my $account = "my account"; my $admin = "admin"; if (is_logged_in()) { $logout = qq(logout); $account = qq(my account); $admin = qq(admin) if ($Privilege > 2); } else { $login = qq(login); $signup = qq(sign up); } print qq(

$SCRIPT_TITLE
$message
Uber pages page id
Login $login
Logout $logout
Register $signup
Registration Details $account
Upload file upload
Contact us contactus
Sendmail sendmail
View polls polls
Set a poll setpoll
Check Polls checkpolls
Admin admin

Applications
script
Neighpal neighpal.cgi
); print_copyright(); print qq(
); return; } ############################################################ # EOF