#!/usr/bin/perl

use CGI ':standard';

$video = param('video');

use LWP::Simple qw(!head);
$url = get ("http://www.domain.org/facebookvideos/$video/");

$url =~ s*<meta property="og:description" content="Text of the talk:  <a href='http://domain.org/general-conference/([^&]+)/([^&]+)/([^&]+) '>http://domain.org/general-confere...</a> ">*<meta property="og:description" content="Text of the talk: http://domain.org/general-conference/$1/$2/$3" />*g;
#$url =~ s*tion\" content\=\"*tion\" content\=\"Want more\?\? http://www.domain2.org/ *g;
$url =~ s*og:url" content="http://www.domain2.org/videos/*og:url" content="http://www.domain2.org/facebook/*g;
#$url =~ s*Want more\?\? http://www.domain2.org/ Text*Text*g;

#facebookexternalhit   or   Mozilla
if ($ENV{'HTTP_USER_AGENT'} =~ /facebookexternalhit/) 
{
   print "Content-Type: text/html\n\n";
print <<EOM;
$url
EOM
}

else {
print "Location: http://www.youtube.com/watch?v=$video\n\n";
EOM
}