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.

 
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:

if ($filename =~ /\.flv/) {
   skip it somehow
}

[alou131]

check the filename with a reexp:

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.