#!/usr/bin/perl
#
# Programmer:    Craig Stuart Sapp <craig.stanford.edu>
# Creation Date: Fri Oct 26 04:36:12 PDT 2007
# Last Modified: Fri Oct 26 04:36:12 PDT 2007
# Filename:      /tmp/wtc-1/score/renumber
# Syntax:        perl 5
#
# Description:   renumber pages in a directory so that they start with 01.
#                only works on two digits number names.
#

use strict;

my @files = @ARGV;
my $file;
my @list;

my $smallest = 1000000;
my $digits;

foreach $file (@files) {
print "$file\n";
   next if -d $file;
   next if !-r $file;
   next if $file !~ /^(\d\d\d)\./;
   $list[@list] = $file;
   $digits = $1;
   $digits =~ s/^0+//;
   if ($smallest > $digits) {
      $smallest = $digits;
   }
}

print "Smallest file number is: $smallest\n";
exit if $smallest > 10000;


foreach $file (@list) {
#print "\t$file\n";
   renamex($file, $smallest);
}


exit 0;

###########################################################################

##############################
##
## renamex --
##

sub renamex {
   my ($file, $min) = @_;
   my $base;

   return if $file !~ /^(\d\d\d)\.(.*)/;

   my $orig = $1;
   my $base = $2;

   $orig =~ s/^0+//;
   #print "\t$orig\n";
   my $newnum = $orig - $min + 1;
   $newnum = "0$newnum" if $newnum < 10;
   $newnum = "0$newnum" if $newnum < 100;
   
   return if "$file" eq "$newnum.$base";

   `mv $file $newnum.$base`;
}