荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: jjk (UNIX+C+XML+?? 傻了?), 信区: InstallBBS
标 题: Re: 精华索引脚本[fwd]
发信站: 荔园晨风BBS站 (Thu Apr 25 10:26:01 2002), 转信
【 以下文字转载自 jjk 的信箱 】
【 原文由 jjk.bbs@apue.dhs.org 所发表 】
发信人: altmayer (alt·尼古丁中毒~), 信区: SYSOP
标 题: Re: 站长看看这个脚本吧
发信站: UNIX编程 (2002年04月17日23:16:59 星期三), 站内信件
是做精华区索引的, 希望能为这里做点贡献阿!
下面这个脚本 announcelist.sh 调用 dirtree.pl, 加入 crontab 就行了
版主可以选择是否需要精华区指南, 如果要, 就做下面几步:
1. 在精华区目录按 'a' 增加文章, title 是 精华区指南
2. 在这篇文章前按 'n' 重命名文件名为 dirtree
3. 最好再按 'm' , 让他的次序为 1
还有每个文件的 title 有些特殊设置:
if title 含 [推荐] { [推荐] 显示为粉红色 }
if 是目录 {
显示为蓝色 ;
if title 含 [专集] { 不列此目录内容, [专集] 显示为红色 }
if title 含 [杂牌] { 不列此目录内容, [杂牌] 显示为黄色 }
if title 含 [N] { 不列此目录内容, [N] 显示为..色 }
//这几个设置是为了避免索引太胖, 有些标题没信息量的, 版主屏蔽掉它
}
$ cat announcelist.sh
#!/bin/sh
BBSHOME=/home/bbs
cd $BBSHOME/0Announce/groups
for i in * ; do
for j in $i/*; do
[ -f $j/dirtree ] && /home/bbs/local/bin/dirtree.pl $j > $j/dirtree
done
done
【 在 altmayer (alt·尼古丁中毒~) 的大作中提到: 】
: #!/usr/bin/perl
: #dirtree.pl yourdir
: #write by wind@lostemple.dhs.org
: # Altmayer@lostemple.dhs.org
: # 2002.04.17
: @flag=("┣","━","┗","┳","┃");
: $/ = "#\n";
: my $tmp="^[[1;0;30;47m本版精华区索引^[[m";
: &dirlist($ARGV[0], "$flag[0]$flag[1]","100",$tmp);
: sub dirlist(){
: .................（以下省略）
--
※ 修改:·altmayer 於 04月17日23:20:53 修改本文·[FROM: 211.80.41.106]
※ 来源:·UNIX编程 apue.dhs.org·[FROM: 211.80.41.106]
--
※ 转寄:·UNIX编程 apue.dhs.org·[FROM: 210.39.3.50]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.146]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店