mirror of
https://github.com/webmin/webmin.git
synced 2026-02-17 12:12:17 +00:00
114 lines
4.2 KiB
Perl
Executable File
114 lines
4.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# edit_hdparm.cgi
|
|
# Edit an IDE parameters for some disk
|
|
|
|
require './fdisk-lib.pl';
|
|
&ReadParse();
|
|
@dlist = &list_disks_partitions();
|
|
$d = $dlist[$in{'disk'}];
|
|
&can_edit_disk($d->{'device'}) ||
|
|
&error($text{'edit_ecannot'});
|
|
|
|
&ui_print_header(undef, $text{'hdparm_title'}, "");
|
|
if ( ! &has_command( "hdparm" ) ) {
|
|
print "<p>$text{ 'edit_ehdparm' }<p>\n";
|
|
&ui_print_footer( "", $text{ 'index_return' } );
|
|
exit;
|
|
}
|
|
|
|
%hdparm = ( 'A', "1", 'K', "0", 'P', "0", 'X', "0", 'W', "0", 'S', "0" );
|
|
@yesno = ( "1", $text{ 'hdparm_on' }, "0", $text{ 'hdparm_off' } );
|
|
|
|
foreach $argument ( 'a', 'd', 'r', 'k', 'u', 'm', 'c' )
|
|
{
|
|
$out = `hdparm -$argument $d->{'device'}`;
|
|
if ($out =~ /\s+=\s+(\S+)/) {
|
|
$hdparm{ $argument } = $1;
|
|
}
|
|
#( $_, $line ) = split( /=/, `hdparm -$argument $d->{'device'}` );
|
|
#$line =~ s/ {1,}//;
|
|
#( $hdparm{ $argument } ) = split( / /, $line );
|
|
}
|
|
|
|
print(
|
|
"<form action=apply_hdparm.cgi><table border cols=1 width=\"100%\"><input type=hidden name=drive value=", $d -> { 'device' }, ">",
|
|
"<tr ", $tb, ">",
|
|
"<td><b>", $text{ 'hdparm_label' }, "</b></td>",
|
|
"</tr><tr ", $cb, "><td>",
|
|
"<table width=\"100%\">",
|
|
"<tr>",
|
|
"<td>", &hlink( "<b>". $text{ 'hdparm_conf_X' }. "</b>", 'X' ), &p_select_wdl( "X", $hdparm{ 'X' }, ( "0", $text{ 'hdparm_conf_X_defaut' }, "1", $text{ 'hdparm_conf_X_disable' }, "9", "PIO mode 1", "10", "PIO mode 2", "11", "PIO mode 3", "12", "PIO mode 4", "32", "Multimode DMA 0", "33", "Multimode DMA 1", "34", "Multimode DMA 2", "64", "Ultra DMA 0", "65", "Ultra DMA 1", "66", "Ultra DMA 2" ) ), "</td>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_d' }, 'd', @yesno ), "</td>",
|
|
"</tr><tr>",
|
|
"<td>", &hlink( "<b>". $text{ 'hdparm_conf_a' }. "</b>", "a" ), " ", &p_entry( "a", 2, $hdparm{ 'a' } ), "</td>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_A' }, 'A', @yesno ), "</td>",
|
|
"</tr><tr>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_W' }, 'W', @yesno ), "</td>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_u' }, 'u', @yesno ), "</td>",
|
|
"</tr><tr>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_k' }, 'k', @yesno ), "</td>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_K' }, 'K', @yesno ), "</td>",
|
|
"</tr><tr>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_r' }, 'r', @yesno ), "</td>",
|
|
"<td>", &l_radio( $text{ 'hdparm_conf_P' }, 'P', @yesno ), "</td>",
|
|
"</tr><tr>",
|
|
"<td>", &hlink( "<b>". $text{ 'hdparm_conf_S' }. "</b>", "S" ), " ", &p_entry( "S", 6, $hdparm{ 'S' } ), "</td>",
|
|
"</tr>",
|
|
"</table><table>",
|
|
"<tr><td>", &l_radio( $text{ 'hdparm_conf_c' }, 'c', ( "0", $text{ 'hdparm_disable' }, "1", $text{ 'hdparm_enable' }, "3", $text{ 'hdparm_enable_special' } ) ), "</td></tr>",
|
|
"<tr><td>", &l_radio( $text{ 'hdparm_conf_m' }, 'm', ( "0", $text{ 'hdparm_disable' }, "2", "2", "4", "4", "8", "8", "16", "16", "32", "32" ) ), "<td><tr>",
|
|
"</table></td>",
|
|
"</tr>",
|
|
"</table><table cols=3 width=\"100%\" nosave>",
|
|
"<tr>",
|
|
"<td align=left><input type=submit name=action value=\"", $text{ 'hdparm_apply' }, "\"></td>",
|
|
"<td align=right><input type=submit name=action value=\"", $text{ 'hdparm_speed' }, "\"></td>",
|
|
"</tr>",
|
|
"</table></form>" );
|
|
|
|
&ui_print_footer( "", $text{ 'index_return' } );
|
|
|
|
sub l_radio
|
|
{
|
|
my ( $label, $flag, @items ) = @_;
|
|
return &hlink( "<b>".$label."</b>", $flag )."</td> <td>".
|
|
&p_radio( $flag, $hdparm{ $flag }, @items );
|
|
}
|
|
|
|
sub p_radio
|
|
{
|
|
my ( $name, $checked, @list ) = @_;
|
|
local $out, $size = @list, $i = 0;
|
|
|
|
do
|
|
{
|
|
$out .= " <input type=radio name=".$name." value=".$list[$i];
|
|
$out .= " checked" if( $checked eq $list[$i++] );
|
|
$out .="> ".$list[$i++];
|
|
} while( $i < $size );
|
|
|
|
return $out;
|
|
}
|
|
|
|
sub p_entry
|
|
{
|
|
my ( $name, $size, $value ) = @_;
|
|
|
|
$size ? return "</td> <td><input name=". $name. " size=". $size." value=\"". $value."\">" : return "</td> <td><input name=". $name. " value=\"". $value."\">";
|
|
}
|
|
|
|
sub p_select_wdl
|
|
{
|
|
my ( $name, $selected, @list ) = @_;
|
|
local $size = @list, $i = 0, $out = "</td> <td><select name=".$name.">";
|
|
do
|
|
{
|
|
$out .= "<option name=".$name." value=".$list[$i];
|
|
$out .= " selected" if( $selected eq $list[$i++] );
|
|
$out .= ">".$list[$i++];
|
|
} while( $i < $size );
|
|
$out .= "</select>";
|
|
|
|
return $out;
|
|
}
|