index.cgi #8

#!/usr/bin/perl -w
# -*- perl -*-
use P4CGI ;
use strict ;
#
#################################################################
#  CONFIGURATION INFORMATION 
#  All config info should be in P4CGI.pm
#
#################################################################
#
#  P4 depot browser, top
#
#################################################################

my %scts = &P4CGI::SHORTCUTS() ;

my $startPage=$scts{&P4CGI::STARTPAGE_MARKER()} ;

$startPage = "intro.cgi?DP=" . &P4CGI::CURR_DEPOT_NO()  unless defined $startPage ;

&P4CGI::ONLOADSCRIPT("location='$startPage';") ;

print &P4CGI::start_page("Welcome to P4DB") ;
print &P4CGI::end_page() ;


#
# That's all folks
#