############################################################################### # AdminEdit.pl # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBB 1 Gold - SP 1.3.1 # # Released: December 2001; Updated April 18, 2003 # # Distributed by: http://www.yabbforum.com # # =========================================================================== # # Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # # Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com # ############################################################################### $admineditplver = "1 Gold - SP 1.3.1"; sub EditNews { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_news != 1 ) { &fatal_error("$txt{'1'}"); } my($line); $yymain .= qq~
$txt{'7'}

$txt{'670'}



~; $yytitle = "$txt{'7'}"; &template; exit; } sub EditNews2 { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_news != 1 ) { &fatal_error("$txt{'1'}"); } fopen(FILE, ">$vardir/news.txt", 1); chomp $FORM{'news'}; print FILE "$FORM{'news'}"; fclose(FILE); if ($settings[7] eq 'Global Moderator') { $yySetLocation = qq~$cgi\;action=moderate~; } else { $yySetLocation = qq~$cgi\;action=admin~; } &redirectexit; } sub EditMemberGroups { &is_admin; my(@lines, $mgroups, $i); fopen(FILE, "$vardir/membergroups.txt"); @lines = ; fclose(FILE); foreach $i (@lines) { $i =~ tr/\r//d; $i =~ tr/\n//d; } for( $i = 7; $i < @lines; ++$i ) { if( $lines[$i] =~ m~\A\s+\Z~ ) { next; } $mgroups .= "$lines[$i]\n"; } $yymain .= qq~
$txt{'8'}
$txt{'11'}:
$txt{'12'}:
$txt{'569'}:
$txt{'13'}:
$txt{'14'}:
$txt{'15'}:
$txt{'570'}:
$txt{'16'}:
~; $yytitle = $txt{'8'}; &template; exit; } sub EditMemberGroups2 { &is_admin; my $additional = $FORM{'additional'}; while( $groups = each(%FORM) ) { $FORM{$groups} =~ tr/\n//d; $FORM{$groups} =~ tr/\r//d; } fopen(FILE, ">$vardir/membergroups.txt", 1); print FILE "$FORM{'admin'}\n"; print FILE "$FORM{'moderator'}\n"; print FILE "$FORM{'newbie'}\n"; print FILE "$FORM{'junior'}\n"; print FILE "$FORM{'full'}\n"; print FILE "$FORM{'senior'}\n"; print FILE "$FORM{'god'}\n"; print FILE "$additional"; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } sub SetMembermap { &is_admin; my(@lines, $cnmaps, $i); fopen(FILE, "$vardir/continent.txt"); @lines = ; fclose(FILE); foreach $i (@lines) { $i =~ tr/\r//d; $i =~ tr/\n//d; } for( $i = 0; $i < @lines; ++$i ) { if( $lines[$i] =~ m~\A\s+\Z~ ) { next; } $cnmaps .= "$lines[$i]\n"; } my(@lines, $countr, $i); fopen(FILE, "$vardir/country.txt"); @lines = ; fclose(FILE); foreach $i (@lines) { $i =~ tr/\r//d; $i =~ tr/\n//d; } for( $i = 0; $i < @lines; ++$i ) { if( $lines[$i] =~ m~\A\s+\Z~ ) { next; } $countr .= "$lines[$i]\n"; } my(@lines, $stat, $i); fopen(FILE, "$vardir/state.txt"); @lines = ; fclose(FILE); foreach $i (@lines) { $i =~ tr/\r//d; $i =~ tr/\n//d; } for( $i = 0; $i < @lines; ++$i ) { if( $lines[$i] =~ m~\A\s+\Z~ ) { next; } $stat .= "$lines[$i]\n"; } $yymain .= qq~
$maptxt{'08'}
$maptxt{'09'}:

$maptxt{'10'}:

$maptxt{'19'}:
$maptxt{'20'}

~; $yytitle = $maptxt{'08'}; &template; exit; } sub SetMembermap2 { &is_admin; my $maps = $FORM{'maps'}; while( $conts = each(%FORM) ) { $FORM{$conts} =~ tr/\n//d; $FORM{$conts} =~ tr/\r//d; } fopen(FILE, ">$vardir/continent.txt", 1); print FILE "$maps"; fclose(FILE); $yySetLocation = qq~$cgi;action=setmembmap~; &redirectexit; } sub SetCountry2 { &is_admin; my $country = $FORM{'country'}; while( $contr = each(%FORM) ) { $FORM{$contr} =~ tr/\n//d; $FORM{$contr} =~ tr/\r//d; } fopen(FILE, ">$vardir/country.txt", 1); print FILE "$country"; fclose(FILE); $yySetLocation = qq~$cgi;action=setmembmap~; &redirectexit; } sub SetState2 { &is_admin; my $states = $FORM{'states'}; while( $sstate = each(%FORM) ) { $FORM{$sstate} =~ tr/\n//d; $FORM{$sstate} =~ tr/\r//d; } fopen(FILE, ">$vardir/state.txt", 1); print FILE "$states"; fclose(FILE); $yySetLocation = qq~$cgi;action=setmembmap~; &redirectexit; } sub SetCensor { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_censor != 1 ) { &fatal_error("$txt{'1'}"); } my( @censored, $i ); fopen(FILE, "$vardir/censor.txt"); @censored = ; fclose(FILE); foreach $i (@censored) { $i =~ tr/\r//d; $i =~ tr/\n//d; } $yymain .= qq~
$txt{'135'}
$txt{'136'}
~; $yytitle = "$txt{'135'}"; &template; exit; } sub SetCensor2 { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_censor != 1 ) { &fatal_error("$txt{'1'}"); } $FORM{'censored'} =~ tr/\r//d; $FORM{'censored'} =~ s~\A[\s\n]+~~; $FORM{'censored'} =~ s~[\s\n]+\Z~~; $FORM{'censored'} =~ s~\n\s*\n~\n~g; my @lines = split( /\n/, $FORM{'censored'} ); fopen(FILE, ">$vardir/censor.txt", 1); foreach my $i (@lines) { $i =~ tr/\n//d; unless( $i && $i =~ m~.+\=.+~ ) { next; } print FILE "$i\n"; } fclose(FILE); if ($settings[7] eq 'Global Moderator') { $yySetLocation = qq~$cgi\;action=moderate~; } else { $yySetLocation = qq~$cgi\;action=admin~; } &redirectexit; } sub SetReserve { my( @reserved, @reservecfg, $i ); &is_admin; fopen(FILE, "$vardir/reserve.txt"); @reserved = ; fclose(FILE); fopen(FILE, "$vardir/reservecfg.txt"); @reservecfg = ; fclose(FILE); for(my $i = 0; $i < @reservecfg; $i++) { chomp $reservecfg[$i]; } $yymain .= qq~
$txt{'341'}

$txt{'699'}
$txt{'342'}

$txt{'726'}
$txt{'727'}
$txt{'728'}
$txt{'729'}
~; $yytitle = "$txt{'341'}"; &template; exit; } sub SetReserve2 { &is_admin; $FORM{'reserved'} =~ tr/\r//d; $FORM{'reserved'} =~ s~\A[\s\n]+~~; $FORM{'reserved'} =~ s~[\s\n]+\Z~~; $FORM{'reserved'} =~ s~\n\s*\n~\n~g; fopen(FILE, ">$vardir/reserve.txt", 1); my $matchword = $FORM{'matchword'} eq 'checked' ? 'checked' : ''; my $matchcase = $FORM{'matchcase'} eq 'checked' ? 'checked' : ''; my $matchuser = $FORM{'matchuser'} eq 'checked' ? 'checked' : ''; my $matchname = $FORM{'matchname'} eq 'checked' ? 'checked' : ''; print FILE $FORM{'reserved'}; fclose(FILE); fopen(FILE, "+>$vardir/reservecfg.txt"); print FILE "$matchword\n"; print FILE "$matchcase\n"; print FILE "$matchuser\n"; print FILE "$matchname\n"; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } sub ModifyTemplate { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_edittemp != 1 ) { &fatal_error("$txt{'1'}"); } my( $fulltemplate, $line ); fopen(FILE, "$boarddir/template.html"); while( $line = ) { $line =~ s~[\r\n]~~g; &FromHTML; $fulltemplate .= qq~$line\n~; } fclose(FILE); $yymain .= qq~
$txt{'216'}

$txt{'682'}



~; $yytitle = "$txt{'216'}"; &template; exit; } sub ModifyTemplate2 { &is_admin_or_gmod; if ($settings[7] eq 'Global Moderator' && $allowgmod_edittemp != 1 ) { &fatal_error("$txt{'1'}"); } $FORM{'template'} =~ tr/\r//d; $FORM{'template'} =~ s~\A\n~~; $FORM{'template'} =~ s~\n\Z~~; fopen(FILE, ">$boarddir/template.html"); print FILE $FORM{'template'}; fclose(FILE); if ($settings[7] eq 'Global Moderator') { $yySetLocation = qq~$cgi\;action=moderate~; } else { $yySetLocation = qq~$cgi\;action=admin~; } &redirectexit; } sub ModifyAgreement { &is_admin; my( $fullagreement, $line ); fopen(FILE, "$vardir/agreement.txt"); while( $line = ) { $line =~ tr/[\r\n]//d; &FromHTML($line); $fullagreement .= qq~$line\n~; } fclose(FILE); $yymain .= qq~
$txt{'764'}

$txt{'765'}



~; $yytitle = "$txt{'764'}"; &template; exit; } sub ModifyAgreement2 { &is_admin; $FORM{'agreement'} =~ tr/\r//d; $FORM{'agreement'} =~ s~\A\n~~; $FORM{'agreement'} =~ s~\n\Z~~; fopen(FILE, ">$vardir/agreement.txt"); print FILE $FORM{'agreement'}; fclose(FILE); $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } sub ModifySettings { &is_admin; my($tlnomodflagchecked); my($tlnodelflagchecked); my($tllastmodflagchecked); my($mitemschecked, $notextmenuchecked); my ($chainmail_chk,$rtmods_chk,$rtglobals_chk,$rtadmins_chk); if ( $chain_mail eq '' ) { $chain_mail = 1; } if($imspam eq "off") {$imspam = "";} my($mainchecked, $guestaccchecked, $forcechecked, $blankchecked, $agreechecked, $mailpasschecked, $newpasschecked, $welchecked); my($menuchecked, $ubbcchecked, $aluchecked, $cpchecked, $pbchecked, $insertchecked, $newschecked, $gpchecked, $notifchecked); my ($uapchecked, $upchecked); my($ahmchecked, $slmchecked, $srbarchecked, $smbarchecked, $smreadchecked, $smodchecked, $supicchecked, $sutextchecked, $sgichecked); my($snfchecked, $fls1, $fls2, $fls3, $utfchecked, $truncchecked, $mts1, $mts2, $mts3, $tsl6, $tsl5, $tsl4, $tsl3, $tsl2, $tsl1); my($tsrchecked); my($smapguest_allow, $sview_flag, $sview_text, $sview_state, $smapsort_name, $smapsort_country, $smapsort_index, $sreq_location, $sview_mapgender); my($sred_pin, $sgreen_pin, $sblue_pin); my($sonly_adminpic); my($mdadchecked, $mdglchecked, $mdmochecked); my($gmodchecked, $disprealinfochecked, $hideadminchecked, $hidegmodchecked, $hidemodchecked); my($gmodedittemplate, $gmodeditcat, $gmodban, $gmodmaint, $gmodeditprof); # figure out what to print if ($mdadmin) { $mdadchecked = ' checked'; } if ($mdglobal) { $mdglchecked = ' checked'; } if ($mdmod) { $mdmochecked = ' checked'; } if ($tsreverse) { $tsrchecked = ' checked'; } if ($maintenance) { $mainchecked = ' checked'; } if ($tlnomodflag) { $tlnomodflagchecked = ' checked'; } if ($tlnodelflag) { $tlnodelflagchecked = ' checked'; } if ($tllastmodflag) { $tllastmodflagchecked = ' checked'; } if ($menuitems) { $mitemschecked = ' checked'; } if ($notextmenu) { $notextmenuchecked = ' checked'; } if ($chain_mail) { $chainmail_chk = ' checked'; } if ($auto_rtmods) { $rtmods_chk = ' checked'; } if ($auto_rtglobals) { $rtglobals_chk = ' checked'; } if ($auto_rtadmins) { $rtadmins_chk = ' checked'; } if ($guestaccess == 0) { $guestaccchecked = ' checked'; } if($RegAgree) { $agreechecked = " checked"; } if($emailpassword) { $mailpasschecked = " checked"; } if($emailnewpass) { $newpasschecked = " checked"; } if($emailwelcome) { $welchecked = " checked"; } if ($MenuType) { $menuchecked = ' checked'; } if ($allow_mod) { $gmodchecked = ' checked'; } if ($disprealinfo) { $disprealinfochecked = ' checked'; } if ($hideadmin) { $hideadminchecked = ' checked'; } if ($hidegmod) { $hidegmodchecked = ' checked'; } if ($hidemod) { $hidemodchecked = ' checked'; } if ($showgmod_info) {$gmodshowstats = ' checked'; } if ($allowgmod_censor) {$gmodshowcensor = ' checked'; } if ($allowgmod_edittemp) {$gmodedittemplate = ' checked'; } if ($allowgmod_editcat) {$gmodeditcat = ' checked'; } if ($allowgmod_ban) {$gmodban = ' checked'; } if ($allowgmod_news) {$gmodnews = ' checked'; } if ($allowgmod_maint) {$gmodmaint = ' checked'; } if ($allowgmod_editprof) {$gmodeditprof = ' checked'; } if ($enable_quickpost) { $quickpostchecked = ' checked'; } if ($enable_quickreply) { $quickreplychecked = ' checked'; } if ($enable_quicksmilies) { $quicksmilieschecked = ' checked'; } if ($enable_ubbc) { $ubbcchecked = ' checked'; } if ($tellfriendshowbottom) { $tellfriendshowbottomchecked = ' checked'; } if ($tellfriendshowtopimg) { $tellfriendshowtopimgchecked = ' checked'; } if ($autolinkurls) { $aluchecked = ' checked'; } if ($curposlinks) { $cpchecked = ' checked'; } if ($profilebutton) { $pbchecked = ' checked'; } if ($enable_news) { $newschecked = "checked" } if ($regop eq "0") { $standregs = "checked"; } elsif ($regop eq "1") { $adminregs = "checked"; } elsif($regop eq "3") { $confregs = "checked"; } elsif($regop eq "4") { $emailregs = "checked"; } else { $closeregs = "checked"; } if ($reglog) { $reglog = "checked" } if ($enable_guestposting) { $gpchecked = "checked" } if ($enable_notification == 1) { $ern1 = " selected" } elsif ($enable_notification == 2) { $ern2 = " selected" } elsif ($enable_notification == 3) { $ern3 = " selected" } else { $ern0 = " selected" } if ($enable_board_notify == 1) { $ebn1 = " selected" } elsif ($enable_board_notify == 2) { $ebn2 = " selected" } elsif ($enable_board_notify == 3) { $ebn3 = " selected" } else { $ebn0 = " selected" } if ($allow_hide_email) { $ahmchecked = "checked" } if ($showlatestmember) { $slmchecked = "checked" } if ($Show_RecentBar) { $srbarchecked = "checked" } ## WHOSON MOD START ## if ($Show_OnlineBar || $Show_OnlineBar eq "") { $onlbarchecked = "checked" } if ($Show_MostUsers) { $smuchecked = "checked" } if ($Show_WhosOn) { $swochecked = "checked" } if ($onlopt) { $whoon = "checked" } if ($adminwho) { $admindisplay = "checked" } ## WHOSON MOD END ## if ($showmarkread) { $smreadchecked = "checked" } if ($ss_advanced) { $ssadvchecked = ' checked'; } if ($showmodify) { $smodchecked = "checked" } if ($ShowBDescrip) { $bdescripchecked = "checked" } if ($showuserpic) { $supicchecked = "checked" } if ($showusertext) { $sutextchecked = "checked" } if ($enable_mailsounds) {$senablemailsounds = 'checked' } if ($enable_mailpopup) {$senablemailpopup = 'checked' } if ($enable_imlimit) {$senableimlimit = 'checked' } if ($send_welcomeim) {$send_welcomeimchecked = 'checked' } if ($enable_buddies) {$enable_buddieschecked = 'checked' } if ($popup_on) {$popup_onchecked = 'checked' } if ($system_im) {$system_imchecked = 'checked' } if ($showgenderimage) { $sgichecked = "checked" } if ($shownewsfader) { $snfchecked = "checked" } if ($showyabbcbutt) { $syabbcchecked = "checked" } $maxpq ||= 60; $maxpo ||= 50; $maxpc ||= 0; $numpolloptions ||= 8; if ($useraddpoll) { $uapchecked = " checked" } if ($ubbcpolls) { $upchecked = " checked" } if ($allowpics) { $allowpicschecked = "checked" } if ($showallgroups) { $showallgroupschecked = "checked" } if (!$OnlineLogTime) { $OnlineLogTime = "15" } if ($view_state) { $sview_state = "checked" } if ($mapsort_index) { $smapsort_index = "checked" } if ($mapsort eq "name") { $smapsort_name = 'checked' } else { $smapsort_country = 'checked' } if ($mapguest_allow) { $smapguest_allow = "checked" } if ($view_flag) { $sview_flag = "checked" } if ($view_text) { $sview_text = "checked" } if ($req_location) { $sreq_location = "checked" } if ($view_mapgender) { $sview_mapgender = "checked" } if ($mappin eq "rpin") { $sred_pin = 'checked' } elsif ($mappin eq "gpin") { $sgreen_pin = 'checked' } else { $sblue_pin = 'checked' } if ($use_flock == 0) { $fls1 = " selected" } elsif ($use_flock == 1) { $fls2 = " selected" } elsif ($use_flock == 2) { $fls3 = " selected" } if ($adminview == 0) { $am1 = " selected" } elsif ($adminview == 1) { $am2 = " selected" } elsif ($adminview == 2) { $am3 = " selected" } elsif ($adminview == 3) { $am4 = " selected" } if ($gmodview == 0) { $gm1 = " selected" } elsif ($gmodview == 1) { $gm2 = " selected" } elsif ($gmodview == 2) { $gm3 = " selected" } elsif ($gmodview == 3) { $gm4 = " selected" } if ($modview == 0) { $m1 = " selected" } elsif ($modview == 1) { $m2 = " selected" } elsif ($modview == 2) { $m3 = " selected" } elsif ($modview == 3) { $m4 = " selected" } $utfchecked = $usetempfile ? ' checked' : ''; $truncchecked = $faketruncation ? ' checked' : ''; if ($mailtype == 0) { $mts1 = ' selected'; } elsif ($mailtype == 1) { $mts2 = ' selected'; } elsif( $mailtype == 2 ) { $mts3 = ' selected'; } if ($timeselected == 6) { $tsl6 = " selected" } elsif ($timeselected == 5) { $tsl5 = " selected" } elsif ($timeselected == 4) { $tsl4 = " selected" } elsif ($timeselected == 3) { $tsl3 = " selected" } elsif ($timeselected == 2) { $tsl2 = " selected" } else { $tsl1 = " selected" } if ($only_adminpic) { $sonly_adminpic = 'checked' } $imtext =~ s/\&\&/\n/g; $imtext =~ s/\<//g; $imsubject =~ s/\&\&/\n/g; $imsubject =~ s/\<//g; $yymain .= qq~
~; if($soundsdir && opendir(DIR, "$soundsdir")) { opendir(DIR, "$soundsdir") || fatal_error("$txt{'230'} ($soundsdir)!
$imtxt{'27'}"); @contents = readdir(DIR); closedir(DIR); $sounds = ""; if ($sound eq "blank.wav" || $sound eq "") { $sounds = qq~ ~; } else { $yymain .= qq~~; } $yymain .= qq~
$txt{'222'}

$txt{'347'}
$txt{'350'}
$txt{'351'}
$txt{'349'}
$txt{'348'}
$txt{'348Text'}
$txt{'632'}
$txt{'380'}
$txt{'432'}
$txt{'352'}
$txt{'353'}
$regtxt{'15'}
$regtxt{'13'}
$regtxt{'03'}
$regtxt{'31'}
$regtxt{'01'}
$regtxt{'21'}
$txt{'584'}
$txt{'702'}
$txt{'639'}
$txt{'619'}
$txt{'354'}
$txt{'407'}
$txt{'355'}
$txt{'404'}
$rtm{'28a'}
$rtm{'28b'}
$rtm{'29a'}
$rtm{'29b'}
$rtm{'30a'}
$rtm{'30b'}
$rtm{'31a'}
$rtm{'31b'}
$txt{'356'}
$txt{'357'}
$txt{'358'}
$txt{'359'}
$txt{'360'}
$txt{'361'}
$txt{'362'}
$imtxt{'25'}
$imtxt{'26'}
$txt{'423'}
$txt{'363'}
$mfstxt{'23'}
$mfstxt{'24'}
$txt{'390'}
$txt{'506'}
$txt{'364'}
$txt{'784'}
$txt{'389'}
$tsreverse{'1'}
$cutts{'1'}
$txttellfriend{'720'}
$txttellfriend{'720a'}
$txt{'521'}
$menuitemstxt{'20'}
$menuitemstxt{'28'}
$txt{'522'}
$txt{'523'}
$txt{'382'}
$txt{'387'}
$txt{'388'}
$txt{'509'}
$txt{'618'}
$txt{'623a'}
$txt{'732'}
$txt{'383'}
$timelocktxt{'03'}
$timelocktxt{'04'}
$timelocktxt{'07'}
$timelocktxt{'08'}
$timelocktxt{'05'}
$timelocktxt{'06'}
$txt{'384'}
$txt{'385'}
$txt{'386'}
$txt{'740'}
$mosttxt{'04'}
$mosttxt{'05'}
$who{'101'}
$who{'102'}
$who{'104'}
$who{'110'}
$txt{'587'}
$txt{'371'}
$qrb_txt{'3'}
$qrb_txt{'4'}
$qrb_txt{'5'}
$txt{'378'}
$txt{'524'}
$txt{'379'}
$mdintxt{'1'}
$mdintxt{'2'}		   
$txt{'498'}
$matxt{'5'}:
$matxt{'6'}:
$matxt{'7'}:
$polltxt{'28'}
$polltxt{'61'}
$polltxt{'62'}
$polltxt{'63'}
$polltxt{'29'}
$polltxt{'60'}
$txt{'746'}
$bln_txt{'11'}
$bln_txt{'12'}
$txt{'723'}
$txt{'689'}
$txt{'408'}
$imtxt{'75'}
$imtxt{'52'}
$imtxt{'43'}
$imtxt{'30'}
$imtxt{'76'}
$imtxt{'05'}
$imtxt{'44'}
$imtxt{'06'}
$imtxt{'03'} $txt{'320'}
$imtxt{'03'} $txt{'316'}
$imtxt{'03'} $imtxt{'46'}
$imtxt{'33'}
$imtxt{'86'}
$imtxt{'34'}
$imtxt{'36'}
$imtxt{'35'}
$siztxt{'07'}
$txt{'476'} $siztxt{'05'} $siztxt{'06'}
$siztxt{'04'} $siztxt{'05'} $siztxt{'06'}
$txt{'478'}
$amv_txt{'12'}
MemberGroups Options
$amgtxt{'35'}
$txt{'gmod3'}
$amgtxt{'40'}
$amgtxt{'41'}
$amgtxt{'39'}
$txt{'gmod8'}
$txt{'gmod9'}
$txt{'gmod10'}
$txt{'gmod11'}
$txt{'gmod12'}
$amgtxt{'36'}
$amgtxt{'37'}
$amgtxt{'38'}
AMM 1.5 
 
$maptxt{'01'}
$maptxt{'27'}
$maptxt{'23'}
$maptxt{'15'}
$maptxt{'16'} $maptxt{'17'}   $maptxt{'18'}
$maptxt{'13'}
$maptxt{'14'} $maptxt{'28'} $maptxt{'29'}
$maptxt{'30'}
$maptxt{'31'}    
MemberMap 2.7  
 
$txt{'372'}
$txt{'373'}
$txt{'374'}
$txt{'375'}
$txt{'690'}
$amv_txt{'13'}
$txt{'376'}
$txt{'392'}
$txt{'393'}
$txt{'607'}
$txt{'391'}
$txt{'615'}
$txt{'630'}

~; $yytitle = $txt{'222'}; &template; exit; } sub GetBoardURL { my $url = 'http://' . ($ENV{'HTTP_HOST'} ? $ENV{'HTTP_HOST'} : $ENV{'SERVER_NAME'}) . ($ENV{'SERVER_PORT'} != 80 ? ":$ENV{'SERVER_PORT'}" : '') . $ENV{'SCRIPT_NAME'}; $url =~ s~/[^/]+\Z~/~; return $url; } # Gets our current absolute path. Needed for error messages. sub GetDirPath { eval 'use Cwd; $cwd = cwd();'; unless( $cwd ) { $cwd = `pwd`; chomp $cwd; } unless($cwd) { $cwd = $0 || $ENV{'PWD'} || $ENV{'CWD'} || ( $ENV{'DOCUMENT_ROOT'} . '/' . $ENV{'SCRIPT_NAME'} || $ENV{'PATH_INFO'} ); } $cwd =~ tr~\\~/~; $cwd =~ s~\A(.+)/\Z~$1~; $cwd =~ s~\A(.+)/YaBB\.\w+\Z~$1~i; return $cwd; } sub is_exe { my ($cmd,$name); foreach $cmd (@_) { $name = ($cmd =~ /^(\S+)/)[0]; # remove any options return ($cmd) if (-x $name and ! -d $name and $name =~ m:/:); # check for absolute or relative path if (defined $ENV{PATH}) { my $dir; foreach $dir (split(/:/, $ENV{PATH})) { return "$dir/$cmd" if (-x "$dir/$name" && ! -d "$dir/$name"); } } } 0; } sub ModifySettings2 { &is_admin; my @onoff = qw/ allowpics showyabbcbutt showbdescrip maintenance guestaccess insert_original enable_ubbc enable_news enable_guestposting enable_notification showlatestmember showrecentbar showmarkread showmodify showuserpic showusertext showgenderimage shownewsfader MenuType curposlinks profilebutton autolinkurls emailpassword RegAgree emailwelcome allow_hide_email usetempfile faketruncation emailnewpass/; push(@onoff, "tsreverse"); push(@onoff, "useraddpoll", "ubbcpolls", "pollcomments"); push(@onoff, "mdadmin", "mdglobal", "mdmod"); push(@onoff, "enable_mailsounds", "enable_mailpopup", "enable_imlimit", "numibox", "numobox", "send_welcomeim", "enable_buddies", "enable_rim", "numposts", "popup_on", "system_im"); push(@onoff, "only_adminpic"); push(@onoff, "view_state", "mapsort_index", "mapsort", "mapguest_allow", "view_flag", "view_text", "req_location", "view_mapgender", "rpin", "gpin", "bpin"); if ( $FORM{chain_mail} eq 'on' ) { $chain_mail = 1; } else { $chain_mail = 0; } if ( $FORM{auto_rtmods} eq 'on' ) { $auto_rtmods = 1; } else { $auto_rtmods = 0; } if ( $FORM{auto_rtglobals} eq 'on' ) { $auto_rtglobals = 1; } else { $auto_rtglobals = 0; } if ( $FORM{auto_rtadmins} eq 'on' ) { $auto_rtadmins = 1; } else { $auto_rtadmins = 0; } push(@onoff, "regoption", "reglog"); push(@onoff, "tellfriendshowbottom"); push(@onoff, "tellfriendshowtopimg"); push(@onoff, "menuitems"); push(@onoff, "notextmenu"); push(@onoff, "tlnomodflag"); push(@onoff, "tlnodelflag"); push(@onoff, "tllastmodflag"); ## WHOSON MOD START ## push(@onoff, "showonlinebar", "showmostusers", "showwhoson", "onlopt", "adminwho"); ## WHOSON MOD END ## # Set as 0 or 1 if box was checked or not my $fi; map { $fi = lc $_; ${$_} = $FORM{$fi} eq 'on' ? 1 : 0; } @onoff; $enable_quickpost = $FORM{'enable_quickpost'} ? 1 : 0; $enable_quickreply = $FORM{'enable_quickreply'} ? 1 : 0; $enable_quicksmilies = $FORM{'enable_quicksmilies'} ? 1 : 0; $guestaccess = $guestaccess ? 0 : 1; $ss_advanced = $FORM{'ss_advanced'} ? 1 : 0; # If empty fields are submitted, set them to default-values to save yabb from crashing $tellfriendshowbottom = $FORM{'tellfriendshowbottom'} || 0; $tellfriendshowtopimg = $FORM{'tellfriendshowtopimg'} || 0; $maintenancetext = $FORM{'maintenancetext'} || ""; $tlnomodtime = $FORM{'tlnomodtime'} || "0"; $tlnodeltime = $FORM{'tlnodeltime'} || "0"; $tllastmodtime = $FORM{'tllastmodtime'} || "0"; &ToHTML($maintenancetext); $allow_mod = $FORM{'allow_mod'} || 0; $disprealinfo = $FORM{'oldskool'} || 0; $hideadmin = $FORM{'hideadmin'} || 0; $hidegmod = $FORM{'hidegmod'} || 0; $hidemod = $FORM{'hidemod'} || 0; $showgmod_info = $FORM{'showgmod_info'} || 0; $allowgmod_censor = $FORM{'allowgmod_censor'} || 0; $allowgmod_edittemp = $FORM{'allowgmod_edittemp'} || 0; $allowgmod_editcat = $FORM{'allowgmod_editcat'} || 0; $allowgmod_ban = $FORM{'allowgmod_ban'} || 0; $allowgmod_news = $FORM{'allowgmod_news'} || 0; $allowgmod_maint = $FORM{'allowgmod_maint'} || 0; $allowgmod_editprof = $FORM{'allowgmod_editprof'} || 0; $mdadmin = $FORM{'mdadmin'} || 0; $mdglobal = $FORM{'mdglobal'} || 0; $mdmod = $FORM{'mdmod'} || 0; ## WHOSON MOD START ## $whotime = $FORM{'whotime'} || 30; ## WHOSON MOD END ## $timeout = $FORM{'timeout'} || 5; $fadertime = $FORM{'fadertime'} || 5000; $timeselected = $FORM{'timeselect'} || 0; $mapsort = $FORM{'mapsort'} || 'name'; $mappin = $FORM{'mappin'} || 'rpin'; $enable_board_notify = $FORM{'enable_board_notify'} || 0; $enable_notification = $FORM{'enable_notification'} || 0; $timeoffset = $FORM{'timeoffset'} || 0; $TopAmmount = $FORM{'TopAmmount'} || 25; $MembersPerPage = $FORM{'MembersPerPage'} || 20; $maxdisplay = $FORM{'maxdisplay'} || 20; $maxmessagedisplay = $FORM{'maxmessagedisplay'} || 20; $max_log_days_old = $FORM{'max_log_days_old'} || 21; $clicklogtime = $FORM{'clicklogtime'} || 1440; if($clicklogtime >= 1440) { $clicklogtime = 1439; } $OnlineLogTime = $FORM{'OnlineLogTime'} || 15; if($OnlineLogTime >= 1440) { $OnlineLogTime = 1439; } $use_flock = $FORM{'use_flock'} || 0; $regoption = $FORM{'regoption'} || 0; $adminview = $FORM{'adminview'} || 0; $gmodview = $FORM{'gmodview'} || 0; $modview = $FORM{'modview'} || 0; $LOCK_EX = $FORM{'LOCK_EX'} || 2; $LOCK_UN = $FORM{'LOCK_UN'} || 8; $LOCK_SH = $FORM{'LOCK_SH'} || 1; $Cookie_Length = $FORM{'cookielength'} || 60; $cookieusername = $FORM{'cookieusername'} || 'YaBBusername'; $cookiepassword = $FORM{'cookiepassword'} || 'YaBBpassword'; if ($cookieusername eq $cookiepassword) {$cookieusername = 'YaBBusername'; $cookiepassword = 'YaBBpassword';} $maxmesslen = $FORM{'maxmesslen'} || 5000; $numpolloptions = $FORM{'numpolloptions'} || 8; $maxpq = $FORM{'maxpq'} || 60; $maxpo = $FORM{'maxpo'} || 50; $maxpc = $FORM{'maxpc'} || 0; $maxsiglen = $FORM{'maxsiglen'} || 200; $language = $FORM{'language'} || 'english.lng'; $showallgroups = $FORM{'showallgroups'} ? 1 : 0; $mbname = $FORM{'mbname'} || 'My YaBB 1 Gold - SP1'; $mbname =~ s/\"/\'/g; $boardurl = $FORM{'boardurl'} || &GetBoardURL; $boarddir = $FORM{'boarddir'} || &GetDirPath; $boardsdir = $FORM{'boardsdir'} || "$boarddir/Boards"; $datadir = $FORM{'datadir'} || "$boarddir/Messages"; $memberdir = $FORM{'memberdir'} || "$boarddir/Members"; $sourcedir = $FORM{'sourcedir'} || "$boarddir/Sources"; $vardir = $FORM{'vardir'} || "$boarddir/Variables"; $facesdir = $FORM{'facesdir'} || "$boarddir/YaBBImages/avatars"; $facesurl = $FORM{'facesurl'} || "$boardurl/YaBBImages/avatars"; $soundsdir = $FORM{'soundsdir'} || "$boarddir/sounds"; $soundsurl = $FORM{'soundsurl'} || "$boardurl/sounds"; $numposts = $FORM{'numposts'} || 0; $sounds_on = $FORM{'sounds_on'} || "blank.wav"; $numibox = $FORM{'numibox'} || 20; $numobox = $FORM{'numobox'} || 20; $numstore = $FORM{'numstore'} || 20; $sendname = $FORM{'sendname'} || System; $imspam = $FORM{'imspam'} || off; $FORM{'imtext'} =~ s~\n~\&\&~g; $imtext = $FORM{'imtext'} || "Welcome in our community"; $imtext =~ s~\A\s+~~; $imtext =~ s~\s+\Z~~; $imtext =~ s~[\n\r]~~g; $imtext =~ s~"~\\"~g; $imtext =~ s~@~\\@~g; $imsubject = $FORM{'imsubject'} || "Welcome to $mbname"; $imsubject =~ s~"~\\"~g; $imsubject =~ s~[\n\r]~~g; $imsubject =~ s~\~~gi; $imsubject =~ s~\A\s+~~; $imsubject =~ s~\s+\Z~~; $imagesdir = $FORM{'imagesdir'} || "$boardurl/YaBBImages"; $helpfile = $FORM{'helpfile'} || "$boardurl/YaBBHelp/index.html"; $mailprog = $FORM{'mailprog'} || &is_exe('/usr/lib/sendmail','/usr/sbin/sendmail','/usr/ucblib/sendmail','sendmail','mailx','Mail','mail'); $smtp_server = $FORM{'smtp_server'} || '127.0.0.1'; $webmaster_email = $FORM{'webmaster_email'} || 'webmaster@mysite.com'; $mailtype = $FORM{'mailtype'} || 0; $color{'fadertext'} = $FORM{'fadertext'} || '#D4AD00'; $tsreverse = $FORM{'tsreverse'} || 0; $cutamount = $FORM{'cutamount'} || '10'; $backimagesdir = $FORM{'backimagesdir'} || "../../YaBBImages/background"; $backimagesurl = $FORM{'backimagesurl'} || "$boardurl/YaBBImages/background"; $faderpath = $FORM{'faderpath'} || "$boardurl/fader.js"; $ubbcjspath = $FORM{'ubbcjspath'} || "$boardurl/ubbc.js"; if ($FORM{'userpic_width'} =~ /\d+/) { $userpic_width = $FORM{'userpic_width'}; } else { $userpic_width = 65; } if ($FORM{'userpic_height'} =~ /\d+/) { $userpic_height = $FORM{'userpic_height'}; } else { $userpic_height = 65; } if ($FORM{'postuserpic_width'} =~ /\d+/) { $postuserpic_width = $FORM{'postuserpic_width'}; } else { $postuserpic_width = 65; } if ($FORM{'postuserpic_height'} =~ /\d+/) { $postuserpic_height = $FORM{'postuserpic_height'}; } else { $postuserpic_height = 65; } $userpic_limits = $FORM{'userpic_limits'} || 'Please note that your image has to be gif or jpg and that it will be resized!'; $userpic_limits =~ s/\"/\'/g; my $filler = q~ ~; my $setfile = << "EOF"; ############################################################################### # Settings.pl # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBB 1 Gold - SP 1.3.1 # # Released: December 2001; Updated April 18, 2003 # # Distributed by: http://www.yabbforum.com # # =========================================================================== # # Copyright (c) 2000-2003 YaBB (www.yabbforum.com) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # # Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com # ############################################################################### ########## Board Info ########## # Note: these settings must be properly changed for YaBB to work \$maintenance = $maintenance; # Set to 1 to enable Maintenance mode \$guestaccess = $guestaccess; # Set to 0 to disallow guests from doing anything but login or register \$language = "$language"; # Change to language pack you wish to use \$mbname = q^$mbname^; # The name of your YaBB forum \$boardurl = "$boardurl"; # URL of your board's folder (without trailing '/') \$Cookie_Length = $Cookie_Length; # Default minutes to set login cookies to stay for \$cookieusername = "$cookieusername"; # Name of the username cookie \$cookiepassword = "$cookiepassword"; # Name of the password cookie \$RegAgree = $RegAgree; # Set to 1 to display the registration agreement when registering \$emailpassword = $emailpassword; # 0 - instant registration. 1 - password emailed to new members \$emailnewpass = $emailnewpass; # Set to 1 to email a new password to members if they change their email address \$emailwelcome = $emailwelcome; # Set to 1 to email a welcome message to users even when you have mail password turned off \$mailprog = "$mailprog"; # Location of your sendmail program \$smtp_server = "$smtp_server"; # Address of your SMTP-Server \$webmaster_email = q^$webmaster_email^; # Your email address. (eg: \$webmaster_email = q^admin\@host.com^;) \$mailtype = $mailtype; # Mail program to use: 0 = sendmail, 1 = SMTP, 2 = Net::SMTP \$chain_mail = $chain_mail; # If true reports will be sent up the chain of command (moderators, globals then admins) \$auto_rtmods = $auto_rtmods; # If true reports will be always sent to moderators \$auto_rtglobals = $auto_rtglobals; # If true reports will always be sent to global mods \$auto_rtadmins = $auto_rtadmins; # If true reports will always be sent to administrators ########## Directories/Files ########## # Note: directories other than \$imagesdir do not have to be changed unless you move things \$boarddir = "$boarddir"; # The server path to the board's folder (usually can be left as '.') \$boardsdir = "$boardsdir"; # Directory with board data files \$datadir = "$datadir"; # Directory with messages \$memberdir = "$memberdir"; # Directory with member files \$sourcedir = "$sourcedir"; # Directory with YaBB source files \$vardir = "$vardir"; # Directory with variable files \$facesdir = "$facesdir"; # The server path to your avatars (userpics) folder \$facesurl = "$facesurl"; # URL to your avatars folder \$soundsdir = "$soundsdir"; # Absolute Path to your sounds folder \$soundsurl = "$soundsurl"; # URL to your sounds folder \$imagesdir = "$imagesdir"; # URL to your images folder \$ubbcjspath = "$ubbcjspath"; # URL to your 'ubbc.js' (REQUIRED for post/modify to work properly) \$faderpath = "$faderpath"; # URL to your 'fader.js' \$helpfile = "$helpfile"; # URL to your help file ########## Colors ########## # Note: equivalent to colors in CSS tag of template.html, so set to same colors preferrably # for browsers without CSS compatibility and for some items that don't use the CSS tag \$color{'fadertext'} = "$color{'fadertext'}"; # Color of text in the NewsFader (news color) \$cutamount = "$FORM{'cutamount'}"; \$tsreverse = $tsreverse; \$backimagesdir = "$backimagesdir"; # Absolute Path to your background images folder \$backimagesurl = "$backimagesurl"; # URL to your background images folder ########## Layout ########## \$maintenancetext = "$maintenancetext"; # User-defined text for Maintenance mode (leave blank for default text) \$MenuType = $MenuType; # 1 for text menu or anything else for images menu \$menuitems = $menuitems; # Set to 1 to use MenuItems menu, 666 to use default menu \$notextmenu = $notextmenu; # Set to 1 to hide text on MenuItems Menu, 0 to show text \$curposlinks = $curposlinks; # 1 for links in navigation on current page, or 0 for text without link \$profilebutton = $profilebutton; # 1 to show view profile button under post, or 0 for blank \$timeselected = $timeselected; # Select your preferred output Format of Time and Date \$allow_hide_email = $allow_hide_email; # Allow users to hide their email from public. Set 0 to disable \$req_location = $req_location; # Set to 1 to require location on registration \$view_state = $view_state; # Set to 0 to disallow State/Region selection in Member Map \$mapsort_index = $mapsort_index; # Set to 0 to hide index-headers in name-list in Member Map \$mapsort = $mapsort; # Set to country or name to sort name-list in Member Map by Country or Name \$mapguest_allow = $mapguest_allow; # Set to 0 to disallow guests to view Member Map \$view_flag = $view_flag; # Set to 0 to hide flags in Posts and Profile \$view_text = $view_text; # Set to 0 to hide location in Posts and Profile \$view_mapgender = $view_mapgender; # Set to 0 to hide location in Posts and Profile \$mappin = $mappin; # Set to rpin for red pins, gpin for green pins or bpin for blue pins on Member Map \$only_adminpic = $only_adminpic; # Set to 0 to allow others than Admin to show own Picture in Posts and Profile \$showlatestmember = $showlatestmember; # Set to 1 to display "Welcome Newest Member" on the Board Index \$shownewsfader = $shownewsfader; # 1 to allow or 0 to disallow NewsFader javascript on the Board Index # If 0, you'll have no news at all unless you put tag # back into template.html!!! \$Show_RecentBar = $showrecentbar; # Set to 1 to display the Recent Post on Board Index ## WHOSON MOD START ## \$Show_OnlineBar = $showonlinebar; # Set to 1 to display the Who's Online List table row on Board Index \$Show_MostUsers = $showmostusers; # Set to 1 to display the Line with Most Users Online in the Who's Online List \$Show_WhosOn = $showwhoson; # Set to 1 to add the text Who's Online to your YaBB menu \$onlopt = $onlopt; # Set to 1 to enable Online Overview for all \$adminwho = $adminwho; # Set to 1 to enable the actions display in the Online Overview \$whotime = $whotime; # Number of Seconds to refresh the Online table ## WHOSON MOD END ## \$showmarkread = $showmarkread; # Set to 1 to display and enable the mark as read buttons \$ss_advanced = $ss_advanced; # Set to 1 if you want to use the advanced split/splice function \$showmodify = $showmodify; # Set to 1 to display "Last modified: Realname - Date" under each message \$tlnomodflag = $tlnomodflag; # Set to 1 limit time users may modify posts \$tlnomodtime = $tlnomodtime; # Time limit on modifying posts (days) \$tlnodelflag = $tlnodelflag; # Set to 1 limit time users may delete posts \$tlnodeltime = $tlnodeltime; # Time limit on deleting posts (days) \$tllastmodflag = $tllastmodflag; # Set to 1 allow users to modify posts up to the specified time limit w/o showing "last Edit" message \$tllastmodtime = $tllastmodtime; # Time limit to modify posts w/o triggering "last Edit" message (in minutes) \$ShowBDescrip = $showbdescrip; # Set to 1 to display board descriptions on the topic (message) index for each board \$showuserpic = $showuserpic; # Set to 1 to display each member's picture in the message view (by the ICQ.. etc.) \$showusertext = $showusertext; # Set to 1 to display each member's personal text in the message view (by the ICQ.. etc.) \$showgenderimage = $showgenderimage; # Set to 1 to display each member's gender in the message view (by the ICQ.. etc.) \$showyabbcbutt = $showyabbcbutt; # Set to 1 to display the yabbc buttons on Posting and IM Send Pages \$enable_buddies = $enable_buddies; # Set to 1 to enable the BuddyList for users \$enable_mailsounds = $enable_mailsounds; # Set to 1 to enable info-sounds on new private messages \$sound = \"$sounds_on\"; # Set to 1 to enable Sound as default for new regged users \$enable_mailpopup = $enable_mailpopup; # Set to 1 to enable info-popup on new private messages \$popup_on = $popup_on; # Set to 1 to enable Popups as default for new regged users \$enable_imlimit = $enable_imlimit; # Set to 1 to enable limitation of incoming and outgoing im messages ########## Automated IM Settings ########## \$imtext = qq~$imtext~; \$sendname = qq~$sendname~; \$imsubject = "$imsubject"; \$send_welcomeim = $send_welcomeim; # Set to 1 to enable welcome im's \$system_im = $system_im; # Set to 1 to disable answering of welcome im's ######## AMM Feature Settings ######## \$disprealinfo = $disprealinfo; # Set to 1 to use YaBBs original MemberGroup display in posts \$hideadmin = $hideadmin; # Set to 1 to disable showing Admin Status in Posts and IMs \$hidegmod = $hidegmod; # Set to 1 to disable showing Global Mod Status in Posts and IMs \$hidemod = $hidemod; # Set to 1 to disable showing Moderato Status in Posts \$allow_mod = $allow_mod; # Set to 1 to activate a "Global Moderators - Center" \$allowgmod_news = $allowgmod_news; # Set to 1 to let Global Moderators edit the news \$showgmod_info = $showgmod_info; # Set to 1 to let Global Moderators see board statistics \$allowgmod_censor = $allowgmod_censor; # Set to 1 to let Global Moderators edit censored words \$allowgmod_edittemp = $allowgmod_edittemp; # Set to 1 to let Global Moderators edit the forum template \$allowgmod_editcat = $allowgmod_editcat; # Set to 1 to let Global Moderators edit the forum boards and categories \$allowgmod_ban = $allowgmod_ban; # Set to 1 to let Global Moderators edit the ban list \$allowgmod_maint = $allowgmod_maint; # Set to 1 to let Global Moderators perform routine forum maintenance \$allowgmod_editprof = $allowgmod_editprof; # Set to 1 to let Global Moderators edit non-security related profile items ########## Feature Settings ########## \$mdadmin = $mdadmin; \$mdglobal = $mdglobal; \$mdmod = $mdmod; \$enable_quickpost = $enable_quickpost; # Set to 1 if you want to enable the quick post box \$enable_quickreply = $enable_quickreply; # Set to 1 if you want to enable the quick reply box \$enable_quicksmilies = $enable_quicksmilies; # Set to 1 if you want to show smilies in the quick reply box \$tellfriendshowbottom = $tellfriendshowbottom; # Set to 1 if want to display the tell a friend form at the bottom of the forum index \$tellfriendshowtopimg = $tellfriendshowtopimg; # Set to 1 to add a link to yabb menu \$enable_ubbc = $enable_ubbc; # Set to 1 if you want to enable UBBC (Uniform Bulletin Board Code) \$enable_news = $enable_news; # Set to 1 to turn news on, or 0 to set news off \$regop = $regoption; # Choose your Register Option: admin; close or stand \$reglog = $reglog; # Set to 1 if you want to enable logfiles for admin registrations \$allowpics = $allowpics; # set to 1 to allow members to choose avatars in their profile \$enable_guestposting = $enable_guestposting; # Set to 0 if do not allow 1 is allow. \$enable_board_notify = $enable_board_notify; # Allow e-mail notification of new topics (0=none, 1=notify of every thread, 2=notify once, 3=user selectable) \$enable_notification = $enable_notification; # Allow e-mail notification of replies (0=none, 1=notify of every reply, 2=notify once, 3=user selectable) \$autolinkurls = $autolinkurls; # Set to 1 to turn URLs into links, or 0 for no auto-linking. \$timeoffset = $timeoffset; # Time Offset (so if your server is EST, this would be set to -1 for CST) \$TopAmmount = $TopAmmount; # No. of top posters to display on the top members list \$MembersPerPage = $MembersPerPage; # No. of members to display per page of Members List - All \$maxdisplay = $maxdisplay; # Maximum of topics to display \$maxmessagedisplay = $maxmessagedisplay; # Maximum of messages to display \$MaxMessLen = $maxmesslen; # Maximum Allowed Characters in a Posts \$numpolloptions = $numpolloptions; # Number of poll options \$maxpq = $maxpq; # Maximum Allowed Characters in a Poll Qestion? \$maxpo = $maxpo; # Maximum Allowed Characters in a Poll Option? \$maxpc = $maxpc; # Maximum Allowed Characters in a Poll Comment? \$useraddpoll = $useraddpoll; # Allow users to add polls to existing threads? (1 = yes) \$ubbcpolls = $ubbcpolls; # Allow UBBC tags and smilies in polls? (1 = yes) \$MaxSigLen = $maxsiglen; # Maximum Allowed Characters in Signatures \$ClickLogTime = $clicklogtime; # Time in minutes to log every click to your forum (longer time means larger log file size) \$OnlineLogTime = $OnlineLogTime; # Time in minutes before users are removed from the online log \$max_log_days_old = $max_log_days_old; # If an entry in the user's log is older than ... days remove it # Set to 0 if you want it disabled \$fadertime = $fadertime; # Length in milliseconds to delay between each item in the news fader \$timeout = $timeout; # Minimum time between 2 postings from the same IP \$numposts = $numposts; # Number of posts required to send Instant Messages \$imspam = $imspam; # Percent of Users a user is a allowed to send a message at once \$numibox = $numibox; # Number of maximum Messages in the IM-Inbox \$numobox = $numobox; # Number of maximum Messages in the IM-Outbox \$numstore = $numstore; # Number of maximum Messages in the Storage box \$showallgroups = $showallgroups; # Select membergroups to show in memberview (0 = assigned membergroups only , 1 = assigned and post dependant membergroups) ########## MemberPic Settings ########## \$userpic_width = $userpic_width; # Set pixel size to which the selfselected userpics are resized, 0 disables this limit \$userpic_height = $userpic_height; # Set pixel size to which the selfselected userpics are resized, 0 disables this limit \$postuserpic_width = $postuserpic_width; # Set pixel size to which the selfselected userpics in posts are resized, 0 disables this limit \$postuserpic_height = $postuserpic_height; # Set pixel size to which the selfselected userpics in posts are resized, 0 disables this limit \$userpic_limits = qq~$userpic_limits~; # Text To Describe The Limits ########## Multi-admin Settings ########## \$adminview = $adminview; # Multi-admin settings for Administrators: 0=none, 1=icons 2=single checkbox 3=multiple checkboxes \$gmodview = $gmodview; # Multi-admin settings for Global Moderators: 0=none, 1=icons 2=single checkbox 3=multiple checkboxes \$modview = $modview; # Multi-admin settings for Moderators: 0=none, 1=icons 2=single checkbox 3=multiple checkboxes ########## File Locking ########## \$LOCK_EX = $LOCK_EX; # You can probably keep this as it is set now. \$LOCK_UN = $LOCK_UN; # You can probably keep this as it is set now. \$LOCK_SH = $LOCK_SH; # You can probably keep this as it is set now. \$use_flock = $use_flock; # Set to 0 if your server doesn't support file locking, # 1 for Unix/Linux and WinNT, and 2 for Windows 95/98/ME \$usetempfile = $usetempfile; # Write to a temporary file when updating large files. # This can potentially save your board index files from # being corrupted if a process aborts unexpectedly. # 0 to disable, 1 to enable. \$faketruncation = $faketruncation; # Enable this option only if YaBB fails with the error: # "truncate() function not supported on this platform." # 0 to disable, 1 to enable. 1; EOF $setfile =~ s~(.+\;)\s+(\#.+$)~$1 . substr( $filler, 0, (70-(length $1)) ) . $2 ~gem; $setfile =~ s~(.{64,}\;)\s+(\#.+$)~$1 . "\n " . $2~gem; $setfile =~ s~^\s\s\s+(\#.+$)~substr( $filler, 0, 70 ) . $1~gem; fopen(FILE, ">$boarddir/Settings.pl"); print FILE $setfile; fclose(FILE); $password = crypt($settings[0],$pwseed); $Cookie_Exp_Date = 'Sunday, 17-Jan-2038 00:00:00 GMT'; $yySetCookies1 = cookie(-name => "$cookieusername", -value => "$username", -path => "/", -expires => "$Cookie_Exp_Date"); $yySetCookies2 = cookie(-name => "$cookiepassword", -value => "$password", -path => "/", -expires => "$Cookie_Exp_Date"); &LoadIMs; &LoadUserSettings; &WriteLog; $yySetLocation = qq~$cgi;action=admin~; &redirectexit; } 1;