BBS水木清华站∶精华区

发信人: wxb1 (ben), 信区: Linux
标  题: [8/8] 辅助工具
发信站: BBS 水木清华站 (Fri Jun 11 15:05:45 1999)

以Linux实作语音／传真／EMAIL／BBC 整合系统
8.辅助工具

        语音／传真／EMAIL／BBC 整合系统中的主要功能，在前面数篇讨论中
，皆已详尽说明，但在一系统中，除了主要的功能建置外，总有一些辅助的工具
软体，来扮演协助及补强的角色，使整个系统运作的更顺畅及便利。本篇则将针
对这些工具，做一些说明！

逾期删除

        客户的留言及传真档案，可能因种种因素，在系统中存放许久，皆未被
用户听取後删除！（可能已由EMAIL转送，未再拨接收取；或听取後并未选择删除
….等）因此系统会律定一保存时日，凡日期过久的资料档，皆会由系统代为清除
。程式码如下（目前订定的保存日期为三天）：

#!/bin/bash
# 要检查的资料目录有四个
path1="/user/home/message/voc"
path2="/user/home/message/fax"
path3="/user/home/message/voc/mail2voc"
path4="/user/home/message/fax/callout"

PATHALL="$path1 $path2 $path3 $path4"
for path in $PATHALL
do
        cd $path
     over3files=`find . -maxdepth 1 -daystart -ctime +3 -printf "%f "`
        for fileold in $over3files
        do
        #       echo "remove $fileold"
                rm -f $fileold
        done
done

以上的程式只需加入 crontab 中，於每天固定时间执行，即可正确删除逾期档案。

WWW辅助设定

        用户资料相关的档案设定，若一一用编辑器编辑後再存档，时间一久，
可能早忘了其档案格式，若能以WWW的方式设定，对管理者而言，不但能减轻繁琐
的设定过程，也方便日後的维护！以下为新增用户及用户自行变更设定的相关
HTML及CGI程式，由其中可知其设定档格式，但因这些是给我自己用的，所以我未
做任何美工！

『新增用户HTML』：

<HTML>
<HEAD>
<TITLE>新增使用者</TITLE>
</HEAD>
<BODY BGCOLOR="#CCCCFF" TEXT="#000000">
<h2>新增使用者</h2>
<hr>
<FORM METHOD="POST" action="/cgi-bin/message/addreg.pl">
代号：<INPUT NAME="ID" VALUE="" >
<P>
密码：<INPUT NAME="PASSWD" VALUE="" >
<p>
大名：<INPUT NAME="NAME" VALUE="" >
<P>
E-mail：<INPUT NAME="EMAIL" VALUE="" >
<P>
电话：<INPUT NAME="TELPHONE" VALUE="" >
<P>
FAX：<INPUT NAME="FAX" VALUE="" >
<P>
BBC：<INPUT NAME="BBC" VALUE="" >
<P>
大哥大：<INPUT NAME="MTEL" VALUE="" >
<p>
<INPUT TYPE=SUBMIT VALUE="传送">
<INPUT TYPE=RESET VALUE="重写">
</FORM>

</BODY>
</HTML>

其中资料虽有许多项目，但主要需参考到的为代号、密码、EMAIL、BBC及传真号
码这几项！

『新增用户CGI』(addreg.pl)：

#!/usr/bin/perl
#
$REGPATH="/user/home/message/conf/";
#
print "Content-type: text/html","\n\n";
print "<HTML><body bgcolor=#CCCCFF>", "\n";

&parse_form_data (*form);
($ID, $PASS,$NAME, $EMAIL, $TEL, $FAX,$BBC,$MTEL) = ($form{'ID'},$form{'PASSWD'}
,
        $form{'NAME'}, $form{'EMAIL'},$form{'TELPHONE'},$form{'FAX'},
        $form{'BBC'}, $form{'MTEL'});

($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$mon += $keyword, $message) = @_;
  print "Content-type: text/html", "\n";
  print "Status: ", $status, " ", $keyword, "\n\n";
  print <<End_of_Error;

<title>CGI Program - Unexpected Error</title>
<h1>$keyword</h1>
<hr>$message</hr>

End_of_Error

  exit(1);
}

结尾

        语音／传真／EMAIL／BBC 整合系统的各项功能，全都已完整描述完毕
，若您有任何问题或指教，欢迎您用EMAIL与我联络！

撰文：朱先宇   1998/12/22
EMAIL: hybj@ms1.hinet.net

--
just a test

※ 来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 202.116.130.100]