11 |
our $reboot_time; # 300 s |
our $reboot_time; # 300 s |
12 |
|
|
13 |
use server; |
use server; |
14 |
|
use client; |
15 |
use File::Slurp; |
use File::Slurp; |
16 |
use Carp qw/confess/; |
use Carp qw/confess/; |
17 |
|
|
49 |
sub config_ip_boot { |
sub config_ip_boot { |
50 |
my ( $ip, $boot, $append ) = @_; |
my ( $ip, $boot, $append ) = @_; |
51 |
|
|
52 |
my $default; |
my $default = client::conf $ip => 'default'; |
53 |
my $config; |
my $config; |
54 |
|
|
55 |
foreach my $kernel ( glob "$boot/vmlinuz*" ) { |
foreach my $kernel ( glob "$boot/vmlinuz*" ) { |
56 |
my $ver = $1 if $kernel =~ m{vmlinuz(.+)}; |
my $ver = $1 if $kernel =~ m{vmlinuz(.+)}; |
57 |
$default ||= $ver; |
$default ||= 'boot' . $ver; |
58 |
|
|
59 |
$config .= qq{ |
$config .= qq{ |
60 |
|
|
67 |
|
|
68 |
config_for_ip( $ip, qq{ |
config_for_ip( $ip, qq{ |
69 |
|
|
70 |
default boot$default |
default $default |
71 |
prompt 5 |
prompt 1 |
72 |
|
timeout 30 |
73 |
|
|
74 |
$config |
$config |
75 |
|
|