GFK's Palace

CPAN has a perl module called WWW::Google::Video. However, it seems that the module was made before Google decided to put a GVP file for download. So I extendted the module to support the GVP file.

I sent my modified version to the author (莉洛) but until it makes its way into CPAN, I'll keep a local copy for your downloading pleasure.

I also added a demo CGI in the documentation, you should check it out.

Here's the source code for the demo:

#!/usr/bin/perl -T

use strict;
use warnings "all";
use WWW::Google::Video;
use CGI qw/:standard/;

print header;

if (param()) {
  die "Not a Google Video URL." unless param('url') =~ m#\Qhttp://video.google.com/videoplay?\E#;
  my $vid=new WWW::Google::Video;
  $vid->fetch(param('url'));

  print start_html('Fun with perl and with Google Video: '.$vid->{title}),"\n";
  print h1('Fun with perl and Google Video: '.$vid->{title}),"\n";
  print p,$vid->{description},p,"\n";
  print p,"[ ",a({href=>'http://video.google.com/videoplay?docid='.$vid->{docid}},"See on Google Video")," | ";
  print a({href=>$vid->{avi}},"Download as DivX AVI")," ]",p,"\n";
  print p,"You will need the ",a({href=>'http://divx.com/'},"DivX Player")," in order to play the downloaded AVI.",p,"\n";

  foreach(@{ $vid->{pic} }){
    print img({src=>$_}),"\n";
  }
} else {
  print start_html('Fun with perl and Google Video'),"\n";
  print h1('Fun with perl and Google Video'),"\n";
}

print start_form('get'),"\n";
print "Enter the Google Video URL that you want to play:",p,textfield('url','',65),p,"\n";
print submit,"\n",end_form,"\n";

print end_html,"\n";