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

add code to delete duplicate documentation

Browse source
This commit is contained in:
Colin Kuskie 2005-08-29 05:28:50 +00:00
parent 71a656d85c
commit 04a76e9910
1 changed files with 16 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
docs/upgrades/upgrade_6.7.2-6.7.3.pl
View file

@ -9,13 +9,28 @@ my $configFile;
my $quiet; my $quiet;
start(); start();
deleteOldHelpFiles();
finish(); finish();
#------------------------------------------------- #-------------------------------------------------
#sub fixSomething { #sub fixSomething {
# print "\tFixing ....\n" unless ($quiet); # print "\tFixing ....\n" unless ($quiet);
sub deleteOldHelpFiles {
my @dupes = qw/Article Collaboration DataForm EventsCalendar File Folder Survey HttpProxy
IndexedSearch Image Layout MessageBoard Navigation Poll Post Product
Redirect Shortcut Snippet SQLReport SyndicatedContent Template Thread/;
my $path = "../../lib/WebGUI/";
print "\tDeleting old documentation\n" unless ($quiet);
foreach my $dupe (@dupes) {
print "\tDeleting old documentation for $dupe\n" unless ($quiet);
foreach my $dir ("Help/", "i18n/English/") {
my $file = join '', $path, $dir, $dupe, '.pm';
my $files_deleted = unlink($file);
print("\t\tUnable to delete $file: $!\n") unless $quiet or $files_deleted;
}
}
}
#------------------------------------------------- #-------------------------------------------------