mirror of
https://github.com/webmin/webmin.git
synced 2026-02-09 08:42:20 +00:00
31 lines
761 B
Perl
Executable File
31 lines
761 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Perform some action
|
|
|
|
require './smart-status-lib.pl';
|
|
&ReadParse();
|
|
$mode = $in{'short'} ? "short" :
|
|
$in{'ext'} ? "ext" : "data";
|
|
&ui_print_header(undef, $text{$mode.'_title'}, "");
|
|
|
|
@drives = &fdisk::list_disks_partitions();
|
|
($d) = grep { $_->{'device'} eq $in{'drive'} } @drives;
|
|
print &text($mode."_doing", $d->{'desc'}),"\n";
|
|
if ($mode eq "short") {
|
|
($ok, $out) = &short_test($in{'drive'});
|
|
}
|
|
elsif ($mode eq "ext") {
|
|
($ok, $out) = &ext_test($in{'drive'});
|
|
}
|
|
elsif ($mode eq "data") {
|
|
($ok, $out) = &data_test($in{'drive'});
|
|
}
|
|
print "<pre>$out</pre>\n";
|
|
if ($ok) {
|
|
print $text{$mode."_ok"},"<p>\n";
|
|
}
|
|
else {
|
|
print $text{$mode."_failed"},"<p>\n";
|
|
}
|
|
|
|
&ui_print_footer("index.cgi?drive=$in{'drive'}", $text{'index_return'});
|