Help for this page

Select Code to Download


  1. or download this
    Name "common::auth::admin" used only once: possible typo at
Name "common::auth::user" used only once: possible typo at
  2. or download this
    package common::auth;
our ($user, $admin);
#use vars qw($user $admin);
$user = $ENV{"REMOTE_USER"};
$admin = "admin";       # Set to the Administrators username
  3. or download this
    #!/usr/bin/perl -w

...

$username = "common::auth::user";
$admin  =  "common::auth::admin";