#!/bin/bash

install -m 0700 /dev/null p.cgi
cat <<'EOF' > p.cgi
#!/usr/bin/perl

use strict;

print "Content-Type: text/html\n\n";

if($ENV{'QUERY_STRING'} eq 'mode=init'){
  my @seeds = ('a'..'z','0'..'9','A'..'Z','!','?');
  srand(8208);
  open (FILE, '> data.txt') or die "$!";
  my $string = '';
  for(my $n=0;$n<30000;$n++){
    $string .= sprintf("%d\t",$n+1);
    for(my $i=0;$i<75;$i++){
      $string .= $seeds[int(rand($#seeds+1))];
    }
    $string .= "\n";
  }
  print FILE $string;
  close(FILE);
  print "OK\n";
  exit;
}

my @data = ();
open (FILE, '< data.txt') or die "$!";
while (<FILE>) {
  push @data,$_;
}
close(FILE);

my $c = 0;
@data = reverse(@data);
foreach(@data){
  $c ++;
  next if($c < 10000 || $c > 20000);
  my($n,$str) = split(/\t/,$_,2);
  printf("<li>%s : %s</li>\n",$n,$str);
}
EOF

env QUERY_STRING="mode=init" ./p.cgi