umount.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# umount.cgi
# Unmount an existing permanent or temporary mount

require './mount-lib.pl';
&ReadParse;
if ($error = &unmount_dir($in{dir}, $in{dev}, $in{type})) {
	$whatfailed = "Failed to unmount $in{what}";
	&error($error);
	}
&redirect("");