85 |
my ( $from, $to ) = @_; |
my ( $from, $to ) = @_; |
86 |
return if $action ne 'create'; |
return if $action ne 'create'; |
87 |
warn "rsync $from -> $to\n"; |
warn "rsync $from -> $to\n"; |
88 |
rsync('-raSHAD', "$from/", "$to/" ); |
rsync('-raSHAD', '--delete', "$from/", "$to/" ); |
89 |
} |
} |
90 |
|
|
91 |
if ( $vz_lv ) { |
if ( $vz_lv ) { |
172 |
sub fix_ip { |
sub fix_ip { |
173 |
my $ip = shift; |
my $ip = shift; |
174 |
$ip =~ s/['"]//g; |
$ip =~ s/['"]//g; |
175 |
$ip =~ s/^\d+\./10./; |
# $ip =~ s/^\d+\./10./; |
176 |
|
$ip =~ s/^\d+\.\d+\./192.168./; |
177 |
warn "$CVEID new IP number: $ip\n"; |
warn "$CVEID new IP number: $ip\n"; |
178 |
return $note . qq{IP_ADDRESS="$ip"}; |
return $note . qq{IP_ADDRESS="$ip"}; |
179 |
} |
} |