#!/usr/bin/perl -w
#finds the last of v???????.jpg

#$filenames = `ls images/v???????.jpg`;
#print $filenames;
system("ls images/v???????.jpg > vindexlist.txt");
#open (VINDEXLIST, "vindexlist.txt"); # open listfile for read only
open (VINDEXLIST, "< vindexlist.txt"); # open listfile for read only
if (defined ($filenames = <VINDEXLIST>)) {
  $filenames =~ s/v(\d{7}).jpg\n//;
  $currentmaxframenumber = $1;
}
else {
  #$currentmaxframenumber = 0;
  $currentmaxframenumber = "0000000";
  #print "0000000\n"; # if no files defined, start at 0
  #exit(); no need for this
}

while (defined ($filenames = <VINDEXLIST>)) {
  $filenames =~ s/v(\d{7}).jpg\n//;
  $framenumber = $1;
  if ($framenumber > $currentmaxframenumber) {
    $currentmaxframenumber = $framenumber;
  }#end if
}

$maxframenumber = $currentmaxframenumber;

print $maxframenumber."\n";