| 26 |
|
|
| 27 |
my $hash = get_hash ($en); |
my $hash = get_hash ($en); |
| 28 |
my $entry = {en => $en, ja => $ja, tags => $tags, |
my $entry = {en => $en, ja => $ja, tags => $tags, |
| 29 |
is_pattern => $is_pattern}; |
isPattern => $is_pattern}; |
| 30 |
|
|
| 31 |
lock_entry ($hash); |
lock_entry ($hash); |
| 32 |
set_entry ($hash, $is_pattern => $entry); |
set_entry ($hash, $is_pattern => $entry); |
| 33 |
commit_entries ("$path: $hash updated by $ENV{AUTH_USER}"); |
commit_entries ("$path: $hash updated by $ENV{REMOTE_USER}"); |
| 34 |
|
|
| 35 |
print "Status: 200 Saved\n"; |
print "Status: 200 Saved\n"; |
| 36 |
|
|