0
0
mirror of https://codeberg.org/crimeflare/cloudflare-tor synced 2024-11-05 17:02:39 +00:00

Update 'tool/irssi_cf_alturl.pl'

This commit is contained in:
unethical 2019-05-05 01:39:06 +00:00
parent 17679eb510
commit 40110693ec

View File

@ -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);