Changeset 2340
- Timestamp:
- 10/18/07 15:12:01 (1 year ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
Trunk/Scripts/Audio_scripts/UserSubmission/LICENSE.pm
r2263 r2340 51 51 foreach my $licenseFileName (sort @dirlist) { 52 52 if ($licenseFileName !~ /\~/) { # ignore backup file erroneously included in submission 53 if (($licenseFileName =~ /licence/i) or ($licenseFileName =~ /license/i)) { # ignore case, ignore suffix 53 if ( $licenseFileName =~ /GPL_license/i ) { 54 $command = ("rm -f $licensePath/$licenseFileName"); print "$command\n" if $debug; system($command); # rename all upper/lower capitalization versions of LICENSE file to "LICENSE" 55 } elsif ( (($licenseFileName =~ /licence/i) or ($licenseFileName =~ /license/i)) and ($licenseFileName !~ /GPL_license/i) ) { # ignore case, ignore suffix 54 56 if ($licenseFileName ne "LICENSE") { 55 57 $command = ("mv -f $licensePath/$licenseFileName $licensePath/LICENSE"); print "$command\n" if $debug; system($command); # rename all upper/lower capitalization versions of LICENSE file to "LICENSE" … … 58 60 last; 59 61 } 62 63 60 64 } 61 65 }