UBB.Developers Forums UBB.classic V5 Mod Questions Text Fader for the UBB, who's interested?

the bug with the blank page at actualisations has been fixed. i had to change some things for this, because only the admin should be able to run it

everyone with a previous version installed has to do this changes:

#
##in cpanel3.cgi find:
#

if ($action eq "news") {
&NewsFader;
}

#
## replace with
#

if ($action eq "news") {
&get_cookie;
$User_name = $UserName;
$Pass = $Password;
&VerifyAdminCP($UserName, $Password);
if ($Proceed eq "true") {
&NewsFader;
}
}

#
## in cpanel3.cgi delete:
#

sub NewsUpdateMessage {
&get_cookie;
if ($cookie{UserNameCP}) {
$UserName = "$cookie{UserNameCP}";
$Password = "$cookie{PasswordCP}";
&VerifyAdminCP($UserName, $Password);
if ($Proceed eq "true") {
&NewsFader;
} else {
exit;
}
}
}

#
## in cpanel3.cgi replace
## sub NewsFader, sub updatenews and sub addnewsline
# with:

sub NewsFader {
$Password = $Pass;
$Username = $User_name;
&VerifyAdminCP($Username, $Password);
if ($Proceed eq "true") {
require "Styles.file";
open(NEWS,"<$CGIPath/newzline.cgi");
@lines = ;
close(NEWS);
$the_page = join('', @lines);

print<
$HeaderInsert

S E T N E W S L I N E S

ADD NEWS $a_message
To add a new newsline use the first editbox. HTML and links are allowed. But please use ' instead of ". If the whole line should link to a page then use the second editbox to enter the link. No " again.
Newsline:
Newsline Link (Optional):

EDIT / DELETE NEWSLINES $u_message

The contents of this editbox are the userdefined newslines. Here you can edit or delete old newslines. Change the text in this editbox and press "update" when you're done. a news datarecord consists of "topic", "link", Ensure after editing that the last datarecord may not have an comma as last character!!!

$the_page

by AA 2000

NEWZHTML
}
}

sub updatenews {
$Pass = $in{'Pass'};
$User_name = $in{'User_name'};
&VerifyAdminCP($User_name, $Pass);
if ($Proceed eq "true") {
$new_page = $in{'new_page'};
@newstuff = $new_page;
open(NEWS,">$CGIPath/newzline.cgi");
print NEWS join('', @newstuff);
close(NEWS);
$a_message = "";
$u_message = "$User_name, The NEWS-database have been successfully updated.";
&NewsFader;
exit;
}
}

sub addnewsline {
$Pass = $in{'Pass'};
$User_name = $in{'User_name'};
&VerifyAdminCP($User_name, $Pass);
if ($Proceed eq "true") {
$newitem = $in{'new_item'};
$subject = $in{'subject'};
$currentnews = ""$subject","$newitem"";
$hmhm = "";
open(NEWS,"<$CGIPath/newzline.cgi");
@newslines = ;
close(NEWS);
foreach $item(@newslines)
{
$hmhm .= $item;
}
if ($hmhm ne "") {$currentnews .= ",n";}
$hmhm = $currentnews.$hmhm;
@newslines = $hmhm;

open(NEWS,">$CGIPath/newzline.cgi");
foreach $line(@newslines)
{
print NEWS "$line";
}
close (NEWS);
$u_message = "";
$a_message = "$User_name, The new Newsline successfully added!";
&NewsFader;
exit;
}
}

#
##done
#

all instructions can be found here:



current version 2.3

Demo: here