# Options
sql() if $Opt{sql};
-ip2local($Opt{ip2local}) if $Opt{ip2local};
+ip_move($Opt{'ip-move'}) if $Opt{'ip-move'};
# Query
query();
} `ifconfig`;
}
-sub ip2local {
+sub ip_move {
require Sys::Hostname;
my ($ip) = @_;
option[method|m=s] Method (default: GET)
option[sql] Produce sql to update a database
- option[ip2local=s] Move IP to local
+ option[ip-move=s] Move IP to local
option[verbose|v+] Verbose mode: increase the verbosity level.
option[debug+] Debug mode: increase the verbosity level.