crimeflare
/
cloudflare-tor
mirror of https://codeberg.org/crimeflare/cloudflare-tor
0
0
Fork 0
Code Issues Releases Activity

Update 'tool/irssi_cf_alturl.pl'

This commit is contained in:
unethical 2019-05-05 01:39:06 +00:00
parent 17679eb510
commit 40110693ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tool/irssi_cf_alturl.pl
View File

@ -102,7 +102,7 @@ sub GotUrl {
$data =~ s/^\s+//; $data =~ s/^\s+//;
$data =~ s/\s+$//; $data =~ s/\s+$//;
my @urls = (); my @urls = ();
my ( $url, $a, $return, $char, $ch, $result ) = ""; my ( $url, $a, $return, $char, $ch ) = "";
my $same = 0; my $same = 0;
my $sitewas = "t"; my $sitewas = "t";
my @chars = (); my @chars = ();
@ -185,7 +185,7 @@ sub GotUrl {
if ( $cfg_useshort == 1 ) { if ( $cfg_useshort == 1 ) {
if ( length($myurl) > $cfg_minurllen ) { if ( length($myurl) > $cfg_minurllen ) {
deb("$target Creating Short URL for $myurl"); 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 = LWP::UserAgent->new;
$browser->agent("cloudflare-tor (Thank you for this service)"); $browser->agent("cloudflare-tor (Thank you for this service)");
$response = $browser->get($url); $response = $browser->get($url);