-#!/usr/bin/perl
-
-###############################################################################
-# #
-# Name : change endings #
-# Author : Chris Koeritz #
-# Rights : Copyright (C) 2002-$now by Author #
-# #
-# Purpose: #
-# #
-# Replaces all of the endings on files in the current directory with #
-# a different ending. The first parameter should be the old ending and the #
-# second parameter should be the new ending. #
-# #
-###############################################################################
-# This script is free software; you can redistribute it and/or modify it #
-# under the terms of the GNU General Public License as published by the Free #
-# Software Foundation; either version 2 of the License or (at your option) #
-# any later version. See "http://www.fsf.org/copyleft/gpl.html" for a copy #
-# of the License online. Please send any updates to "fred@gruntose.com". #
-###############################################################################
-
-# change_endings: takes all of the files in the current directory ending in $1
-# and modifies their suffix to be $2.
-
-require "filename_helper.pl";
-
-local($first) = $ARGV[0];
-local($second) = $ARGV[1];
-
-#print "parms are: $first and $second \n";
-
-if ( !length($first) || !length($second) ) {
- print "change_endings: requires two parameters--the old suffix to look for in this\n";
- print "directory and the new suffix (without dots) to change the old suffix to.\n";
- exit 0;
-}
-
-foreach $filename (&glob_list("./*$first")) {
-#old print "file=$filename\n";
-#old local($ext_temp) = &extension($filename);
-#old print "ext is: $ext_temp\n";
-#old local($no_ext) = &non_extension($filename);
-#old print "cmd is: mv \"$filename\" \"$no_ext$second\"\n";
-#old system("mv \"$filename\" \"$no_ext$second\"");
-
- local $new_name = $filename;
- $new_name =~ s/$first/$second/g;
-#print "old name $filename\n";
-#print "new name would be $new_name\n";
-
- system("mv \"$filename\" \"$new_name\"");
-}
-
-