Changeset 2386

Timestamp:

Sep 7, 2016, 2:09:02 PM (4 years ago)

Author:

kbut

Message:

add blacklist to keep-skel

Location:

keep-skel/trunk/fuentes

Files:

• debian/changelog (modified) (1 diff)
• keep-skel.install/usr/bin/keep-skel (modified) (3 diffs)
• keep-skel.install/usr/share (added)
• keep-skel.install/usr/share/keep-skel (added)
• keep-skel.install/usr/share/keep-skel/rules (added)

keep-skel/trunk/fuentes/debian/changelog

@@ +1 @@
+keep-skel (0.28) xenial; urgency=medium
+
+  * Add blacklist to keep-skel
+
+ -- Raul Rodrigo Segura <raurodse@gmail.com>  Wed, 07 Sep 2016 14:07:42 +0200
+
 keep-skel (0.27) xenial; urgency=high
 

keep-skel/trunk/fuentes/keep-skel.install/usr/bin/keep-skel

@@ -16 +16 @@
 my $force;
 my $num_args;
-
+my @rules;
+my $rulespath = '/usr/share/keep-skel/rules';
+sub get_rules(){
+        if ( -e $rulespath ){
+                open(my $fd ,$rulespath );
+                while(my $row = <$fd>){
+                        chomp $row;
+                        push(@rules,$row);
+                }
+        }
+}
 
 sub show_usage()
@@ -30 +40 @@
 
         # Destination file
+        my $needle = $File::Find::name;
+        $needle =~ s/\/etc\/skel\///g;
+        foreach(@rules){
+                if ($needle =~ /$_/ ){
+                        return;
+                }
+        }
         my $destinationFile="";
         $destinationFile=$File::Find::name;
         $destinationFile =~ s/\/etc\/skel/\/home\/$user/g;
-        
+        print $destinationFile."\n";
+        return ;
         # If it is a directory....
         if ( -d $File::Find::name ) 
@@ -81 +99 @@
                       "verbose"=>\$verbose
                         );
-
+get_rules();
 foreach (@users)
 {