#!/usr/bin/perl
use CGI qw(:standard);
use STRICT;
print header();

# src='http://www.bolt.com/video/flv_player_branded.swf?contentId=1952754&contentType=2' # src from bolt code

my $text = qq([video](title)- BOLT CODE - (/title)<embed  loop='false' quality='high' bgcolor='white' width='365' height='340' name='video_play_500' allowScriptAccess='sameDomain' type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/go/getflashplayer' /><br/><a href='http://www.bolt.com/'>Get video codes</a> at <a style='font-family:arial,sans-serif;font-size:12px;color:#0066CC' href='http://www.bolt.com'>Bolt</a>[/video]
[video](title)- YOUTUBE CODE - (/title)<object width="425" height="350"><param name="movie" value="http://www.youtube.com/v/topeBoB-ApQ"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/topeBoB-ApQ" type="application/x-shockwave-flash" wmode="transparent"  height="350" width="425"></embed></object>[/video]
[video](title)- YAHOO CODE - (/title)<embed src='http://us.i1.yimg.com/cosmos.bcst.yahoo.com/player/media/swf/FLVVideoSolo.swf' flashvars='id=970784&emailUrl=http%3A%2F%2Fvideo.yahoo.com%2Futil%2Fmail%3Fei%3DUTF-8%26vid%3De2e02ad6d9d1646cfa12ec8f270ae1ad.970784%26cache%3D1&imUrl=http%25253A%25252F%25252Fvideo.yahoo.com%25252Fvideo%25252Fplay%25253F%252526ei%25253DUTF-8%252526vid%25253De2e02ad6d9d1646cfa12ec8f270ae1ad.970784%252526cache%25253D1&imTitle=Nobody%252527s%252BWatching%252BOK%252BGo&searchUrl=http://video.yahoo.com/video/search?p=&profileUrl=http://video.yahoo.com/video/profile?yid=&creatorValue=bm9ib2R5c3dhdGNoaW5ndHY%3D&vid=e2e02ad6d9d1646cfa12ec8f270ae1ad.970784' type='application/x-shockwave-flash' width='425' height='350'></embed>[/video]);

while ($text =~ s{\[video\](.+?)\[\/video\]} {

($src,$fvars,$type,$width,$height) = ();

$vdata = $1;
$vdata =~ m!\(title\)(.+?)\(\/title\)!is;
$title = $1;
$vdata =~ s!("|'|#)!!isg;
$vdata =~ m!\<embed (.+?)(\>|\/\>)!is;
$video_data = $1;

$video_data =~ s!("|'|#)!!isg; #clean it up

if ($video_data =~ m|type=application\/x\-shockwave\-flash|i) {
$type = "ok";
$video_data =~ s|type=application\/x\-shockwave\-flash||ig; # remove the Type
}

$video_data =~ m!width\s*=\s*([^ ]+)!i;
$width = "$1";

$video_data =~ m|height\s*=\s*([^ ]+)|i;
$height = "$1";

$video_data =~ m|src\s*=\s*([^ ]+)|ig;
$src = "$1";

print "this is width of $title - $width\n";
print "this is height of $title - $height\n";
print "this is src of $title - $src\n";


if ($type&&$src&&$width&&$height) {

$video_data =~ s/^\s+//; #remove leading spaces
$video_data =~ s/\s+$//; #remove trailing spaces
$video_data =~ s/\s+/ /g; #remove excess white spaces

if ($video_data =~ m|flashvars\s*=\s*([^ ]+)|ig) {  #match and save
$fvars = "$1";
$video_data =~ s|flashvars\s*=\s*([^ ]+)||ig;  #delete flashvars from string
}

@values = split(' ',$video_data);
$querystring = join('&', @values);

if ($fvars) {
$querystring .= "&" . $fvars;
}

qq|<!--videocode-->QUERTSTRING,TITLE,WIDTH and HEIGHT - ($title) $querystring($title)(width - $width)(height - $height)(type - $type)(src - $src)<--videocode-->|;
} else {
qq|<!--videocode-->PROBLEM WITH VIDEO CODE TITLED - $title<--videocode-->|;
}


}eisg) {}

print "This is the text output - $text";