nicht angemeldet
Hi,
es ist ein Cutecast-Forum (V1.2) und ich wollte die Breite anpassen. Ich hab Ewigkeiten gesucht und nichts gefunden. Aber ich kann dir mal den Code posten, vielleicht findest du was...
===============================================================
sub display_forums {
if ($cutecast{mustregister}) {
if ($cuser) {
if (!-e "$cutecast_fullpath/$cutecast{members_filename}/$cuser.user") {
print "Location: $cutecast{'board url'}?action=login \n\n";
exit;
}
}
else {
print "Location: $cutecast{'board url'}?action=login \n\n";
exit;
}
}
@forums = &read_data($forums_file_db);
&top_html;
&cutecast_html_top('MAIN');
if (@forums) {
print qq~
<TABLE border=0 cellPadding=4 cellSpacing=1 width=593 align=center>
<TBODY>
<TR>
<TD align=middle noWrap bgcolor=$cutecast{'tab'}><FONT face="$cutecast{'face'}" size=2>$vars_word{hash}</FONT></TD>
<TD bgcolor=$cutecast{'tab'}><FONT face="$cutecast{'face'}" size=2>$vars_word{forum}</FONT></TD>
<TD align=middle noWrap bgcolor=$cutecast{'tab'}><FONT face="$cutecast{'face'}" size=2>$vars_word{last_post}</FONT></TD>
</TR>
~;
foreach (@forums) {
if ($_ =~ /^CuteCast forums file/) {
next;
}
chop $_;
($forumid,$behaviour,$category,$title,$description) = split(/\t/,$_,5);
($posts,$threads,$file) = split(/\t/,$cutecast{$forumid},3);
$file =~ s/\*//g;
@files = split(/ /,$file);
$thread_file = "$cutecast_fullpath/data/$files[0].db";
@thread_cdata = &read_data($thread_file);
$replies = scalar(@thread_cdata);
@thread_data = split(/\t/,$thread_cdata[$replies -= 1]);
if ($behaviour eq "closed") {
$icons = "closed";
}
else {
if ($thread_data[3] > $lastvisit) {
$icons = "newpost";
}
else {
$icons = "nonewpost";
}
}
if (!$posts) {
$posts = "-";
}
if (!$threads) {
$threads = "-";
}
if (!@thread_cdata) {
$lastpost = "-";
}
else {
if ($replies > 1) {
$icon_img = "icon_reply";
$go_thread = $replies;
$num_page = $go_thread/$cutecast{'permsg'};
($page,$copyback) = split(/./,$num_page);
if ($copyback) {
$page += 1;
}
}
else {
$icon_img = "icon_topic";
$go_thread = 1;
$page = 1;
}
$user_id = $thread_data[1];
$user_id =~ tr/A-Z/a-z/;
$user_id =~ s/ //g;
$thread_data[3] = &decode_time('short',$thread_data[3]);
$lastpost = qq~
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR align=right>
<TD noWrap><FONT face="$cutecast{'face'}" size=1><FONT face="$cutecast{'face'}" size=2>$thread_data[3]</FONT><br>$vars_word{by} <a href="$cutecast{'board url'}?action=profile&user=$user_id" style="TEXT-DECORATION: none;">$thread_data[1]</a></FONT></TD>
<TD><IMG src="$cutecast{'interface'}/_.gif" height=1 width=5 border=0><a href="$cutecast{'board url'}?forum=$forumid&thread=$files[0]&page=$page#$go_thread"><IMG src="$cutecast{'interface'}/$icon_img.gif" border=0></a></TD>
</TR>
</TBODY>
</TABLE>
~;
}
if ($category ne $same_category) {
$same_category = $category;
print qq~
<TR>
<TD bgcolor=$cutecast{'category'} colSpan=3><FONT face="$cutecast{'face'}" size=2><b>$category</b></FONT></TD>
</TR>
~;
}
print qq~
<TR vAlign=top>
<TD align=middle noWrap bgcolor=$cutecast{'msgbox'}><img border=0 src="$cutecast{'interface'}/$icons.gif"></TD>
<TD bgcolor=$cutecast{'msgbox2'}><FONT face="$cutecast{'face'}" size=1>
<FONT face="$cutecast{'face'}" size=2><b><a href="$cutecast{'board url'}?forum=$forumid">$title</a></b></FONT>
<br>$description</FONT></TD>
<TD align=middle noWrap bgcolor=$cutecast{'msgbox'}>
$lastpost
</TD>
</TR>
~;
}
}
else {
print qq~
<center><FONT face="$cutecast{'face'}" size=2><b>$vars_word{no_forums_created}</b></FONT></center>
~;
}
$total_members_online = scalar(@members_online);
$total_guests_online = scalar(@guests_online);
$all_online = $total_members_online+$total_guests_online;
print qq~
<!-- <TR>
<TD bgcolor=$cutecast{'category'} colSpan=3><FONT face="$cutecast{'face'}" size=2><b>$vars_word{currently_active_users} $all_online</b></FONT></TD>
</TR> -->
<TR>
<TD bgcolor=$cutecast{'msgbox'} colSpan=3><FONT face="$cutecast{'face'}" size=1>$vars_word{there_are_currently} $total_members_online $vars_word{members_and} $total_guests_online $vars_word{guests_on_the_boards}
~;
if ($total_members_online) {
print "<br>";
foreach (@members_online) {
$num++;
$user_id = $_;
$user_id =~ tr/A-Z/a-z/;
$user_id =~ s/ //g;
print "<a href="$cutecast{'board url'}?action=profile&user=$user_id">$_</a>";
if ($num ne $total_members_online) {
print ", ";
}
}
}
print qq~
</FONT></TD>
</TR>
</TBODY>
</TABLE>
~;
&forums_bottom_show;
&cutecast_html_bottom;
&bottom_html;
}
1;