#!/usr/bin/perl
use strict;
my $data_dir_name = '../data/';
my $start = 0;
if ($ENV{PATH_INFO} =~ m#^/(\d+)-$#) {
$start = $1;
}
sub htescape ($) {
my $s = $_[0];
$s =~ s/&/&/g;
$s =~ s//>/g;
$s =~ s/"/"/g;
return $s;
} # htescape
print qq[Content-Type: text/html; charset=utf-8
#
URI
Time
Tags
];
my $i = int ($start / 1000);
D1: {
my $d1_dir_name = $data_dir_name.$i.'/';
last D1 unless -d $d1_dir_name;
my $d1_index_file_name = $d1_dir_name . 'index.dat';
if (-f $d1_index_file_name) {
open my $d1_index_file, '<', $d1_index_file_name
or die "$0: $d1_index_file_name: $!";
while (<$d1_index_file>) {
if (/^(\d+)\t([^\t]+)\t(\d+)\t(.+)/) {
my ($num, $uri, $date, $tags) = ($1, $2, $3, $4);
next if $num < $start;
print qq[