PAL.C.T MINI SHELL
#!/usr/bin/perl
# unmount.cgi
# Unmount a currently mounted filesystem
require './mount-lib.pl';
&ReadParse();
@mounts = &list_mounted();
$mount = $mounts[$in{'index'}];
&error_setup(&text('unmount_err', $mount->[0]));
&can_edit_fs(@$mount) || &error($text{'edit_ecannot'});
$err = &unmount_dir(@$mount);
&error($err) if ($err);
&delete_unmounted(@$mount);
&webmin_log("umount", undef, undef, { 'dev' => $mount->[0],
'type' => $mount->[2],
'dir' => $mount->[1] });
&redirect("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`