mount/mount.cgi

   1 #!/usr/local/bin/perl
   2 # mount.cgi
   3 # Mount a currently unmounted filesystem
   4
   5 require './mount-lib.pl';
   6 &ReadParse();
   7
   8 @mounts = &list_mounts();
   9 $mount = $mounts[$in{'index'}];
  10 &error_setup(&text('mount_err', $mount->[0]));
  11 &can_edit_fs(@$mount) || &error($text{'edit_ecannot'});
  12 $err = &mount_dir(@$mount);
  13 &error($err) if ($err);
  14 &webmin_log("mount", undef, undef, { 'dev' => $mount->[0],
  15                                      'type' => $mount->[2],
  16                                      'dir' => $mount->[1] });
  17 &redirect("");
  18