delete_export.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# delete_export.cgi
# Delete an existing export

require './bsdexports-lib.pl';
&ReadParse();
@exps = &list_exports();
&delete_export($exps[$in{'index'}]);
&redirect("");