diff options
Diffstat (limited to 'tool')
| -rw-r--r-- | tool/irssi_cf_alturl.pl | 93 |
1 files changed, 75 insertions, 18 deletions
diff --git a/tool/irssi_cf_alturl.pl b/tool/irssi_cf_alturl.pl index 4bf18ba4..b3218889 100644 --- a/tool/irssi_cf_alturl.pl +++ b/tool/irssi_cf_alturl.pl @@ -13,6 +13,9 @@ # # /set cflarealt_localdbpath <"string to path"> -- () '/path/database/split/' # /set cflarealt_uselocaldb <on|off> -- (off) if 'on', please set path to local database (or the script will die) +# +# /set cflarealt_printurl <on|off> -- (off) if 'on' print converted URL +# /set cflarealt_donotsend <on|off> -- (off) if 'on' do not send converted URL #--------------------------------------------------------------------- ##use strict; @@ -21,6 +24,7 @@ use vars qw($VERSION %IRSSI); $VERSION = "20190506"; %IRSSI = ( + # Special thanks to: "eo, tsaavik" authors => "Anonymous", contact => 'anonymous@cloudflare-tor.nab', @@ -35,7 +39,11 @@ use Irssi::Irc; use LWP::Simple; use LWP::UserAgent; -my ( $cfg_minurllen, $cfg_send2chan, $cfg_useshort, $cfg_isdebug, $cfg_uselocaldb, $cfg_localdbpath, $cfg_chanlist ); +my ( + $cfg_minurllen, $cfg_send2chan, $cfg_useshort, $cfg_isdebug, + $cfg_uselocaldb, $cfg_localdbpath, $cfg_chanlist +); +my ( $cfg_printurl, $cfg_donotsendurl ); my @cached = (); sub setuphandler { @@ -90,6 +98,18 @@ sub setuphandler { print "cflarealt: DB path set to $cfg_localdbpath"; } + Irssi::settings_add_bool( "cflarealt", "cflarealt_printurl", 0 ); + if ( Irssi::settings_get_bool("cflarealt_printurl") ) { + print "cflarealt: print URL enabled"; + $cfg_printurl = 1; + } + + Irssi::settings_add_bool( "cflarealt", "cflarealt_donotsend", 0 ); + if ( Irssi::settings_get_bool("cflarealt_donotsend") ) { + print "cflarealt: dont-send enabled"; + $cfg_donotsendurl = 1; + } + } sub GotUrl { @@ -102,8 +122,9 @@ sub GotUrl { $data =~ s/^\s+//; $data =~ s/\s+$//; my @urls = (); + my @knownShortFQDN = ( 'tinyurl.com', 'bit.ly' ); my ( $url, $a, $return, $char, $ch ) = ""; - my $same = 0; + my $same = 0; return unless ( ( $data =~ /\bhttp\:/ ) || ( $data =~ /\bhttps\:/ ) ); deb("$target triggered GotUrl() with url: $data"); @@ -128,9 +149,9 @@ sub GotUrl { } } - my ( $myurl, $fqdn, $junk, $mytype ); - my ( $url, $browser, $response, $answer ); - my ( $line, $ifoundit ); + my ( $myurl, $fqdn, $junk, $mytype ); + my ( $url, $browser, $response, $answer ); + my ( $line, $ifoundit ); foreach (@urls) { $myurl = $_; @@ -140,16 +161,43 @@ sub GotUrl { if ( length($fqdn) >= 4 ) { ## Start of Act + +## ACT0. If ShortURL, expand it. (knownShortFQDN) + if ( grep( /^$fqdn$/, @knownShortFQDN ) ) { + deb("$target Expand $fqdn"); + $browser = LWP::UserAgent->new; + $answer = HTTP::Request->new( GET => $myurl ); + $response = $browser->request($answer); + + if ( $response->is_success and $response->previous ) { + if ( $myurl ne $response->request->uri ) { + $junk = $response->request->uri; + if ( index( $junk, 'http' ) == 0 ) { + deb("$target Expanded $fqdn"); + $myurl = $junk; + ( $junk, $fqdn ) = split( /\/\//, $myurl, 2 ); + ( $fqdn, $junk ) = split( /\//, $fqdn, 2 ); + } + } + } + + } + ## ACT1: Update URL if Cloudflared if ( grep( /^$fqdn$/, @cached ) ) { deb("$target Found in Cache $fqdn"); $mytype = '^B^C3[Archive]^O '; - $myurl = 'https://web.archive.org/web/' . $myurl; + $myurl = 'https://web.archive.org/web/' . $myurl; } else { if ( $cfg_uselocaldb == 1 ) { deb("$target Lookup local DB about $fqdn"); - open( CFSFILE,$cfg_localdbpath. "cloudflare_". substr( $fqdn, 0, 1 ). ".txt" ) or die "file not found for $fqdn"; + open( CFSFILE, + $cfg_localdbpath + . "cloudflare_" + . substr( $fqdn, 0, 1 ) + . ".txt" ) + or die "file not found for $fqdn"; $ifoundit = 0; while (<CFSFILE>) { $line = $_; @@ -164,7 +212,7 @@ sub GotUrl { if ( $ifoundit == 1 ) { push( @cached, $fqdn ); $mytype = '^B^C3[Archive]^O '; - $myurl = 'https://web.archive.org/web/' . $myurl; + $myurl = 'https://web.archive.org/web/' . $myurl; } } else { @@ -178,7 +226,7 @@ sub GotUrl { if ( $answer eq '[true,true]' ) { push( @cached, $fqdn ); $mytype = '^B^C3[Archive]^O '; - $myurl = 'https://web.archive.org/web/' . $myurl; + $myurl = 'https://web.archive.org/web/' . $myurl; } } } @@ -193,23 +241,32 @@ sub GotUrl { $response = $browser->get($url); $answer = $response->content; if ( index( $answer, 'https://ux.nu/' ) == 0 ) { - if ($mytype eq ''){ - $mytype = '^B^C7[Short]^O '; - }else{ - $mytype = '^B^C2[Short,Archive]^O '; + if ( $mytype eq '' ) { + $mytype = '^B^C7[Short]^O '; + } + else { + $mytype = '^B^C2[Short,Archive]^O '; } $myurl = $answer; } } } -##ACT3: Shout Result - if ( $cfg_send2chan == 1 ) { - $server->command("msg $target $myurl"); +##ACT3: Result + if ( $cfg_printurl == 1 ) { + Irssi::print("URL: $mytype$myurl"); } - else { - $server->print( "$target", "$mytype$myurl", MSGLEVEL_CLIENTCRAP ); + + if ( $cfg_donotsendurl != 1 ) { + if ( $cfg_send2chan == 1 ) { + $server->command("msg $target $myurl"); + } + else { + $server->print( "$target", "$mytype$myurl", + MSGLEVEL_CLIENTCRAP ); + } } + ## End of Act } deb("$target process done for input $myurl"); |