diff options
author | doy <doy@tozt.net> | 2008-11-13 03:06:22 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-11-13 03:06:22 -0500 |
commit | b7f0e22025bebe7db8f38ff3aed40f83779f66b7 (patch) | |
tree | 39e7b555c9ca1e27cb5da26dfc47c1e861af38e9 /bin | |
parent | 1ed9e09b29026d4dae2b3d4596ee487184bb88f9 (diff) | |
download | conf-b7f0e22025bebe7db8f38ff3aed40f83779f66b7.tar.gz conf-b7f0e22025bebe7db8f38ff3aed40f83779f66b7.zip |
make sure get_ip outputs unix line endings, not dos
Diffstat (limited to 'bin')
-rw-r--r-- | bin/get_ip | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -6,9 +6,10 @@ open my $site, "wget -qO- $page|" or die "Could not get web page"; my $next_line_is_ip = 0; while (<$site>) { + s/[\r\n]+$//; if ($next_line_is_ip == 1) { s/ //g; - print $_; + print $_, "\n"; last; } $next_line_is_ip = 1 if /Your IP address is/; |