version 1.1, 2006/08/11 22:00:08
|
version 1.2, 2006/12/05 01:36:13
|
Line 92 sub writefile {
|
Line 92 sub writefile {
|
|
|
sub rewritefile { |
sub rewritefile { |
my ($contents,%rewritehash)=@_; |
my ($contents,%rewritehash)=@_; |
foreach (keys %rewritehash) { |
foreach my $pattern (keys(%rewritehash)) { |
my $pattern=$_; |
my $new=$rewritehash{$pattern}; |
$pattern=~s/(\W)/\\$1/gs; |
$contents=~s/\Q$pattern\E/$new/gs; |
my $new=$rewritehash{$_}; |
|
$contents=~s/$pattern/$new/gs; |
|
} |
} |
return $contents; |
return $contents; |
} |
} |
Line 180 sub copyresourcedb {
|
Line 178 sub copyresourcedb {
|
} |
} |
# adjust symbs |
# adjust symbs |
my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'; |
my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'; |
$pattern=~s/(\W)/\\$1/gs; |
|
my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'; |
my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/'; |
foreach (keys %data) { |
foreach (keys %data) { |
if ($_=~/$pattern/) { |
if ($_=~/\Q$pattern\E/) { |
my $newkey=$_; |
my $newkey=$_; |
$newkey=~s/$pattern/$new/; |
$newkey=~s/\Q$pattern\E/$new/; |
$data{$newkey}=$data{$_}; |
$data{$newkey}=$data{$_}; |
delete $data{$_}; |
delete $data{$_}; |
} |
} |