Changeset 740

Timestamp:

11/16/08 20:25:59 (3 years ago)

Author:

OlivierRaginel

Message:

Item38: Removed call to wget, use LWP package instead

File:

• trunk/IrcLogPlugin/lib/TWiki/Plugins/IrcLogPlugin.pm (modified) (1 diff)

trunk/IrcLogPlugin/lib/TWiki/Plugins/IrcLogPlugin.pm

@@ -75 +75 @@
     if ( $href )
     {
-        $text = `wget -O - "$href"`;
+        # This block replaces a call to: wget -O - $href
+        # Don't use wget, use LWP instead
+        require LWP;
+        my $ua = new LWP::UserAgent;
+        # Load proxy settings
+        $ua->env_proxy;
+        my $request = HTTP::Request->new( 'GET' );
+        $request->url( $href );
+        my response = $ua->request( $request );
+        $text = $response->content;
     }
     elsif ( $topic || $web )