My Favorite things about Angelfire.
My Favorite Web Sites
Angelfire - Free Home Pages
Free Web Building Help
Angelfire HTML Library
HTML Gear - free polls, guestbooks, and more!
#!/usr/bin/perl
# please inser the correct perl path in the line above
#*******************************************************************************
# WonderCatStudio Bulletin Board System 7.30
# BBS Note 7.x
# 2000/12/07 >> LastModify 2002/05/30
# Created by WonderCatStudio NoraNeko
# English version provided by shounen.org
#***********************************************************************************
######################################################
########## Settings (Changes not required) ##########
######################################################
$BBS_Version = '7.30b7';
#-----------------------------------------------------------------------------
sub AdminPassCheck;
sub AdminPageOpen;
sub BrowsCss;
sub CountFileOpen;
sub DelImageFile();
sub errorexit;
sub escape();
sub unescape();
sub FileAnalyze();
sub FileListCheck();
sub FileLogDel();
sub FileLogList;
sub FileLogWrite();
sub FileLogResWrite();
sub FileSave();
sub FastBoot;
sub FormMultipart;
sub Function;
sub filelock;
sub fileunlock;
sub fl();
sub call();
sub randstr;
sub CatalogOpen;
sub CookieWrite;
sub GetCookie;
sub GetFileCookie;
sub GetBrowse;
sub GetDate();
sub GetForm;
sub GetMsgPassword();
sub HelpOpen;
sub Initialize;
sub ImgContinue;
sub ImgReplace;
sub MsgCov;
sub MsgConvert;
sub MsgConvEsc();
sub MsgWrite;
sub MsgDelete;
sub MsgReflesh;
sub PostCheck;
sub PasswordCheck();
sub PageOpen;
sub PageForm;
sub PaintInt;
sub PaletteOpen();
sub Panic;
sub Restore;
sub SetPCH_Size;
#----------------------------------------------------------
#Do NOT edit the information regarding the version of this code
$paint_cgi= './paint.cgi' if($paint_cgi eq '');
$Version='BBS NOTE '.$BBS_Version.' ';
require './config.cgi';
errorexit ('1','There is a version regarding the config.cgi','「config.cgi」'.$CONFIG_VERSION.' はこの '.$BBS_Version.' Version does not match!
Please recheck your codes and try again.') if($CONFIG_VERSION ne 'Fair Rain');
$cookie_file="$FileSave_DIR/cookie.log";
$lock_sleep=1;
$lock_try = 5;
$lock_sec = 60;
$lockdir = "$FileSave_DIR/lock";
&call('Initialize');
require $skin_cgi;
$maxData=$MaxUpLoadData;
$siiApplet_Use = 1 if(!defined $siiApplet_Use);
my $c='
Client Program Shounen.org 'if$siiApplet_Use;
$ClientVer.=$c.'www.gt.sakura.ne.jp/~ocosama/" TARGET="_blank">Shii-chan Oekaki 'if$siiApplet_Use;
$ClientVer.='
Client Program Ono Oekaki'if$PictureBBSApplet_Use;
$ClientVer.=$c.'www.geocities.co.jp/SiliconValley-SanJose/8609/" TARGET="_blank">Nina Oekaki 'if$BBSPainterApplet_Use;
&Function;
#------------------------------------------------------------
sub Function{
&Captor if($fc eq 'captor');
&FormMultipart;
&call('Function');
if($fc eq 'write'){&MsgWrite;&MsgReflesh;&PageOpen}
elsif($fc eq 'page'){&AdminPassCheck if$FORM{'password'};&PageOpen}
elsif($fc eq 'repost'){&RePostOpen}
elsif($fc eq 'post'){&PostOpen}
elsif($fc eq 'delete'){&MsgDelete}
elsif($fc eq 'del'){&AdminPassCheck;&MsgDelete}
elsif($fc eq 'continue'){&ImgContinue}
elsif($fc eq 'pch_size'){&SetPCH_Size}
elsif($fc eq 'help'){&HelpOpen}
elsif($fc eq 'admin'){&AdminPageOpen}
elsif($fc eq 'reflesh'){&AdminPassCheck;&MsgReflesh;&PageOpen}
elsif($fc eq 'restore'){&AdminPassCheck;&Restore}
elsif($fc =~ /paint|open/){&PaintOpen}
&PageOpen;
}
#############################################################
#Page Open
#
sub PageOpen{
&call('PageOpen');
$FORM{'mode'}=$MODE_TOGGLE_TURN[0] if($FORM{'mode'} eq '');
if($fc eq 'write'){&CookieWrite}
elsif($fc eq 'rev'){
&call('Receive');
if(-e $cookie_file){&GetFileCookie}else{&GetCookie}$fc='page';
}
else{
&GetCookie;
if(!"$fc$FORM{mode}$FORM{sort}"){
$FORM{mode} = $COOKIE{mode} if($COOKIE{mode});
$FORM{sort} = $COOKIE{sort} if($COOKIE{sort});
}
if($COOKIE{mode} ne $FORM{mode} || $COOKIE{sort} ne $FORM{sort}){
&GetDate();
&CookieWrite;
}
}
&CatalogOpen if($FORM{'mode'} eq 'catalog' && $fc ne 'rev');
$FORM{'page'}=1 if ($FORM{'page'} eq '');
$page=(($FORM{'page'}-1) * $ViewMessage);
&FileLogList;
if ($LogTotal == 0 && !$adminMode){&FastBoot};
&PageForm;
&GetBrowse;
$LayerForm_Use=($USER_OS=~/Win/ && $AGENT eq 'MSIE')?$LayerForm_Use:0;
print "Content-type: text/html\n$Exp\n";
&HTML_HEAD;print $SKIN_MAIN_FORMAT;
#Administrator Mode View
if($adminMode){
$REFLESH='
'if$index_reflesh_Use;
print <
$ADMIN_FUNCTION
"
}else{
$Image = "
* Administrator Mode *
$login$REFLESH
「$FileSave_DIR」is analyzing the files in the directory.
Entire log size as well as entire image size has been collected here.
$PAGE_FormTAG
EOF
}
for($n=$page,$cnt=0;($cnt < $ViewMessage && $cnt < $LogTotal);$n++,$cnt++){
&fl($fileNo[$n]);
if(-e "$LogFile") {
open(MSG,$LogFile);@FileData=
HTML
&HTML_FOOT;
exit
}
#---------------
HTML
for($n=$page,$cnt=0,$Tcnt=$CATALOG_W;($cnt < $CATALOG_View && $n < $LogTotal);$n++){
&fl($fileNo[$n]);
if(-e "$LogFile") {
$LogSize=-s $LogFile;
open(MSG,$LogFile);@FileData= ";
$Tcnt=$CATALOG_W;
if($cnt < $CATALOG_View){
print "";
}elsif(exists $l{'thumbsrc'} && $FORM{'mode'} ne "noimage"){
$Image = "
";
}else{
local $w = ' width='.$CATALOG_KeepW if($CATALOG_KeepW ne ''&&$CATALOG_KeepW != 0);
if($ANI_Enable){
$Csrc .= '&width='.$Cw.'&height='.$Ch;
$Image = 'Shii Oekaki
Animation Data ( '.$Csize." KB )
$CTitle ($Cname)"
}
}
if($RES_Enable){
$Image = "".$Image.'';
}else{
$Image = "".$Image.'';
}
}else{
$Image = '
No image
'
}
if($Cthumb =~ /(\.pch$|\.jpeg$)/){
$Anim = '*Animation Available';
}
print "$Image $CATALOG_FONT DATE : $Cdate
$Anim $CATALOG_FONT_END$admintag\n";
}
}
}
}
for(;($Tcnt > 0)&&($Tcnt != $CATALOG_W);$Tcnt--){
print ' \n";
}
}
print < ';
if($Tcnt-1 == 0){
print "
Please change your content and try again.');
}
}
}
_SUB_
}
####################################################
#Refreshing the info onto index.html
#
sub MsgReflesh{eval << '_SUB_';
if($index_reflesh_Use){
&call('MsgReflesh');
$MsgRefleshFlag=1;
&FileLogList;
filelock;
local(@back)=($fc, $adminMode, $LayerForm_Use, $name, $mail, $url, $flower);
$LayerForm_Use=$adminMode=0;
$name=$mail=$url=$flower=$fc="";
&PageForm;
push @back, $PAGE_FormTAG;
$PAGE_FormTAG =~ s/(name=password value=)\w*>/$1>/sg;
open(INDEXFILE,">$IndexFile");
select INDEXFILE;
&HTML_HEAD;
print $SKIN_MAIN_FORMAT;
for($n=0;($n < $ViewMessage && $n < $LogTotal);$n++){
&fl($fileNo[$n]);
if(-e "$LogFile") {
$LogSize=-s $LogFile;
open(MSG,$LogFile); @FileData=';
}
last
}
}
$Next=0;
$PAGE_FormTAG .= $PageTag.' ';
$PAGE_FORM_FLAG=1;
}
}
####################################################
#Admin Password Insertion Area
#
sub AdminPageOpen{eval << '_SUB_';
&call('AdminPageOpen');
&GetCookie;
if($password eq $passwrd){$FORM{'password'}=$passwrd;$adminMode =1;$login='Automatic Login
';&PageOpen}
$TXT_ADMIN='Please enter your administrator password.
'if(!$TXT_ADMIN);
print "Content-type: text/html\n\n";
print <
$TXT_ADMIN$Version$SkinVer$ClientVer
