umount.cgi

来自「Unix下基于Web的管理工具」· CGI 代码 · 共 13 行

#!/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("");