[duckduckgo.pl] v0.04

diff --git a/scripts/duckduckgo.pl b/scripts/duckduckgo.pl
index cf45747c066cf1f90cb6505c0c8b1a5c7c5f79d5..f9e99e0ee3c4495d665ea30d0e61279ba72cacd0 100644 (file)
--- a/scripts/duckduckgo.pl
+++ b/scripts/duckduckgo.pl
@@ -19,7 +19,7 @@ use LWP::UserAgent;
 use HTML::Entities;
 use URI::Escape;
 
-$VERSION = '0.03';
+$VERSION = '0.04';
 %IRSSI = (
     authors    => 'bw1',
     contact    => 'bw1@aol.at',
@@ -27,7 +27,7 @@ $VERSION = '0.03';
     description        => 'search by https://duckduckgo.com/html/',
     license    => 'lgplv3',
     url                => 'http://scripts.irssi.org',
-    changed    => '2021-10-09',
+    changed    => '2025-07-20',
     selfcheckcmd=> 'ddg -check',
 );
 
@@ -49,7 +49,7 @@ sub www_get {
        (my $url) =@_;
        # Initialize LWP
        my $ua = new LWP::UserAgent;
-       $ua->agent("duckduckgo.pl/0.1 " . $ua->agent);
+       $ua->agent("duckduckgo.pl");
        # get 
        my $req = new HTTP::Request GET =>$url; 
        my $res = $ua->request($req);
@@ -149,7 +149,7 @@ sub cmd_ddg {
                } elsif ($alist[0] eq '-check') {
                        @res=();
                        cmd_searchf("irssi");
-                       Irssi::timeout_add_once(3000,\&self_check,'');
+                       Irssi::timeout_add_once(3500,\&self_check,'');
                }
        }
 }