diff options
author | unethical <une@thi.cal> | 2019-05-05 01:39:06 +0000 |
---|---|---|
committer | unethical <une@thi.cal> | 2019-05-05 01:39:06 +0000 |
commit | 40110693ecd6dcbdc47bd54e438c3431bb7592f1 (patch) | |
tree | b5fe08799e1e2eac66dfb9e8c1bce1dcdfbb7741 /tool | |
parent | 17679eb51057783aaae616ca29c0735571686c0e (diff) | |
download | cloudflare-tor-40110693ecd6dcbdc47bd54e438c3431bb7592f1.tar cloudflare-tor-40110693ecd6dcbdc47bd54e438c3431bb7592f1.tar.gz cloudflare-tor-40110693ecd6dcbdc47bd54e438c3431bb7592f1.tar.lz cloudflare-tor-40110693ecd6dcbdc47bd54e438c3431bb7592f1.tar.xz cloudflare-tor-40110693ecd6dcbdc47bd54e438c3431bb7592f1.zip |
Update 'tool/irssi_cf_alturl.pl'
Diffstat (limited to 'tool')
-rw-r--r-- | tool/irssi_cf_alturl.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tool/irssi_cf_alturl.pl b/tool/irssi_cf_alturl.pl index 6952711d..d6d4abac 100644 --- a/tool/irssi_cf_alturl.pl +++ b/tool/irssi_cf_alturl.pl @@ -102,7 +102,7 @@ sub GotUrl { $data =~ s/^\s+//; $data =~ s/\s+$//; my @urls = (); - my ( $url, $a, $return, $char, $ch, $result ) = ""; + my ( $url, $a, $return, $char, $ch ) = ""; my $same = 0; my $sitewas = "t"; my @chars = (); @@ -185,7 +185,7 @@ sub GotUrl { if ( $cfg_useshort == 1 ) { if ( length($myurl) > $cfg_minurllen ) { deb("$target Creating Short URL for $myurl"); - $url = 'https://ux.nu/api/short?format=plain&url='.$result; + $url = 'https://ux.nu/api/short?format=plain&url='.$myurl; $browser = LWP::UserAgent->new; $browser->agent("cloudflare-tor (Thank you for this service)"); $response = $browser->get($url); |