# $Id: german.cf,v 1.01 2002/09/05 by Harald Weinreich # # French language modifications for modern.cf output definition file. # # A hash (#) in the first column denotes a comment and is not processed # even inside a definition. Hashes not in the first column are left as-is. # # Variable substitution occurs on these definitions. If you want # a dollar-sign ($) to occur in the output, escape it with backslash (\). # Other metacharacters (quotes, asterisks, etc) probably don't need to be # escaped. Printf-like special characters are allowed: \n \t \r etc. # # The ending newline is chopped off from each definiton. So # # # abcxyz # # # becomes "abcxyz". You may have blank lines in between the beginning # and ending tags, or use the newline character \n. # # # CGI defaults are set in modern.cf charset : ISO-8859-1 ############################################################################## # RESULT SECTION # # The output of '{nph-}search.cgi' consists of the following tags: # # ResultHeader - modified # CreateNavBars # ResultSetBegin # ( Errors from 'broker' ) # foreach object { # PrintObject # } # ResultSetEnd # EndBrokerResults # ( TruncateWarning ) # ResultTrailer # # ############################################################################## # First output for the HTML containing the results. Should probably include # tag and the user query. # <ResultHeader> <HEAD> <TITLE>Results de recherche pour: $html_query

Results de recherche pour: $html_query

$filterhint # Calculations to obtain $navigationBar # Original code by Javier Masa Marin # if ($totalPages > 0) { # elements before and after current page in navigation bar local($navPart) = 5; $prevPage = ""; $prevPage = "\n\n<= Précedent ·" if ($page > 1); $nextPage = ""; $nextPage = "· Suivant =>" if ($page < $totalPages); $pageList = ""; local($startP) = ($page <= $navPart) ? 1 : $page - $navPart; for ($i = $startP; $i < $page; $i++) { $pageList .= "$i\n"; } $pageList .= "$page\n"; local($endP) = ($page + $navPart >= $totalPages) ? $totalPages : $page + $navPart; for ($i = $page+1; $i <= $endP; $i++) { $pageList .= "\n$i\n"; } $navigationBar = "\n$prevPage\n $pageList\n $nextPage" if ($totalPages > 1); } # Output just before beginning the loop over objects returned by the broker. #
\n
$totnumber objets trouvés $navigationBar Page: $page/$totalPages
# # # # # Nouvelle recherche:
\n # output just after ending the loop over objects returned by the broker #
# # # # # Recherche: $navigationBar Powered by Harvest
# PER-OBJECT DEFINITIONS # ====================== # # VARIABLES: # # $url Object url: http://www.cia.gov:3333/Spies/KGB/secret.html # $A URL Access: http # $H URL Host : www.cia.gov:3333 # $P URL Path : /Spies/KGB/secret.html # $D URL Dir : /Spies/KGB/ # $F URL File : secret.html # $cs_url URL to the SOIF object in the broker databse # $cs_[ahp] elements of $cs_url as above with $url # $desc Description attribute of the matched object # $opaque A matched line (or all matched lines in obj-at-a-time mode) # $usermsg A user message # $attributes Requested attributes # $objectType Type of object if not HTML # $objectSize Size of object # $objectDate Last modification date of object # # PerObjectFunction is eval'd before every object is printed out. # # init output variables $objectType=""; $objectSize=""; $objectUpdate=""; $objectWeight = ""; $opaquePerObjectCount = 1; $lastOpaqueObject = ""; # create description $description = "Datei:  $F"; $description = $desc if (length($desc) > 5); # highlight search words. for ($i=0; $i<=$#searchwords; $i++) { s/(\b$searchwords[$i]\b)/$1<\/b>/ig; } # Create the HTML code to print the weight balls if ($maxWeight > 0 && $weightflag) { $nWeight = int($weight * 5 / $maxWeight); for ($idxWeight = 1; $idxWeight <= $nWeight; $idxWeight++) { $objectWeight .= "\"*\""; } # $objectWeight = "".int($weight * 100 / $maxWeight)."%"; } # format matched lines if ($opaque ne '') { $opaque = "Coup réussi: $opaque..." } # PerAttributeFunction is eval'd before the Attributes are printed out. # # Remove all empty lines $val =~ s/^(\s*)//mg; # Now prepare the object's type and size to display at the description. if ($att eq "type") { ## show file type $objectType = "[".$val."]" if !($val =~ /HTML|HTTP-Query/); $att=""; # avoid } elsif ($att eq "file-size") { ## calculate file size $val = int($val/1024); $objectSize = $val." KByte" if ($val > 150); # more than 150 KByte $val = int($val/10.24); $objectSize = ($val/100)." MByte" if ($val > 100); # more than one meg $att=""; } elsif ($att eq "last-modification-time") { ## calculate last modification date local(@date,@months,$month,$minute,$year); @date = localtime($val); @months = ('Janvier', 'Février', 'Mars', 'Avril', 'Mai', 'Juin', 'Juillet', 'Août', 'Septembre', 'Octobre', 'Novembre', 'Décembre'); $month = $months[$date[4]]; $minute = $date[1]; $minute = "0$minute" if $minute < 10; $year = $date[5]+1900; $objectUpdate = "$date[3]. $month $year"; # $date[2]:$minute"; $att=""; } else { ## other attributes # insert commas to separate headings $val =~ s/\n(.)/, $1/mg; # If more than 120 Characters, display only the first 120 plus "..." $val =~ s/^((.|\n){120})(.|\n)*/$1.../; #highlight search words. for ($i=0; $i<=$#searchwords; $i++) { $val =~ s/(\b$searchwords[$i]\b)/$1<\/font>/ig; } $att =~ s/headings/Titres/; } # ====================================================================== # ERROR, STATUS and WARNING functions # ====================================================================== # A warning message printed only when the broker might have truncated # the result set. Only printed if the number of matched lines equals # the 'maxresultflag' or the number of returned objects equals the # 'maxobjflag' value of the query.html form. #

Attention: La recherche a été interrompu apres $nopaquelines lignes trouvées et $nreturned objets trouvés.

\n # A warning message printed only when the broker returned 0 results. #

Votre recherche $html_query n'a pas donné de résultat.

Essayez de reformuler votre demande.

Propositions:

  • Controllez si tous les mots sont écrits correctement.
  • Recommencez la recherche avec d'autres ou moins de mots ou avec des termes plus généraux.
  • Choisissez ,,Recherche à base de mots'' sur la page de recherche pour considérer aussi les différentes parties constituantes des mots composés dans votre recherche.
  • Acceptez ,,Faute d'orthographe'' pour inclure aussi les mots ressemblants dans la recherche
Tenez aussi compte de l'aide indiquée en anglais.

\n # Error Message returned if there is no query string sent. #

Il n'y a pas de demande de recherche.

Mettez au moins un mot de recherche.

\n # Error message if broker is not available. # # #

Le moteur de recherche $host, port $port n'est actuellement pas disponible.

Réessayez plus tard, s'il vous plaît.

# Message returned if the broker sends back a # 111 - Broker is too heavily loaded # reply. #

Le moteur de recherche est surchargé

Excusez, mais le moteur de recherche $host, port $port est surchargé actuellement. Réessayez plus tard s'il vous plaît.

# Message returned if the broker sends back a # 111 - PARSE ERROR # reply. #

Votre demande de recherche $html_query ne peut malheureusement pas être traitée.

Tenez compte des indices suivants ou regardez l'aide en anglais pour formuler des demandes de recherche.

Les causes les plus fréquentes pour des problèmes de recherche:

  • Vous avez oublié les guillemets autour de plusieurs mots.
    Par exemple le terme:
    Entrez Harvest Suche de façon
    "Harvest Suche".
  • Le terme régulier:
    Har.* Such.* doit $ecirc;tre formulé comme
    "Har.* Such.*".
  • N'oubliez pas qu' un point dans un terme a besoin aussi de guillemets. (z.B. "3.0").
  • Ponctuation incomplète en utilisant des épithètes.
    Les demandes structurées ont besoin d'un double point, par example.
    Type: PostScript
\n