Changeset 2386
- Timestamp:
- Sep 7, 2016, 2:09:02 PM (5 years ago)
- Location:
- keep-skel/trunk/fuentes
- Files:
-
- 3 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
keep-skel/trunk/fuentes/debian/changelog
r184 r2386 1 keep-skel (0.28) xenial; urgency=medium 2 3 * Add blacklist to keep-skel 4 5 -- Raul Rodrigo Segura <raurodse@gmail.com> Wed, 07 Sep 2016 14:07:42 +0200 6 1 7 keep-skel (0.27) xenial; urgency=high 2 8 -
keep-skel/trunk/fuentes/keep-skel.install/usr/bin/keep-skel
r183 r2386 16 16 my $force; 17 17 my $num_args; 18 18 my @rules; 19 my $rulespath = '/usr/share/keep-skel/rules'; 20 sub get_rules(){ 21 if ( -e $rulespath ){ 22 open(my $fd ,$rulespath ); 23 while(my $row = <$fd>){ 24 chomp $row; 25 push(@rules,$row); 26 } 27 } 28 } 19 29 20 30 sub show_usage() … … 30 40 31 41 # Destination file 42 my $needle = $File::Find::name; 43 $needle =~ s/\/etc\/skel\///g; 44 foreach(@rules){ 45 if ($needle =~ /$_/ ){ 46 return; 47 } 48 } 32 49 my $destinationFile=""; 33 50 $destinationFile=$File::Find::name; 34 51 $destinationFile =~ s/\/etc\/skel/\/home\/$user/g; 35 52 print $destinationFile."\n"; 53 return ; 36 54 # If it is a directory.... 37 55 if ( -d $File::Find::name ) … … 81 99 "verbose"=>\$verbose 82 100 ); 83 101 get_rules(); 84 102 foreach (@users) 85 103 {
Note: See TracChangeset
for help on using the changeset viewer.