my $file_url = $image_details->{File_URL}; # this is only the URL/folder

my $file_url = $image_details->{File_Directory}; # this is only the URL/folder

my @cut = split //, $id;
my $folderid = $cut[$#cut];

my $folderid = (reverse split //, $id)[0];

#!/usr/bin/perl

use strict;
use lib '/var/www/vhosts/biohazardmen.com/cgi-bin/tube/admin';
use Links qw/$DB $IN $CFG/;
use LWP::Simple;

my $tbl = $DB->table('Links');
my $sth = $tbl->select( { isProcessed => 0 } ) || die $GT::SQL::error;

while (my $hit = $sth->fetchrow_hashref) {
processed_record($hit);
}

sub processed_record {

my $video_path = Get_Image_URL($hit->{ID},'Video','Links');

#my @split = split /\//,$hit->{Video};
my $filename = (reverse split /\//, $video_path)[0];

my $dest_flv = $filename;
$dest_flv =~ s/\.(mpe?4|mpe?g|mov)/.flv/i; # be sure to add any other formats you want to accept in here. It will change stuff like test.mp4 into test.flv

my $thumb_image = "/path/to/your/thumbs/$hit->{ID}.jpg";
my $large_image = "/path/to/your/full/$hit->{ID}.jpg";

`ffmpeg -i $video_path -ab 56 -ar 44100 -b 200 -r 15 -s 640x480 -f flv $dest_flv`;
`ffmpeg -i $video_path -vcodec mjpeg -vframes 1 -an -f rawvideo -ss 00:00:10 -s 160*120 $thumb_image`;
`ffmpeg -i $video_path -vcodec mjpeg -vframes 1 -an -f rawvideo -ss 00:00:20 -s 640*480 $large_image`;
my $runtime = `ffmpeg -i $video_path 2>&1 | grep "Duration" | cut -d ' ' -f 4 | sed s/,//`;
$runtime =~ s/\.\d\d$// ;

$DB->table('Links')->update( {
FLV_File => $dest_flv,
Length => $runtime,
Thumb_160x120 => $thumb_image,
Video_Image => $large_image,
isProcessed => 1
} , { ID => $hit->{ID} } ) || die $GT::SQL::error;

`rm -f $video_path`; # be cautious with this one - in case you ever wanna "reprocess" the videos ;)
}


sub Get_Image_URL {


my ($ID,$field,$table) = @_;

$table ||= 'Links';

# make sure a fieldname and ID are provided...
if (!$ID || !$field) { return "You need to define the ID and fieldname."; }

# get the actual path to where the file is/will be saved...
my $schema = $DB->table($table)->cols;
my $path = $schema->{$field}->{'file_save_url'};
$path =~ s,/$,,; # get rid of trailing / at end of $path

my $image_details = $DB->table($table."_Files")->select( { ForeignColName => $field, ForeignColKey => $ID } )->fetchrow_hashref;

my $id = $image_details->{ID};
my $filename = $image_details->{File_Name};
my $file_url = $image_details->{File_Directory}; # this is only the URL/folder

my $folderid = (reverse split //, $id)[0];

my $url = "$file_url/$folderid/$id-$filename";


$url =~ s|([^\/]+)$|GT::CGI->escape( $1 )|e;

return ($url);

}