#!/usr/bin/perl use strict; use CGI::Carp qw(fatalsToBrowser); my $data_dir_name = q[data/]; my $path = $ENV{PATH_INFO}; sub htescape ($) { my $s = shift; $s =~ s/&/&/g; $s =~ s/; } print qq[Content-Type: text/html; charset=utf-8 Edit — @{[htescape ($name)]}

Edit — @{[htescape ($name)]}

]; exit; } elsif ($ENV{REQUEST_METHOD} eq 'POST') { eval q{ use CGI qw(param) }; my $data = param ('data'); open my $file, '>', $file_name or die "$0: $file_name: $!"; print $file $data; close $file; my $user = $ENV{REMOTE_USER}; $user =~ s/[^0-9A-Za-z_-]/_/g; (system "cvs commit -m \"by remote user \'$user\'\" data > /dev/null") == 0 or die "$0: $?"; print q[Status: 204 Saved; No Content]; exit; } else { print q[Status: 405 Method Not Allowed Content-Type: text/plain ; charset=us-ascii Allow: GET, POST 405]; exit; } } } elsif ($path eq '/') { opendir my $data_dir, $data_dir_name or die "$0: $data_dir_name: $!"; print q[Content-Type: text/html; charset=utf-8 English-Japanese Data Files

English-Japanese Data Files

@{[htescape ($name)]}

Status of translation

See progress graph.

License of data files

Texts from HTML5 and Web Workers specs:

© Copyright 2004-2008 Apple Computer, Inc., Mozilla Foundation, and Opera Software ASA.

You are granted a license to use, reproduce and create derivative works of this document.

Texts from XBL 2.0 spec:

Portions of this content are © 1998–2006 by individual mozilla.org contributors; content available under a Creative Commons license. (Details)

For contributors: You have to agree that your contributions are licensed under the terms quoted above.

]; exit; } print q[Content-Type: text/plain ; charset=us-ascii Status: 404 Not Found 404];