|
|
主题: 有用过BBS3000的朋友
|
yongong
职务：普通成员
等级：1
金币：0.0
发贴：13
注册：2002/1/26 10:21:48
|
#12002/1/26 10:44:02
想通过new.cgi在首页显示新帖，希望使日期紧跟标题，或者干脆去掉显示发帖的时间，这样可少占行位，可试了半天也不知如何改，那位能指导一下？
|
再坚持就会胜利
职务：普通成员
等级：3
金币：10.0
发贴：1241
注册：2001/1/11 11:05:12
|
#22002/1/26 12:24:17
用记事本修改new.cgi文件
|
yongong
职务：普通成员
等级：1
金币：0.0
发贴：13
注册：2002/1/26 10:21:48
|
#32002/1/27 17:58:54
试了半天也不清楚改那些代码，能帮忙吗？ #!/usr/bin/perl #------------------------------------------------------# # 本程序为Yuzi工作室提供 # # Yuzi论坛3000(BBS3000)v4.00 # #------------------------------------------------------# $cgipa="."; # CGI程序文件的绝对路径 $newno="8"; # 显示的主题数 ###################### ## 以下部分不需修改 ## ###################### require "$cgipa/setup.cgi"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value=~tr/+/ /; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value=~s///g; $value=~s/\.\.//g; $FORM{$name} = $value; } $id=$FORM{'id'}; if($FORM{'menu'} eq "hot"){ $new=" ";
open (PEO,"$filepath/data/people.cgi");
@lines=;
close (PEO);
foreach $line (@lines) {
chomp($line);
($rip,$r1,$r2,$r3,$rname,$tu,$bbsname,$rtitles,$act)=split(/\t/,$line);
if($rtitles){
$new="$new| ○ $rtitles | ($r1:$r2:$r3) | ";
}
}
$new="$new "; print "Content-type: text/html\n\n"; print "document.write(\"$new\")"; exit; } $new=" ";
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=;
close(TITLES);
for ($i=0; $i<$newno; $i++){
$hastitle=@hastitles[$i];
if($hastitle ne ""){
($rcomment)=split(/\t/,$hastitle);
chomp($rcomment);
open(TITLES,"$filepath/list/$id/$rcomment");
$m=;
close(TITLES);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote)=split(/\t/,$m);
$rtitles=~s/"//g;
($rthistime)=split(/\./,$rthistime);
$new="$new $rtitles | ($rthistime) | ";
}}
$new="$new "; print "Content-type: text/html\n\n"; print < document.write("$new");
EOF
exit;
######################### END OF SCRIPT #########################
编辑历史:[这消息被木木树编辑过(编辑时间2002-01-27 21:07:22)]
|
再坚持就会胜利
职务：普通成员
等级：3
金币：10.0
发贴：1241
注册：2001/1/11 11:05:12
|
#42002/1/27 21:13:44
实在不好意思
我实验了，也没有找到合适效果的修改方式
我再问问
|
5D荣誉斑竹
职务：普通成员
等级：5
金币：10.0
发贴：3292
注册：2001/5/24 10:01:29
|
#52002/1/28 0:58:53
#!/usr/bin/perl #------------------------------------------------------# # 本程序为Yuzi工作室提供 # # Yuzi论坛3000(BBS3000)v4.00 # #------------------------------------------------------# $cgipa="."; # CGI程序文件的绝对路径 $newno="8"; # 显示的主题数 ###################### ## 以下部分不需修改 ## ###################### require "$cgipa/setup.cgi"; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value=~tr/+/ /; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value=~s///g; $value=~s/\.\.//g; $FORM{$name} = $value; } $id=$FORM{'id'}; if($FORM{'menu'} eq "hot"){ $new=" ";
open (PEO,"$filepath/data/people.cgi");
@lines=;
close (PEO);
foreach $line (@lines) {
chomp($line);
($rip,$r1,$r2,$r3,$rname,$tu,$bbsname,$rtitles,$act)=split(/\t/,$line);
if($rtitles){
$new="$new| ○ $rtitles | ($r1:$r2:$r3) | ";
}
}
$new="$new "; print "Content-type: text/html\n\n"; print "document.write(\"$new\")"; exit; } $new=" ";
open(TITLES,"$filepath/list/$id/bbs");
@hastitles=;
close(TITLES);
for ($i=0; $i<$newno; $i++){
$hastitle=@hastitles[$i];
if($hastitle ne ""){
($rcomment)=split(/\t/,$hastitle);
chomp($rcomment);
open(TITLES,"$filepath/list/$id/$rcomment");
$m=;
close(TITLES);
($rtitles,$rthistime,$rusername,$nr,$rfrom,$rhasreply,$remote)=split(/\t/,$m);
$rtitles=~s/"//g;
($rthistime)=split(/\./,$rthistime);
$new="$new| $rtitles | ($rthistime) | ";
}}
$new="$new "; print "Content-type: text/html\n\n"; print < document.write("$new");
EOF
exit;
######################### END OF SCRIPT #########################
将红色部分换成下面的代码
第一种：
$new="$new| $rtitles ($rthistime) | ";
第二种：
$new="$new| $rtitles | ";
编辑历史:[这消息被hve编辑过(编辑时间2002-01-28 01:00:12)]
|
宇极
职务：普通成员
等级：1
金币：0.0
发贴：8
注册：2002/1/23 22:23:06
|
#62002/1/28 15:47:45
我也是这样干的
|
yongong
职务：普通成员
等级：1
金币：0.0
发贴：13
注册：2002/1/26 10:21:48
|
|
yongong
职务：普通成员
等级：1
金币：0.0
发贴：13
注册：2002/1/26 10:21:48
|
#82002/1/28 21:14:34
谢谢！能否把$rthistime换成只调用日期而不包括年月？至少年份是多余的。
|
