#!/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
#