PAL.C.T MINI SHELL
#!/usr/bin/perl
# mount.cgi
# Mount a currently unmounted filesystem
require './mount-lib.pl';
&ReadParse();
@mounts = &list_mounts();
$mount = $mounts[$in{'index'}];
&error_setup(&text('mount_err', $mount->[0]));
&can_edit_fs(@$mount) || &error($text{'edit_ecannot'});
$err = &mount_dir(@$mount);
&error($err) if ($err);
&webmin_log("mount", 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`