22 |
# diskspace |
# diskspace |
23 |
my $diskspace = '2G:4G'; |
my $diskspace = '2G:4G'; |
24 |
|
|
|
$dist = 'lenny'; |
|
|
$arh = 'amd64'; |
|
|
|
|
25 |
GetOptions( |
GetOptions( |
26 |
'dist=s' => \$dist, |
'dist=s' => \$dist, |
27 |
'arh=s' => \$arh, |
'arh=s' => \$arh, |
75 |
|
|
76 |
my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]); |
my $ve_id = sprintf('%d%03d', $ip_split[2], $ip_split[3]); |
77 |
|
|
78 |
|
if ( $ve_id < 101 ) { |
79 |
|
$ve_id += 100; |
80 |
|
warn "# VEID moved to $ve_id because 0 .. 100 are reserved\n"; |
81 |
|
} |
82 |
|
|
83 |
print "VEID: $ve_id hostname: $hostname ip: $ip\n"; |
print "VEID: $ve_id hostname: $hostname ip: $ip\n"; |
84 |
|
|
85 |
warn ">> creating directories\n"; |
warn ">> creating directories\n"; |