| 45 |
map {s/%%+/%/; s/\s+/ /; $_} |
map {s/%%+/%/; s/\s+/ /; $_} |
| 46 |
($param->{en}, $param->{ja}, $param->{suffix}, $param->{note}); |
($param->{en}, $param->{ja}, $param->{suffix}, $param->{note}); |
| 47 |
print $map_file "\n"; |
print $map_file "\n"; |
| 48 |
|
close $map_file; |
| 49 |
|
|
| 50 |
|
require 'common.pl'; |
| 51 |
|
system_ ('cvs', 'commit', -m => 'by remote user', $map_file_name); |
| 52 |
|
|
| 53 |
print q[Status: 202 Appended |
print q[Status: 202 Appended |
| 54 |
Content-Type: text/html ; charset = us-ascii |
Content-Type: text/html ; charset = us-ascii |
| 55 |
|
|