new script to stop and start the exim and courier and spamassassin and mailman services
[feisty_meow.git] / scripts / files / change_endings.pl
1 #!/usr/bin/perl
2
3 ###############################################################################
4 #                                                                             #
5 #  Name   : change endings                                                    #
6 #  Author : Chris Koeritz                                                     #
7 #  Rights : Copyright (C) 2002-$now by Author                                 #
8 #                                                                             #
9 #  Purpose:                                                                   #
10 #                                                                             #
11 #    Replaces all of the endings on files in the current directory with       #
12 #  a different ending.  The first parameter should be the old ending and the  #
13 #  second parameter should be the new ending.                                 #
14 #                                                                             #
15 ###############################################################################
16 #  This script is free software; you can redistribute it and/or modify it     #
17 #  under the terms of the GNU General Public License as published by the Free #
18 #  Software Foundation; either version 2 of the License or (at your option)   #
19 #  any later version.  See "http://www.fsf.org/copyleft/gpl.html" for a copy  #
20 #  of the License online.  Please send any updates to "fred@gruntose.com".    #
21 ###############################################################################
22
23 # change_endings: takes all of the files in the current directory ending in $1
24 # and modifies their suffix to be $2.
25
26 require "filename_helper.pl";
27
28 #require "importenv.pl";
29 #require "inc_num.pl";
30
31 local($first) = $ARGV[0];
32 local($second) = $ARGV[1];
33
34 #print "parms are: $first and $second \n";
35
36 if ( !length($first) || !length($second) ) {
37   print "change_endings: requires two parameters--the old suffix to look for in this\n";
38   print "directory and the new suffix (without dots) to change the old suffix to.\n";
39   exit 0;
40 }
41
42 foreach $filename (&glob_list("./*$first")) {
43 #old  print "file=$filename\n";
44 #old  local($ext_temp) = &extension($filename);
45 #old  print "ext is: $ext_temp\n";
46 #old  local($no_ext) = &non_extension($filename);
47 #old  print "cmd is: mv \"$filename\" \"$no_ext$second\"\n";
48 #old  system("mv \"$filename\" \"$no_ext$second\"");
49
50   local $new_name = $filename;
51   $new_name =~ s/$first/$second/g;
52 #print "old name $filename\n";
53 #print "new name would be $new_name\n";
54
55   system("mv \"$filename\" \"$new_name\"");
56 }
57
58