51 |
, qq|<select type=select name=$name>| |
, qq|<select type=select name=$name>| |
52 |
, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ ) |
, join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ ) |
53 |
, qq|</select>| |
, qq|</select>| |
|
, qq|</form>| |
|
54 |
); |
); |
55 |
} |
} |
56 |
|
|
98 |
} elsif ( $name eq 'ssh' ) { |
} elsif ( $name eq 'ssh' ) { |
99 |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
$html =~ s{\s(\S{16}).+(\S{16})\s}{ $1..$2 }; |
100 |
chomp($html); |
chomp($html); |
101 |
|
} elsif ( $name eq 'kvm' ) { |
102 |
|
$html = qq|<a href="/start_stop/kvm?nr=$html">$html</a>|; |
103 |
} |
} |
104 |
$html = qq|<tt>$html</tt>| |
$html = qq|<tt>$html</tt>| |
105 |
unless |
unless |