Changeset 12007

Timestamp:

05/19/08 23:54:24 (3 months ago)

Author:

yusukebe

Message:

use_agent を指定できるようにした

Files:

• lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm (modified) (3 diffs)

lang/perl/WWW-YourFileHost/trunk/lib/WWW/YourFileHost.pm

@@ -15 +15 @@
     my ( $class, %opt ) = @_;
     my $self = bless {%opt}, $class;
+    $self->{ua} =
+      $self->{user_agent}
+      ? LWP::UserAgent->new( agent => $self->{user_agent} )
+      : LWP::UserAgent->new;
     if ( $self->{url} ) {
         $self->_scrape;
@@ -36 +40 @@
     };
 
+    $s->user_agent($self->{ua});
     my $res = $s->scrape( URI->new($url) );
     croak "video information is not found" unless $res->{value};
@@ -47 +52 @@
       || "http://www.yourfilehost.com/video-embed.php?vidlink=&cid="
       . $self->{id};
-    my $ua  = LWP::UserAgent->new();
+    my $ua  = $self->{ua}; #LWP::UserAgent->new();
     my $res = $ua->get($api_url);
-    croak "" unless $res->is_success;
+    croak "can't get yourfilehost page" unless $res->is_success;
     my $query = CGI->new( $res->content );
     $self->{_query} = $query;