#!/usr/bin/perl -w
#while (defined($nextname = <v.pcd>)) {

if ($#ARGV < 0) {
  printf("Use: jpg2eps.pl v0000???.jpg # or use gash\n");
  printf("     jpg2eps.pl also autodetects jpg or ppm\n");
  die "     ERROR: YOU MUST SPECIFY SOME FILENAMES TO BE CONVERTED$!\n";
}

#printf("\n");
for ($counter=0; $counter<=$#ARGV+1-1; $counter++) {
  # $#ARGV is -1 if no arguments given; is 0 if 1 argument given, etc...
  $filein = $ARGV[$counter];
  $periodposition = rindex($filein,"."); # right index, period from right
  $postfix = substr($filein,$periodposition+1,3); # 2 char, e.g. JP or jp
  $postfix =~ tr/[A-Z]/[a-z]/;

  $fileout = substr($filein,0,$periodposition); # before period
  $fileout = $fileout.".eps"; # e.g. v000.eps, v001.eps, etc...

  #if input is not JPEG, jpeg, JPG, jpg, or PGM, PPM, PNM, pgm, ppm, pnm:
  if(($postfix ne "jpg")&&($postfix ne "jpe")&&($postfix ne "pgm")&&($postfix ne "ppm")&&($postfix ne "pnm")){
     printf("Use: jpg2eps.pl v0000???.jpg # or use gash\n");
     printf("     jpg2eps.pl also autodetects jpg or ppm\n");
     die "     ERROR: input must be jpeg or pnm        $!\n";
  }

  #if input is JPEG, jpeg, JPG, or jpg:
  if (($postfix eq "jpg") || ($postfix eq "jpe")) {
     `djpeg $filein > deleteme_deleteme.pgm`;
     $filein = "deleteme_deleteme.pgm";
  }

 printf("filein is $filein;  fileout is $fileout\n");

 `ppmtopgm $filein > deleteme_deleteme_grey.pgm`;
 `pnmtops -noturn deleteme_deleteme_grey.pgm > $fileout`;
}