[Zh-l10n] Re: dict

2 Apr 2002


      多謝 Pofeng 提供的資料和程式,
我在週四工作告一小段落後來研究看看... 8)
Ping
Pofeng Lee wrote:
...
# dict-zh
#   ftp://cle.linux.org.tw/pub/CLE/devel/informer/dict-zh-1.2.1-1.src.rpm
#   包含三個字典定義檔
#   1)  pydict 2) 教育部腦相關詞彙, 3) Network Terminology
dictd-client-1.5.5-6
dictd-server-1.5.5-6
dictd-dictionaries-0.1.0-9
dictd-1.5.5-6
( find these in rpmfind, eg
http://rpmfind.net/linux/RPM/rhcontrib/7.2/i386/dictd-1.5.5-6.i386.html )
web based dict cgi was in the attachement

#!/usr/bin/perl
#
# Name   : Dict
# Purpose: perl script cgi program to submit dict queries.
# Author : Doug L. Hoffman (hoffman@shopthenet.net)
# Created: Thu Aug 14 09:51:28 1997 by hoffman
# Revised: Mon Mar 30 12:25:38 1998 by hoffman
#
# This perl script both generates the www-browser form and accepts the results
# of submitting the form. The search is transmitted to a central machine
# and the results are interpreted and reposted for the user.
#
#  $Log: Dict,v $
#  Revision 1.11  1998/03/30 17:33:26  hoffman
#  added text of query to the web page title line.
#
#  Revision 1.10  1998/02/23 17:46:04  hoffman
#  Fixed problem with word list anchors caused by changes to the "exact"
#  resopnse.
#
#  Revision 1.9  1998/02/23 16:41:30  hoffman
#  Made "exact" return list of words, not definitions.
#
#  Revision 1.8  1998/02/20 16:00:01  hoffman
#  gave the generated page(s) a general facelift, changed internal processing
#  to use the short database name, not the description, and then spent time
#  fixing various bugs that the name change caused. The server calls to fetch
#  the search and database options have been combined into one.
#
#  Revision 1.7  1998/02/19 15:10:26  hoffman
#  Rik's updated version.
#
#  Revision 1.6  1997/11/12 16:07:50  hoffman
#  Added link to copyright info.
#
#  Revision 1.5  1997/10/01 17:50:58  hoffman
#  Fixed some of the field edits for Rik.
#
#  Revision 1.4  1997/10/01 13:56:52  hoffman
#  fixed problem with ()'s
#
#  Revision 1.3  1997/08/17 20:48:04  hoffman
#  added link to dict.org home page
#
#  Revision 1.2  1997/08/17 20:07:37  hoffman
#  Fixed imbedded blank sequence query scanning.
#
#
# Setup is minimal.
#
#	You have to redefine at most the first few lines below
#
#	$ReturnUrl is the url of this file. It should be changed to reflect
#		the new location.
# ---------- Configuration variables
$Debug        = 0;
$Pgm          = "dict";
#$hostUrl      = "http://www.dict.org";
$hostUrl      = "http://10.30.202.24";
$cgiPath      = "$hostUrl/mgw";
$ReturnUrl    = "$cgiPath/$Pgm";
$bin          = "/usr/bin/";
$CRInfo   = "$ReturnUrl?Form=$Pgm".
    "1&Query=00-database-info&Strategy=*&Database=*";
$SInfo   = "$ReturnUrl?Form=$Pgm". "4";
$Dict    = "/usr/bin/dict -h 10.30.202.24";
$Counter = "/usr/local/etc/Counter/data/$Pgm.dat";
$Count   = "$cgiPath/Count.cgi";
$Background = "/gifs/grayback.jpg";
$Heading1= "The DICT Development Group: Online Dictionary Query";
$Heading2= "<a href="http://www.dict.org/%5C%22%3EThe DICT Development Group</a>: Online&nbsp;Dictionary&nbsp;Query";
$Counter1= "<img src="$Count?sh=0|df=$Pgm.dat" alt="">";
$Counter2= "<img src="$Count?sh=0|df=total.dat" alt="">";
# $Counter1= "";
# $Counter2= "";
$WebMaster="<a href="mailto:webmaster@dict.org">webmaster@dict.org</a>";
# --- display stuff
##########################################################################
#
# Driving Program
#
#########################################################################
&init;			# init globals
&ReadParse;		# read stdin
#
#
# If there is no standard input, this the the users first request to see
# the page. Return a decent looking page. Otherwise, you have work to do.
#
if ($in{"Form"} eq "") {
    $in{"Database"} = "*";
    $in{"Strategy"} = "*";
    print &PrintHeader();
    &SendBeginning;
    &SendForm1;
    &SendEnding;
}
elsif ($in{"Form"} eq ($Pgm . '1')) {
    print &PrintHeader();
    &SendBeginning;
    &StripFields;		# clean up user entered data.
    &CheckFields;		# Make sure all required data are there.
    &SendForm1;
    if ($Error eq "") {
   &SendListing;
    }
    &SendEnding;
}
elsif ($in{"Form"} eq ($Pgm . '2')) {
    $in{"Strategy"} = "*";
    print &PrintHeader();
    &SendBeginning;
    &StripFields;		# clean up user entered data.
    &CheckFields;		# Make sure all required data are there.
    &SendForm1;
    if ($Error eq "") {
   &SendListing;
    }
    &SendEnding;
}
elsif ($in{"Form"} eq ($Pgm . '3')) {
    $in{"Strategy"} = "";
    $in{"Query"} = "";
    print &PrintHeader();
    &SendBeginning;
    &StripFields;		# clean up user entered data.
#    &CheckFields;		# Make sure all required data are there.
    &SendForm1;
    if ($Error eq "") {
   &SendListing;
    }
    &SendEnding;
}
elsif ($in{"Form"} eq ($Pgm . '4')) {
    $in{"Strategy"} = "";
    $in{"Query"} = "";
    print &PrintHeader();
    &SendBeginning;
    &StripFields;		# clean up user entered data.
#    &CheckFields;		# Make sure all required data are there.
    &SendForm1;
    if ($Error eq "") {
   $in{"Query"} = "Server";
   &SendListing;
    }
    &SendEnding;
}
else {
    print &PrintHeader();
    &SendBeginning;
    print "<br><hr>Error, invalid syntax: $in<hr><br>\n";
    &SendForm1;			# wtfo? send form anyway.
    &SendEnding;
}
#############################################################################
#
# --------------- Init global variables 
#
sub init {
    local( $name, $desc);
#
# ----- List of  database and search strategy options
#
# For each option, a comma separated string of the acceptable values
#
    $Choices{"Database"} = "Any,First match";
%Db = (
       "Any", "*",
  "First match","!"
  );

%Dbr = (
        "*", "Any",
   "!","First match"
  );

$Choices{"Strategy"} = "Return Definitions";

%St = ("Return Definitions", "*");

# ----- suck in the database/strategy names from the server

open(IN,"$Dict -DS |") || die "$Pgm: can't execute /usr/bin/dict\n";
<IN>;

LOOP: while (<IN>) {
   chop;
   last LOOP if  /^Strategies/;
   $name = substr($_, 2, 10);
   $name =~ s/\s+//g;
   $desc = substr($_, 13);
   $Choices{"Database"} .= ",$desc";
   $Db{$desc} = $name;
   ($Dbr{$name} = $desc) =~ tr/ /+/; # reverse lookup index
   }
    while (<IN>) {
   chop;
   $name = substr($_, 2, 10);
   $name =~ s/\s+//g;
   $desc = substr($_, 13);
   $Choices{"Strategy"} .= ",$desc";
   $St{$desc} = $name;
    }
    close( IN );
#
# The regular expression contraints:
#    
    @Fields = ("Query");
@ReqFields =  ("Query");

}
# ---------- Update the counter
#
sub UpdateCounter {
    local ($count);
    if ($Counter ne "") {
   if (!(open(CT,"<$Counter"))) {
       print "$Pgm: Couldn't open $Counter<p>\n";
       return;
   }
   $count = <CT>;
   close CT;
   $count++;
   if (!(open(CT,">$Counter"))) {
       print "Couldn't write $Counter<p>\n";
       return;
   }
   print CT $count;
   close CT;
    }
}
# ---------- Strip fields
#
# change tabs and stuff to blanks, strip any leading/trailing blanks.
#
sub StripFields {
    foreach $x (@Fields) {
   $in{$x} =~ y/{};/() /;        #  ensure no {, },",", or ";".
   $in{$x} =~ y/\n\r\f\t\e/     /s;  # ensure newlines or cr's.
   $in{$x} =~ s/'/''/g;	
   $in{$x} =~ s/^\s*//;	
   $in{$x} =~ s/\s*$//;	
   $in{$x} =~ s/\s+/ /g;	
    }
}
#
# ---------- Check that the required fields are all present.
#
sub CheckFields {
    $Error = "";
    foreach $x (@ReqFields) {
   if ($in{$x} eq "") {
       $Error = $x;
       return;
   }
    }
}
#############################################################################
#
# ---------- Send the html form for the editing of a record
#
sub SendForm1 {
# ----- send the header
#
    local($q) = $in{"Query"};
    print <<EOF;
<form method=POST action=$ReturnUrl>
    <input type="hidden" name="Form" value="${Pgm}1">
   <b>Query:</b>
   <input type="text" name="Query" size=20 value="$q">
    <select name="Strategy">

EOF
    foreach $x (split(/,/,$Choices{"Strategy"})) {
   print "        <option value="$St{$x}"";
   if ($in{"Strategy"} eq $St{$x}) {
       print " selected";
   }
   print ">$x\n";
    }
    print <<EOF2;
        </select>
    <select name="Database">

EOF2
    foreach $x (split(/,/,$Choices{"Database"})) { 
   print "        <option value="$Db{$x}"";    
   if ($Db{$x} eq "pydict" ) {
       print " selected";
   }
   print ">$x\n";
    }
    print <<EOF3;
        </select>
    <input type="submit" name="submit" value="Submit query">
    <input type="reset" value="Reset form">

</form>
<hr>
EOF3
}
#############################################################################
#
# ---------- Send the html form for the search listing results
#
sub SendListing {
    local( $command, $d, $s, $q);
    local( $i, $x );
    local( $flag=0 );
# ----- add the hidden counter.


#    print "\n<!-- hidden counter -->\n";
#    print "<img src="/bin/Count.cgi?sh=0|df=$Pgm.dat">\n";
#    &UpdateCounter;
# ---------- report

$d = $in{"Database"};
$d = $in{"Database"} if ($d eq "");
$s = $in{"Strategy"};
$q = $in{"Query"};
$command = "$Dict --client \"$ENV{'REMOTE_HOST'} $ENV{'HTTP_USER_AGENT'}\" ";
if ($s eq "" && $q eq "") {

$command .= "-i '$d'";
    } elsif ($s eq "" && $q eq "Server") {
   $command .= "-I";
    } else {
   $command .= "-d '$d'";
   $wordlist = 0;
   if ($s eq '*') {
       $command .= " '". $q . "'";
   }
#	elsif ($s eq 'exact') {
#	    $command .= " -s exact '". $q ."'";
#	}
   else {
       $command .= " -s $s -m '". $q ."'";
   }
    }
print "$command <p>\n" if ($Debug);

if (!open(IN,"$command |")) {
    print "<hr><p>\n";
	print "<b>Backend database engine temporarily unavailable:\n";

print " please try again later</b>\n";
   print "<p><hr>\n";
   return;
    }
    if ($s eq "" && $q eq "") {
   local($tmp) = &lx($Dbr{$d});
   print "<b>From <a href="$ReturnUrl?Form=${Pgm}3&Database=$d">$tmp</a>:</b>\n";
    }
    print "<pre>";
    while(<IN>) {
        ++$flag;
   if (/^From/) {
       if (/[.*]/) {
   	s/^From\s*(.*)\s*[(.*)]\s*:.*$/From <a href="$ReturnUrl?Form=${Pgm}3&Database=$2">$1</a>:/; # " 
       }
       print "</pre><b>$_</b><pre>\n";
   }
   elsif (/^\d+ /) {
       print "</pre><b>$_</b><pre>";
   }
   elsif (/^No definitions/) {
       print "</pre><b>$_</b><pre>\n";
   }
   elsif (/^No matches/) {
       print "</pre><b>$_</b><pre>\n";
   }
   elsif (/^(\S+) /) {
       $x = $1;
       ($x, $line) = split(/:/, $_, 2);
       $line = &anchor( $x, $line);
       print "<b>$x:</b>$line";
       $wordlist = 1;
   }
   elsif ($wordlist && (/^  (\S+) /)) {
       $line = &anchor( $x, $_);
       print $line;
   }
   else {
       if (/(ftp|http)://[^\s)}]*}/) {
   	s,((ftp|http)://[^\s)}]*)},}<a href="$1">$1</a>,g;
       } else {
   	s,((ftp|http)://[^\s)}]*),<a href="$1">$1</a>,g;
       }
       s,(\s){([^}\s][^}]*)},$1.'<a href="'.$ReturnUrl.'?Form='.$Pgm.'2&Database=*&Query='.&xl($2).'">'.$2.'</a>',ge;
       s,(\s){([^}\s][^}]*)(\n)$,$1.'<a href="'.$ReturnUrl.'?Form='.$Pgm.'2&Database=*&Query='.&xl($2).'">'.$2.$3,se;
       s,^([^}]*)},$1.'</a>',e;
            print;
   }
    }
    print "</pre>\n";
    close( IN );
    if (!$flag) {
        print "<b>\n";
        print "Backend database engine error: please try again later\n";
        print "</b><p>";
    }
    print "<hr>\n";
}
sub xl { local($tmp) = $_[0]; $tmp =~ tr/ /+/; $tmp; }
sub lx { local($tmp) = $_[0]; $tmp =~ tr/+/ /; $tmp; }
sub anchor {
    local( $dbname, $line) = @_;
    local( $x, $y, $db, $new_line);
$odd = 1;
$db = $Dbr{$dbname};
$db = $dbname;
foreach $x  (split("\"", $line)) {

if ($odd) {
       $x =~ s/ (\S+)/ <a href="$ReturnUrl?Form=${Pgm}2&Database=$db&Query=$1">$1</a>/g;
       $new_line .= $x;
       $odd = 0;
   }
   else {
       ($y = $x) =~ tr/ /+/;
       $new_line .= "<a href="$ReturnUrl?Form=${Pgm}2&Database=$db&Query='$y'">"$x"</a>";
       $odd = 1;
   }
    }
return $new_line;

}
#
# ----- Common beginning.
#
sub SendBeginning {
    local ($title);
$title = $Heading1;
if ($in{'Query'}) {

$title .= "- $in{'Query'}";
    }
print <<EOF;

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>$title</title>
</head>
EOF
}
#
# ----- Common ending.
#
sub SendEnding {
print <<EOF;

</body>
</html>
EOF
}
# --------------- Numeric sort function
sub bynumber { $a <=> $b; }
#############################################################################
#
# --------------- Library Stuff
#
# Perl Routines to Manipulate CGI input
# S.E.Brenner@bioc.cam.ac.uk
# $Header: /data/httpd/html/Internal/bin/RCS/Dict,v 1.11 1998/03/30 17:33:26 hoffman Exp $ #
# Copyright 1993 Steven E. Brenner  
# Unpublished work.
# Permission granted to use and modify this library so long as the
# copyright above is maintained, modifications are documented, and
# credit is given for any use of the library.
# ReadParse
# Reads in GET or POST data, converts it to unescaped text, and puts
# one key=value in each member of the list "@in"
# Also creates key/value pairs in %in, using '\0' to separate multiple
# selections
# If a variable-glob parameter (e.g., *cgi_input) is passed to ReadParse,
# information is stored there, rather than in $in, @in, and %in.
sub ReadParse {
  if (@_) {
    local (*in) = @_;
  }
local ($i, $loc, $key, $val);
   local ($fp);
  # Read in text
  if ($ENV{'REQUEST_METHOD'} eq "GET") {
    $in = $ENV{'QUERY_STRING'};
  } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
    #for ($i = 0; $i < $ENV{'CONTENT_LENGTH'}; $i++) {
    #  $in .= getc;
    #}
   $ntoread = $ENV{'CONTENT_LENGTH'};
   $in = "";
   $n = 60;
   if ($ntoread < $n) {
   	$n = $ntoread;
   }
   while ($ntoread) {
   	$x = read(STDIN,$inn,$n);
   	$in = $in . $inn;
   	$ntoread = $ntoread - $x;
   	if ($ntoread < $n) {
   		$n = $ntoread;
   	}
   }
   #read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
  }
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
    # Convert plus's to spaces
    $in[$i] =~ s/+/ /g;
# Convert %XX from hex numbers to alphanumeric
$in[$i] =~ s/%(..)/pack("c",hex($1))/ge;

# Split into key and value.
$loc = index($in[$i],"=");
$key = substr($in[$i],0,$loc);
$val = substr($in[$i],$loc+1);
$in{$key} .= '\0' if (defined($in{$key})); # \0 is the multiple separator
$in{$key} .= $val;

}
  return 1; # just for fun
}
# PrintHeader
# Returns the magic line which tells WWW that we're an HTML document
sub PrintHeader {
  return "Content-type: text/html\n\n";
}

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

[Zh-l10n] Re: dict