pp.cgi

商业网站页面管理系统

#!/usr/bin/perl
# ----------------------------------------------------------------------------
# This Software is Copyright (C) 2003, All Rights Reserved
# ----------------------------------------------------------------------------
# This program is protected by local and international copyright laws. Any
# use of this program is subject to the terms of the license agreement
# included as part of this distribution archive. Any other uses are strictly
# prohibited without the written permission of the Vendor and all
# other rights are reserved.
# -----------------------------------------------------------------------------
# Warning : Modifying this program violates your license agreement!
# -----------------------------------------------------------------------------
($cgidir,$cgiurl)=&tu();
unless($cgidir){print"Content-type: text/html\n\nUnable to determine cgidir!";
exit}

%hc=("cgidir"=>$cgidir,"cgiurl"=>$cgiurl,"datadir"=>"$cgidir/data","filelock"=>"$cgidir/data/filelock.lock","tbcolor"=>"003399","bgcolor"=>"003366","_prog_ver"=>"1.24","prod_id"=>"11","prog_build"=>"***BUILD_NUMBER***","imageurl"=>"images/",);
$SIG{__DIE__}=$SIG{__WARN__}=\&sp;srand(time+$$+($$<<15));$|++;
use Fcntl qw(:DEFAULT :flock);%hj=("datafile"=>"$hc{'datadir'}/page.dat","fields"=>"num name path url updated users allow_all_users","search"=>"name","sortcode"=>sub{
lc((split(/\