cypherpunks/stop_cloudflare
cypherpunks
/
stop_cloudflare
mirror of https://git.openprivacy.ca/cypherpunks/stop_cloudflare
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+$//;
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);