summaryrefslogtreecommitdiffstats
path: root/tool
diff options
context:
space:
mode:
authorunethical <une@thi.cal>2019-05-05 01:39:06 +0000
committerunethical <une@thi.cal>2019-05-05 01:39:06 +0000
commit40110693ecd6dcbdc47bd54e438c3431bb7592f1 (patch)
treeb5fe08799e1e2eac66dfb9e8c1bce1dcdfbb7741 /tool
parent17679eb51057783aaae616ca29c0735571686c0e (diff)
downloadcloudflare-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.pl4
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);