html5/spec-ja/edit.cgi

#!/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/&/&amp;/g;
  $s =~ s/</&lt;/g;
  $s =~ s/"/&quot;/g;
  return $s;
} # htescape

if ($path =~ m[^/([0-9a-z-]+)$]) {
  my $name = $1;
  my $file_name = $data_dir_name . $name . '.dat';
  if (-f $file_name) {
    if ($ENV{REQUEST_METHOD} eq 'GET') {
      my $data;
      {
        open my $file, '<:utf8', $file_name or die "$0: $file_name: $!";
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use CGI::Carp qw(fatalsToBrowser);
4
5			my $data_dir_name = q[data/];
6
7			my $path = $ENV{PATH_INFO};
8
9			sub htescape ($) {
10			my $s = shift;
11			$s =~ s/&/&/g;
12			$s =~ s/</</g;
13			$s =~ s/"/"/g;
14			return $s;
15			} # htescape
16
17			if ($path =~ m[^/([0-9a-z-]+)$]) {
18			my $name = $1;
19			my $file_name = $data_dir_name . $name . '.dat';
20			if (-f $file_name) {
21			if ($ENV{REQUEST_METHOD} eq 'GET') {
22			my $data;
23			{
24			open my $file, '<:utf8', $file_name or die "$0: $file_name: $!";
25