Changeset 3809

Timestamp:

12/30/07 17:26:52 (5 years ago)

Author:

yusukebe

Message:

this versionup enables create object from id

Files:

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

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

@@ -10 +10 @@
 use CGI;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 sub new {
     my ( $class, %opt ) = @_;
     my $self = bless { %opt }, $class;
-    $self->_scrape;
+    if ($self->{url}){
+        $self->_scrape;
+        $self->_get_info;
+    }
+    $self->_get_info if $self->{id};
+    croak "url or id param is requred" unless $self->{_query};
     $self;
 }
@@ -21 +26 @@
 sub _scrape {
     my $self = shift;
-    my $url = $self->{url} || croak "url param is requred";
+    my $url = $self->{url};
     croak "url is not yourfilehost link"
         unless $url =~ m!yourfilehost.com/media.php\?!;
@@ -33 +38 @@
     croak "video information is not found" unless $res->{value};
     $res->{value} =~ m/&video=(.*?)&/;
-    my $api_url = uri_unescape($1);
-    
+    $self->{api_url} = uri_unescape($1);
+}
+sub _get_info {
+    my $self = shift;
+    my $api_url = $self->{api_url} ||
+        "http://www.yourfilehost.com/video-embed.php?vidlink=&cid=" . $self->{id};
     my $ua = LWP::UserAgent->new();
-    $res = $ua->get($api_url);
+    my $res = $ua->get($api_url);
     croak "" unless $res->is_success;
     my $query = CGI->new($res->content);
-    $self->{query} = $query;
+    $self->{_query} = $query;
 }
 
 sub photo {
     my $self = shift;
-    return $self->{query}->param("photo");
+    return $self->{_query}->param("photo");
 }
 
 sub video_id {
     my $self = shift;
-    return $self->{query}->param("video_id");
+    return $self->{_query}->param("video_id");
 }
 
 sub embed {
     my $self = shift;
-    return $self->{query}->param("embed");
+    return $self->{_query}->param("embed");
+}
+
+sub id {
+    my $self = shift;
+    my $id = $1 if $self->{_query}->param("photo") =~ m!.*/(.*?).jpg!;
+    return $id;
 }
 
@@ -67 +82 @@
 =head1 VERSION
 
-This document describes WWW::YourFileHost version 0.0.1
+This document describes WWW::YourFileHost version 0.0.2
 
 =head1 SYNOPSIS
@@ -74 +89 @@
 
     my $url = 
-    "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv";
+      "http://www.yourfilehost.com/media.php?cat=video&file=hoge.wmv";
     my $yourfilehost = WWW::YourFileHost->new( url => $url );
+    # or my $yourfilehost = WWW::YourFileHost->new( id => $id );
     print $yourfilehost->photo . "\n";
     print $yourfilehost->video_id . "\n";
     print $yourfilehost->embed . "\n";
+
 
 =head1 AUTHOR