[gentoo-user] Re: walk thru new ._cfg000 - a rough perl script

reader@×××××××.com writes:

> I've included the bare script in line at the

OOps maybe not..

===========================
./updetc.pl

#!/usr/bin/perl 

## find /etc -iname '._cfg????_*'
use strict;
use warnings;
use File::Find;

my $myscript;
($myscript = $0) =~ s/^.*\///;
# Variable to create directory where  needed
my $STST = 'START_STOP';


## produces something like: 091207_101630
## Which means: Aug 12 2007 10:16:30
my ($mon,$mday,$year,$hour,$min,$sec) = (localtime(time))[4,3,5,2,1,0];
#    $year += 1900; ## prints 2005 
    $year -= 100;  ## prints 05 (with %02d)
    $mon  += 1;
my  $PaddedDateStr = sprintf "%02d%02d%02d%s%02d%02d%02d", $mon,$mday,$year,"_",$hour,$min,$sec;

if(!@ARGV){
  usage();
   print "Usage tripped at " . __LINE__ . "\n";
  exit;
}
my $dir;
my $switch = shift;
$dir  = shift || die "We need two cmdline arguments: $!";

if ( ! -d  $dir){
   usage();
   print "No directory <$dir> can be found\n";
   print "Usage tripped at " . __LINE__ . "\n";
}

find(\&wanted, $dir);
my @ar;
sub wanted {
  if(/^\._cfg0000/){
     push @ar,$File::Find::name;
   }
}
if(!@ar){
  print "
  No temporary ._cfg0000_*files were found... exiting\n";
  exit;
}
if($switch =~ /\-s\s*$/){
  ## we are in `show' mode
    for(@ar){
	print "$_\n";
    }
    exit;
}

if($switch =~ /\-c\s*$/){
   ## cp  new versions over old
       ## get our filename for echoing and its root
    my $newconf1      =  $ar[0];
   (my $fs_conf       =  $newconf1) =~ s/\._cfg0+_//;

    print 
"  ====* Replacing old conf versions  with new,, backup both *====
   We find the new ._cfg000 files and offer a chance to view diffs
   followed by choosing to use or not.  But either way they are 
   stored for future reference or use.

   If you decide to use the conf files we OVERWRITE the old ones but 
   keep a dated copy in a special directory <START_STOP> made for that
   purpose, wherever needed in the filesystem. 
   Like:       
     copy <$newconf1>  
   OVERWRITING
     <$fs_conf>
   (NOTE: We will save renamed copies of both the one on the fs and the 
   new version. New versions are also backed up to that special directory 
   <START_STOP/> created throughout filesystem as needed.)

   If you want more information before proceeding..
   Press Ctrl-c now and type:
     \`$myscript  help' to learn the names to search for and 
   the detailed proceedure
"; 
   print "Press enter to continue or select the Ctrl-c option\n";
   <STDIN>;
    print 
"=====     *     =====     *     =====     *     =====     *     =====\n";
 my $ans;
    for(@ar){
   ## Setup some more file name renditions we are likely to need
    my $newconf       = $_;
   ## Reassing fs_conf so old value doesn't pop up unwanted from above
   ($fs_conf          =  $newconf) =~ s/\._cfg0+_//;
   (my $prepended     =  $newconf) =~ s/(^.*)(\._cfg0+_.*$)/$2/;
   (my $conf_path     =  $newconf) =~ s/\/\._cfg0+.*$//;
   (my $fs_conf_short =  $fs_conf)  =~ s/^.*\///;
    my $stt_conf      = "START-USE" . $prepended;
    my $stp_conf      = "STOP-USE_" . $fs_conf_short;
    my $nouse_conf    = "NOUSE".$newconf;

     ## Test to see if me have a matching conf already on
     ## the fs in use.
     if ( ! -e $fs_conf){
        ## None present.. so we offer to install AND save it in STST             
 	  print "   
        <$newconf> 
   has no counterpart on the fs..  Shall we install it like this:
 cp <$newconf>  (over writing!) 
      <$fs_conf>
   and 
 mv <$newconf
      <$conf_path/$STST/$stt_conf-$PaddedDateStr>
 ";
    print "
   Any thing but <y> will rename the newconf to:
     $conf_path/$STST/NOUSE$prepended-$PaddedDateStr
   
 ";
    print "     [y/n] > ";
    $ans = <STDIN>;
    ## Make sure we have the $STST directory
    if (! -d "$conf_path/$STST") {
        print "Creating directory $conf_path/$STST\n";
        mkdir "$conf_path/$STST" ||
               die "Cannot mkdir $conf_path/$STST: $!"; 
     }
      if ($ans !~ /\by\b/) {
         print "
   =-=-=-=-=-=-=-=-=-=-= Operations Underway -=-=-=-=-=-=-=-=-=-=-=-=-=-
   Moving 
     $newconf 
   to 
     $conf_path/$STST/NOUSE$prepended
";
        rename $newconf, "$conf_path/$STST/NOUSE".$prepended ."-". $PaddedDateStr || die 
              "Can't rename $newconf to $conf_path: $!";           
        print "=-=-=-=-=-=-=-=-=-=-= Rename succeded -=-=-=-=-=-=-=-=-=-=-=-=-=-\n";
        next;
       }else {

         print "   
   =-=-=-=-=-=-=-=-=-=-= Operations Underway -=-=-=-=-=-=-=-=-=-=-=-=-=-
   Ok, you've decided to start using this conf file.
   cp $newconf  (installing it)
        $fs_conf 
  and moving
    $newconf to
       $conf_path/$STST/$stt_conf-$PaddedDateStr
";
        ## open the START-USE file
        open(START,">$conf_path/$STST/$stt_conf-$PaddedDateStr")  
            or die "Can't open <$conf_path/$STST/$stp_conf-$PaddedDateStr>: $!";      
        ## Write our size tested slurped data to that file Now theoretically
        ## we have solid copy of the working conf file written to the STST directory
        print START slurp($fs_conf)  . "\n"; 
        close(START);
        
        ## now we rename $newconf over $fs_conf
        rename $newconf, $fs_conf  or die 
                "Can't rename $newconf to $fs_conf: $!";
       print "   =-=-=-=-=-=-=-=-=-=-= Rename Suceeded -=-=-=-=-=-=-=-=-=-=-=-=-=-\n";
          next; 
      }   
     }else {
       ## we handle the files that do match their counterparts
       print "   Incoming <$newconf>
   Shall we install it as described; overwriting the existing one?
 ";
    print "
   Anything but <y> will rename the new conf listed above to 
 $conf_path/$STST/NOUSE$prepended-$PaddedDateStr 
   for reference
 ";
    print "
  **Take a look at the diffs before deciding if you need to**
diff $newconf $fs_conf

";
    print "     [y/n] > ";
    $ans = '';
    $ans = <STDIN>;
    ## Make sure we have the $STST directory
    if (! -d "$conf_path/$STST") {
        print "Creating directory $conf_path/$STST\n";
        mkdir "$conf_path/$STST" ||
               die "Cannot mkdir $conf_path/$STST: $!"; 
     }
       if ($ans !~ /\by\b/) {     
        print "
   =-=-=-=-=-=-=-=-=-=-= Operations Underway -=-=-=-=-=-=-=-=-=-=-=-=-=-
   Moving 
     <$newconf> 
   to 
     <$conf_path/$STST/NOUSE$prepended-$PaddedDateStr>
";
        rename $newconf, "$conf_path/$STST/NOUSE".$prepended."-".$PaddedDateStr || die 
                       "Can't rename <$newconf> to <$conf_path>h: $!";  
        print"
   =-=-=-=-=-=-=-=-=-=-= Rename Succeeded -=-=-=-=-=-=-=-=-=-=-=-=-=-\n";         
        next;
       }else {
          print "
   =-=-=-=-=-=-=-=-=-=-= Operations Underway -=-=-=-=-=-=-=-=-=-=-=-=-=-
   Copy the working file to
     <$conf_path/$STST/$stp_conf-$PaddedDateStr>
   copy the newconf
     <$newconf> 
   to 
     <$conf_path/$STST/$stt_conf-$PaddedDateStr>
   And finally rename 
   <$newconf> 
  to 
   <$fs_conf> 
";
 
        ## open the STOP-USE file
        open(STOP,">$conf_path/$STST/$stp_conf-$PaddedDateStr")  
            or die "Can't open <$conf_path/$STST/$stp_conf-$PaddedDateStr>: $!";      
        ## Write our size tested slurped data to that file Now theoretically
        ## we have solid copy of the working conf file written to the STST directory
        print STOP slurp($fs_conf)  . "\n"; 
        close(STOP);
 
        ## open the START-USE file
        open(START,">$conf_path/$STST/$stt_conf-$PaddedDateStr")  
            or die "Can't open <$$conf_path/$STST/$stt_conf-$PaddedDateStr>: $!";      
        ## Write our size tested slurped data to that file Now theoretically
        ## we have solid copy of the working conf file written to the STST directory
        print START slurp($newconf) || die
        "reprint of $newconf to <$conf_path/$STST/$stt_conf-$PaddedDateStr> Failed: $!"; 
        close(START);
        
        ## now we rename $newconf over $fs_conf
        rename $newconf, $fs_conf  or die "Can't rename $newconf to $fs_conf: $!";
   print "   =-=-=-=-=-=-=-=-=-=-= Rename  Succeeded -=-=-=-=-=-=-=-=-=-=-=-=-=-\n";
     }
    }
  }   
}

## This routine avoids having to use another module like
## File::Copy to get single file copies preformed.
sub slurp {
  ## Compare reported size to read size 
  ## (will find funky file endings like from dos files)
  ## amongst other things.
  my $file = $_;
  open(my $fh,'<:raw', $file)
    or die "Cannot open '$file' $!";
  my $size = -s $fh;
  $size == read $fh, my $data, $size
    or die "Cannot \`read' <$file> $!";
     return  $data ;
}

sub usage {
     print "
  Purpose: Find files that need updating after emerge update operations  
           on gentoo linux
    Usage: \`$myscript -[cs] DIRECTORY'
    flags: -c carry out the copy move operations in DIRECTORY <recursive>
           -s show the existing ._cfg0000* files in DIRECTORY <recursive>

  Notes: \`$myscript' will give you a chance to bail in several places
         before any changes are made.  It will keep you posted as to what
         it will do prior to doing it.

         You will also get a ready made diff command to check out what
         has changed if you want to use it. (requires another terminal
         running to past the ready made `diff' command in) ";
}

-- 
gentoo-user@g.o mailing list