Server Side Video Transcoding!

alou131

Hello all!

I have this server side video transcoding script that works on all video files uploaded and transcodes them to the .flv format. The problem is when a video file that is already in the.flv format is uploaded, the script tries to transcode it also and an error occurs. Is there a way to have the script not try to transcode .flv files? I would appreciate any help given.

Expand|Select|Wrap|Line Numbers

  
use IO::Socket::UNIX;

use IO::File;
 
my $vbrate = 64;
 
my $mplayer = "mplayer";

my $mencoder = "mencoder";
 
sub get_length {

  my ($file) = @_;
 
  my $pipe = IO::File->new("$mplayer -vo null -ao null -identify -ss 100:00:00 $file 2>&1|");

  while (<$pipe>) {

    if (/^ID_LENGTH=([\d\.]+)/) {

      return $1;

    } elsif (/^V:\s*(\d+\.\d+)/) {

      return $1;

    }

  }

  undef;

}
 
my $listen_path = "/tmp/transcode_socket";

unlink($listen_path);
 
my $listen = IO::Socket->new(Type => SOCK_STREAM,

                 Local => $listen_path,

                 Listen => 1,

                 Domain => AF_UNIX

                );
 
my $sock;

while (($sock = $listen->accept)) {

  my $buf = $sock->getline;

  my ($ifile, $ofile) = split(/\s+/, $buf);
 
  my $pid = fork();

  if ($pid == 0) {

    my $len = get_length($ifile);

    my $ss = 0;

    if ($len) {

      $ss = $len / 2;

    }

#    system("mplayer -ss $ss -vo jpeg -frames 1 $ifile >/dev/null 2>&1");

    exec "mencoder -vf scale=320:240 -ofps 15 -o $ofile -of lavf -lavfopts i_certify_that_my_video_stream_does_not_use_b_frames -oac lavc -lavcopts acodec=mp3:abitrate=32 -srate 22050 -ovc lavc -lavcopts vcodec=flv:vbitrate=${vbrate}:mbd=2:mv0:trell:v4mv:cbp:last_pred=3:predia=2:dia=2:vmax_b_frames=0:vb_strategy=1:precmp=2:cmp=2:subcmp=2:preme=2:qns=2 -lavcopts vpass=1 $ifile";

  }

}
 
exit (0);

KevinADC

check the filename with a reexp:

Expand|Select|Wrap|Line Numbers

 if ($filename =~ /\.flv/) {

   skip it somehow

}

alou131

Quote:

Originally Posted by KevinADC

check the filename with a reexp:

Expand|Select|Wrap|Line Numbers

 if ($filename =~ /\.flv/) {

   skip it somehow

}

I really do not know how to go about doing that. It may be just some simple addition additional code to add or edit but am not at all in any sense of the word a programmer.

Server Side Video Transcoding!

re: Server Side Video Transcoding!

re: Server Side Video Transcoding!

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about