#########################################################################
# AClinksAdmin.pl 1.0 #
#########################################################################
# YaBB: Yet another Bulletin Board # #
# Open-Source Community Software for Webmasters #
# Version: YaBB 2 # #
# Released: May 21, 2006 # #
# Distributed by: http://www.castlesfamilystore.com # #
# ===================================================================== #
# Written by BlogTripper #
#########################################################################
if($action eq 'detailedversion') { return 1; }
require "$vardir/AClinks.txt";
&LoadLanguage("AClinks");
if($action eq 'detailedversion') { return 1; }
require "$vardir/AClinks.txt";
&LoadLanguage("AClinks");
Sub AClinks {
$yymain .= qq~
$AClinks_txt{'1'}
|
$AClinkc_txt{'2'}
|
~;
}
sub AClinks2 {
&LoadCookie; # Load the user's cookie (or set to guest)
&LoadUserSettings;
if (!$iamadmin) { &admin_fatal_error("$maintxt{'1'}"); }
$AClinkTitle = $FORM{'AClinkTitle'};
$AClinks = $FORM{'AClinks'};
$AClinkTitle1 = $FORM{'AClinkTitle1'};
$AClinks1 = $FORM{'AClinks1'};
$AClinkTitle2 = $FORM{'AClinkTitle2'};
$AClinks2 = $FORM{'AClinks2'};
$AClinkTitle3 = $FORM{'AClinkTitle3'};
$AClinks3 = $FORM{'AClinks3'};
$AClinkTitle4 = $FORM{'AClinkTitle4'};
$AClinks4 = $FORM{'AClinks4'};
$AClinkTitle5 = $FORM{'AClinkTitle5'};
$AClinks5 = $FORM{'AClinks5'};
$AClinkTitle6 = $FORM{'AClinkTitle6'};
$AClinks6 = $FORM{'AClinks6'};
$AClinkTitle7 = $FORM{'AClinkTitle7'};
$AClinks7 = $FORM{'AClinks7'};
$AClinkTitle8 = $FORM{'AClinkTitle8'};
$AClinks8 = $FORM{'AClinks8'};
$AClinkTitle9 = $FORM{'AClinkTitle9'};
$AClinks9 = $FORM{'AClinks9'};
}
sub AClinksSET {
&is_admin_or_gmod;
if ($AClinks_en) {
$chkAClinks = 'checked="checked" ';
}
$yymain .= qq~
~;
$yytitle = $admin_txt{'222'};
$action_area = "AClinks";
&AdminTemplate;
exit;
}
sub AClinksSET2 {
&is_admin_or_gmod;
$AClinks_en = $FORM{'AClinks_en'} || 0;
my $setfileAClinks = << "EOF";
######################################################################## #######
# AClinks.txt (Admin Center Links Configuration) #
######################################################################## #######
\$AClinks_en = "$AClinks_en"; # Set to 1 to allow Admin Center Links
1;
EOF
fopen(ACLINKS, ">$vardir/ACLINKS.txt");
print ACLINKS $setfileAClinks;
fclose(ACLINKS);
if ($action eq "AClinks2") {
$yySetLocation = qq~$adminurl?action=AClinks~;
&redirectexit;
}
}
1;