use strict;

use POSIX;

use vars qw($VERSION %IRSSI);

use Irssi;

use LWP::UserAgent;

use HTML::Entities;

use URI::Escape;

$VERSION = '0.03';

%IRSSI = (

authors => 'bw1',

contact => '[email protected]',

name => 'duckduckgo',

description => 'search by https://duckduckgo.com/html/',

license => 'lgplv3',

url => 'http://scripts.irssi.org',

changed => '2021-10-09',

selfcheckcmd=> 'ddg -check',

);

my $url="https://duckduckgo.com/html?q={}";

my $view_count=5;

my $browser="firefox '{}'";

my @res;

my $res_next;

my $read_handle;

my $write_handle;

my $forkcount=0;

my $pipe_tag;

sub www_get {

(my $url) =@_;

# Initialize LWP

my $ua = new LWP::UserAgent;

$ua->agent("duckduckgo.pl/0.1 " . $ua->agent);

# get

my $req = new HTTP::Request GET =>$url;

my $res = $ua->request($req);

return $res->content;

}

sub content2res {

(my $content) = @_;

my @content =split /\n/,$content;

my @res;

my $index=1;

foreach (@content) {

if ($_ =~ m/class="result__a"/) {

my %r;

$r{index}=$index;

# url

$_ =~ m/href="(.*?)"/;

$1 =~ m/uddg=(.*)&amp/;

my $u=uri_unescape($1);

$r{url}=$u;

# txt

$_ =~ m#">(.*?)</a>#;

my $s =$1;

$r{txt_raw}=$s;

$s=~s/<b>/%U/g;

$s=~s#</b>#%U#g;

$r{txt}=$s;

# out

push @res,{%r};

$index++;

}

}

return @res;

}

sub backgroundf {

(my $url, my $write_handle) =@_;

print "child start";

my $res = www_get($url);

print "child fertig";

print $write_handle $res;

print $write_handle "\n";

close $write_handle;

}

sub view_results {

my ($start) =@_;

print "duckduckgo: results ";

for (my $c=$start; $c < $view_count+$start && $c <= $#res; $c ++) {

print $c,". ",$res[$c]->{txt};

if (length($res[$c]->{url}) <50) {

print " ",$res[$c]->{url};

} else {

print " ",substr($res[$c]->{url},0,20),"=>>";

}

}

}

sub sig_result {

print "sig_result";

my $r;

my $o_fh;

# input

$o_fh=select($read_handle);

local $/;

select($o_fh);

$r=readline($read_handle);

close($read_handle);

Irssi::input_remove($pipe_tag);

# filter

@res= content2res($r);

$res_next=0;

$forkcount--;

view_results($res_next);

}

sub sig_config {

$url = Irssi::settings_get_str('ddg_url');

$view_count = Irssi::settings_get_int('ddg_view_count');

}

sub cmd_ddg {

my ($args, $server, $witem) = @_;

my @alist =split / /,$args;

if ($alist[0] !~ m/^-/) {

cmd_searchf($args);

} else {

if ($alist[0] eq '-browser') {

cmd_browser($alist[1]);

} elsif ($alist[0] eq '-next') {

cmd_next();

} elsif ($alist[0] eq '-help') {

cmd_help('ddg');

} elsif ($alist[0] eq '-drop') {

cmd_drop($alist[1],$witem);

} elsif ($alist[0] eq '-check') {

@res=();

cmd_searchf("irssi");

Irssi::timeout_add_once(3000,\&self_check,'');

}

}

}

sub cmd_drop {

my ($args, $witem) =@_;

if ($witem) {

$witem->command("/say $res[$args*1]->{url}");

}

}

sub cmd_next {

$res_next+=$view_count;

view_results($res_next);

}

sub cmd_searchf {

my ($args) = @_;

my $url2=$url;

$args=~s/ /+/g;

$url2=~s/{}/$args/;

# fork

if ($forkcount==0) {

print "ddg:",$url2;

$forkcount++;

pipe($read_handle, $write_handle);

my $o_fh=select($write_handle);

local $|=1;

select($o_fh);

my $pid =fork();

if (not defined $pid) {

_error("Can't fork: Aborting");

close($read_handle);

close($write_handle);

return;

}

if ($pid == 0) {

# child

backgroundf($url2,$write_handle);

POSIX::_exit(1);

} else {

# parent

close ($write_handle);

Irssi::pidwait_add($pid);

$pipe_tag = Irssi::input_add(fileno($read_handle),

Irssi::INPUT_READ, \&sig_result, "");

}

}

}

sub cmd_browser {

my ($args) = @_;

my $b=$browser;

$b =~ s/{}/$res[$args*1]->{url}/;

system($b);

}

sub self_check {

my $s='ok';

Irssi::print("Result count: ".scalar(@res));

Irssi::print("Result url: ".$res[0]->{url});

Irssi::print("Result txt length: ".length($res[0]->{txt}));

if ( scalar ( @res ) <10 ) {

$s= "Error: result count (".scalar(@res).")";

} elsif ( $res[0]->{url} !~ m/^http.*\/$/ ) {

$s= "Error: url (".$res[0]->{url}.")";

} elsif ( length($res[0]->{txt}) < 5 ) {

$s= "Error: txt length (".length($res[0]->{txt}).")";

}

Irssi::print("Selfcheck $s");

my $schs = exists $Irssi::Script::{'selfcheckhelperscript::'};

Irssi::command("selfcheckhelperscript $s") if ( $schs );

}

sub cmd_help {

if ($_[0] eq 'ddg' || $_[0] eq 'duckduckgo') {

my $help = <<'END';

Irssi::print($help, MSGLEVEL_CLIENTCRAP);

Irssi::signal_stop;

}

}

Irssi::settings_add_str("duckduckgo", "ddg_url", $url);

Irssi::settings_add_str("duckduckgo", "ddg_browser", $browser);

Irssi::settings_add_int("duckduckgo", "ddg_view_count", $view_count);

Irssi::signal_add('setup changed', "sig_config");

Irssi::command_bind('help',\&cmd_help);

Irssi::command_bind("ddg", \&cmd_ddg);

Irssi::command_set_options('ddg','help browser next drop');

sig_config();