3 # This script is invoked when the YPP SC PCTB client phones home to
4 # provide updated character set OCR data or updated screenshot pixmap
5 # interpretation (island name) data.
7 # The client will also phone home anyway to fetch the latest parsedb
10 # This allows me (the operator of the SC server) to:
11 # - review the choices made by the user
12 # - if they are correct, incorporate them in the next client version
13 # - if they are wrong, incorporate fixes of them, or contradictions of them,
16 # The information reported
17 # The SC PCTB client does this so that
19 use strict (qw(vars));
21 $CGI::POST_MAX= 65536;
22 $CGI::DISABLE_UPLOADS= 1;
24 use CGI qw/:standard -private_tempfiles/;
27 #---------- pixmaps ----------
29 sub parseentryin_pixmap ($) {
32 m/^(\w+ \- \w[-+'"#! 0-9a-z]*\w)\nP3\n([1-9]\d{1,3}) ([1-9]\d{1,3})\n255\n/s or die; # ']);
33 my ($def,$w,$h)= ($1, $2+0, $3+0);
34 my @d= grep { m/./ } split /\s+/, $';
35 @d == $w*$h*3 or die "$d[0]|$d[1]|...|$d[$#d-1]|$d[$#d] ?";
39 $_ >= 0 or die "$_ ?";
40 $_ <= 255 or die "$_ ?";
42 my $ppm= "P3\n$w $h\n255\n";
44 for (my $y=0; $y<$h; $y++) {
45 for (my $x=0; $x<$w; $x++, $di+=3) {
46 #print STDERR ">$x,$y,$di,",scalar(@d),"<\n";
47 $ppm .= sprintf " %3d %3d %3d", @d[$di..$di+2];
52 ppmtopgm | pnmscale -width 79 | pnmnorm -bpercent 40 -wpercent 10 | pgmtopbm -threshold
54 <ship-ahoy.ppm ppmtopgm | pnmscale -width 79 | pnmnorm -bpercent 40 -wpercent 10 | pgmtopbm -threshold | pbmtoascii | cut -c1-79
56 my $entry= "$def\n$ppm";
57 return ('',$def,$entry);
60 #---------- characters ----------
62 #---------- main program ----------
64 my $path= path_info();
65 my $entry_in= param('entry');
66 defined $entry_in or die;
68 my $owner= `whoami`; $? and die $?;
72 if ($path =~ /(pixmap|char)/) {
78 my ($ctx,$def,$entry)= ${"parseentryin__$kind"}($entry_in);
82 Subject: yppsc dictionary update
92 print $entry or die $!;