oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove unneeded .wgaccess files

Browse source
This commit is contained in:
Graham Knop 2008-02-20 21:01:14 +00:00
parent 4601dd2bbe
commit e82135f596
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
docs/upgrades/upgrade_7.5.2-7.5.3.pl
View file

@ -14,7 +14,8 @@ use Getopt::Long;
use WebGUI::Session;
use WebGUI::Storage;
use WebGUI::Asset;
use File::Find;
use File::Spec;
my $toVersion = '7.5.3';
my $quiet; # this line required
@ -22,11 +23,31 @@ my $quiet; # this line required
my $session = start(); # this line required
removePublicStorageAccessFiles($session);
# upgrade functions go here
finish($session); # this line required
#-------------------------------------------------
sub removePublicStorageAccessFiles {
my $session = shift;
print "\tRemoving unnecessary .wgaccess files.\n" unless ($quiet);
my $uploadsPath = $session->config->get('uploadsPath');
File::Find::find({no_chdir => 1, wanted => sub {
return if -d $File::Find::name;
my $filename = (File::Spec->splitpath($File::Find::name))[2];
return if $filename ne '.wgaccess';
open my $fh, '<', $File::Find::name or return;
local $/ = "\n";
chomp (my ($user, $viewGroup, $editGroup) = <$fh>);
close $fh;
if ($user eq '1' || $viewGroup eq '1' || $viewGroup eq '7' || $editGroup eq '1' || $editGroup eq '7') {
unlink $File::Find::name;
}
}}, $uploadsPath);
}
##-------------------------------------------------
#sub exampleFunction {
# my $session = shift;