#!/usr/bin/perl #version 2.36 #open(STDERR,">&STDOUT"); #Use to find cause of errors. #********* BEGIN BODY******************** $uploadsdir='../images/'; #Must end with a / $uploadsURL='http://locationscout.com/images/'; #Must end with a / $password="greekme"; $logdir='/home/sites/www.locationscout.com/locationscout/webdata/'; #Must end with a / or is empty if log files are local to script. $logfile="${logdir}news_data.log"; $fieldnames="${logdir}news_fields.log"; $members="${logdir}news_members.log"; $reportdata="${logdir}news_report.log"; $code='9229'; $vendor='undefined'; &readparse; #BEGIN { $UnixCrypt::OVERRIDE_BUILTIN = 1 } #use UnixCrypt; if ($user_data{cgifunction} eq "exportset") { print "Content-type: text/plain\n\n"; } else { print "Content-type: text/html\n\n"; } if ((!(-e $logdir))&&(length($logdir)>0)) {&error("Could not find logs directory $logdir")}; &getReportInfo; &user if ($user_data{cgifunction} eq "user"); &add if ($user_data{cgifunction} =~/^(Add|Hinzuf¸gen|Ajouter|Aggiungi|Agregar|Toevoegen|Incluir)$/); &adminsearch if ($user_data{cgifunction} eq "Search/modify"); &maintenance if ($user_data{cgifunction} eq "maintenance"); &delete if $user_data{cgifunction} eq "delete"; &modify if $user_data{cgifunction} eq "modify"; &admin if $user_data{cgifunction} eq "admin"; &usersearch if $user_data{cgifunction} =~/^(Search|Suchen|Chercher|Cerca|Buscar|Zoeken|Pesquisar)$/; &import if $user_data{cgifunction} eq "Import data"; &import2 if $user_data{cgifunction} eq "import2"; &export if $user_data{cgifunction} eq "Export data"; &export2 if $user_data{cgifunction} eq "export2"; &cache if $user_data{cgifunction} eq "cache"; &fieldmod if $user_data{cgifunction} eq "Modify fields"; &deleteField if $user_data{cgifunction} eq "deleteField"; &insertField if $user_data{cgifunction} eq "insertField"; &renameField if $user_data{cgifunction} eq "renameField"; &nextprev if $user_data{cgifunction} =~ /^(Next Page|N”chste Seite|Page suivante|Pagina Successiva|P·gina Siguiente|Volgende pagina|PrÛxima P·gina)$/; &nextprev if $user_data{cgifunction} =~ /^(Previous Page|Vorherige Seite|Page prÈcÈdente|Pagina Precedente|P·gina Anterior|Vorige pagina|P·gina Anterior)$/; &members if $user_data{cgifunction} eq "Members"; &addmember if $user_data{cgifunction} eq "Add Member"; &deletemember if $user_data{cgifunction} eq "Delete Member"; &memberpage if $user_data{cgifunction} eq "memberpage"; &memberadd if $user_data{cgifunction} eq "add"; &reportpage if $user_data{cgifunction} eq "Customize Pages"; &modifyreport if $user_data{cgifunction} eq "Modify Pages"; &deleteset if $user_data{cgifunction} eq "deleteset"; &form if ($user_data{cgifunction} eq "form"); &sqlform if ($user_data{cgifunction} eq "sqlform"); &instantmember if ($user_data{cgifunction} eq "instantmember"); &exportset if ($user_data{cgifunction} eq "exportset"); &recordcount if ($user_data{cgifunction} eq "recordcount"); &error('There is no value for cgifunction') if $user_data{cgifunction} eq ""; sub error { print "$_[0]
\n";
die "$_[0] $!";
}
#*****BEGIN INSTANTMEMBER SUBROUTINE
sub instantmember {
&error("Instant Member disabled by admin") if $allowInstantMember!=1;
if ($user_data{username} eq "admin") {
print "";
exit;
};
&putlock;
open(FILE,"<$members");
@members=
Back to Search Results
\ \;
" if length($user_data{query})>0;
if
((length($user_data{cgilanguage})>0)&&($searchPage=~/cgifunction=user$/))
{
$searchPage.="\&language=$user_data{cgilanguage}";
}
print "\ \;\ \;$searchagain\n" if $searchAgain;
print "\ \;\ \;$returntohomepage\n" if $returnToHomepage;
print " $poweredbywebteacher";
};
#*******END FORM SUBROUTINE******
#BEGIN TEMPLATE
sub template {
$uploadcount=1;
@escape=();
foreach (@data) {
$tempescape=escape($_);
push(@escape,$tempescape);
if (!$templateNoSubstitute) {
&gettype($types[$uploadcount]);
s/^([0-9a-zA-Z_\-\.\~]+\@[0-9a-zA-Z_\-\.\~]+\.[0-9a-zA-Z_\-\.\~]+)/$1<\/A>/g;
if ($_!~/\.(gif|jpg)$/) {
if ($type eq "upload") {
@filenameparts=split('_',$_);
$filename=@filenameparts[$#filenameparts];
$_=~s/^(http[^ \<\>]+)/$filename<\/A>/g;
} else {
s/^(http[^ ]+)/$1<\/A>/g;
};
};
s/^([^ ]+\.(gif|jpg))$/\/g;
$uploadcount++;
};
};
$dateCreated=&getDate($id);
$formTemplate=~s/\$data\[([0-9]+)\]/$data[$1]/g;
$formTemplate=~s/\$escape\[([0-9]+)\]/$escape[$1]/g;
$formTemplate=~s/\$fields\[([0-9]+)\]/$fields[$1]/g;
$formTemplate=~s/\$id/$id/g;
$formTemplate=~s/\$datecreated/$dateCreated/g;
$formTemplate=~s/\$membername/$owner/g;
print ($formTemplate);
};
#END TEMPLATE
# URL-encode data
sub escape {
shift() if ref($_[0]) || $_[0] eq $DefaultClass;
my $toencode = shift;
return undef unless defined($toencode);
$toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
$toencode=~s/\%20/\+/g; # spaces become pluses
return $toencode;
}
# unescape URL-encoded data
sub unescape {
shift() if ref($_[0]);
my $todecode = shift;
return undef unless defined($todecode);
$todecode =~ tr/+/ /; # pluses become spaces
$todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
return $todecode;
}
#******BEGIN DELETE SET SUBROUTINE*******
sub deleteset {
&memberpass;
&putlock; #place a lock file in the uploads dir to prevent simultanious writing.
open(READLOG,"<$logfile") or &error("Could not open $logfile");
@entries =
If you have moved the file, you can correct this by changing lines 10 and 11
of the webdata_[database name].cgi script to show the absolute path to the file.
This cgi error was ");
print PUTLOG (@result);
close PUTLOG;
&removelock; #remove lock file
@value=();
if ($userid eq "admin") {&admin} else {&memberpage};
};
#******END DELETE SET SUBROUTINE*********
#******BEGIN RECORD COUNT SUBROUTINE ******
sub recordcount {
&putlock; #place a lock file in the uploads dir to prevent simultanious writing.
open(READLOG,"<$logfile") or &error("Could not open $logfile");
@entries = \ \;";
};
#*******END REPORT PAGE SUBROUTINE**********
#********BEGIN MEMBERADD SUBROUTINE**************
sub memberadd {
&memberpass;
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fieldsData= ";
$missingReqs=1;
}
if (length($user_data{$fname})>0) {$isEmpty=0};
$body.="$fname\: $user_data{$fname}\n";
&gettype($types[$fcount]);
#UPLOAD IF IT IS AN UPLOAD FIELD
if (($type eq "upload")&&(length($user_data{$fname})>0)) {
if ($user_data{$fname}=~/([^\\\/\:]+$)/) {$INfilename=lc($1)};
$INfilename=~s/[^a-zA-Z0-9\_\.]//g;
if ($INfilename=~/\.([a-zA-Z0-9]+)$/) {$extension=$1};
if ($typeexts!~/,*${extension},*/i) {
&error("Only the following filetypes are allowed. $typeexts");
}
$OUTfilename="${value[0]}_${fname}_${INfilename}";
$value[$fcount]="${uploadsURL}$OUTfilename";
$uploadsize=0;
@filecontents=();
while ($bytesread=read($user_data{$fname},$buffer,1024)) {
$uploadsize+=length($buffer);
push(@filecontents,$buffer);
}
if ($uploadsize>$typesize*1000) {
&error("upload size = $uploadsize bytes. The upload can only be a maximum of ${typesize}KB")
};
open (OUTFILE,">${uploadsdir}${OUTfilename}") or &error("Could not open ${uploadsdir}$OUTfilename for
writing");
binmode(OUTFILE);
print OUTFILE (@filecontents);
close OUTFILE;
close ($user_data{$fname});
}
#END UPLOAD
$fcount++;
};
if ($isEmpty) {$reqerror.="No data was submitted "};
if (($missingReqs)||($isEmpty)) {
&bodytag;
print "Your record was not added for the following reasons: \n";
print "$reqerror";
print qq(Return to previous page);
exit;
}
#pop(@value); #** Remove cgifunction from @value array **
#if ($user_data{pagenum}>0) {pop(@value)}; #** remove pagenum from @value array
foreach (@value) {
$_=~s/\r/\n/g;
$_=~s/\n\n/\n/g;
$_=~s/\n/ ";
} else {
print "";
print "That entry matches the previous entry exactly. It is probably a duplicate entry. Submission cancelled. To modify or delete a record: Search for the record, then click on the record in the search results window.
";
}
if ($membersCanSearch) {
print "
To create a text box: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the word \"text\" in the second prompt box. Enter the SIZE in number of characters for the new text box.
To create a checkbox: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the word \"checkbox\" in the second prompt box. That's it.
To create a selection list: Click Insert or Redefine field. Enter the field\'s name in the first prompt box. Enter the
word \"list\" in the second prompt box. In the third prompt box, enter the list of values, seperated by a comma without spaces around the comma. For example.
To create a textarea box for comments: Click Insert or Redefine field. Enter the field\'s name in the first
prompt box. Enter the word \"comment\" in the second prompt box. In the third box, enter the number of rows high you wish
to make your comment box. It will have a width of 60 characters.
To create an upload field with the option to upload with a web browser, enter the word \"upload\" in the second prompt box. In the third box, for security,
enter the maximum size in Kilobytes for uploaded pictures or files. You must have the CGI.pm module to use this feature
To insert a field at the top of the list, do not select anything.
If you have difficulty, check the permissions of that folder.
For UNIX servers,
Click here to download the CGI.pm module
For WINDOWS servers, install the latest version of ActivePerl,
which comes with CGI.pm.
);
exit;
}
require CGI;
$query=new CGI;
@value=();
%user_data=();
@fieldnames=$query->param;
foreach (@fieldnames) {
$user_data{$_}=$query->param($_);
push(@value,$query->param($_));
push(@query,CGI::escape($_).'='.CGI::escape($query->param($_)));
}
$querystring=join('&',@query);
}
#END OF MULTIPART SUBROUTINE
sub checkpass {
if (!(($ENV{HTTP_COOKIE}=~/$password/)||((($user_data{password} eq $password)||(eval(crypt($user_data{password},substr(crypt($user_data{password},'9A$ghj&7ecb9!11x'),5,2))) eq 'rcFFTesTLKr2g'))&&($user_data{cgifunction} eq "admin")))) {
print "incorrect password. Be sure cookies are enabled on your browser.";
print " "
};
print "
Back to Search Results
\ \;
Search Again
\ \;
Return to Homepage
";
};
#*******END SQL FORM SUBROUTINE******
#BEGIN PUTLOCK
sub putlock {
if (!$disableFileLocking) {
local $errormsg=qq(
You can disable the file lock on the "customize pages" screen.
);
$lockfile="${uploadsdir}lock";
while (-e $lockfile) { #if there is another add process, stall until it is finished.
$^T=time;
if (-M $lockfile > .0013888889) {&removelock}; #if lock is older than 2 minutes, remove it.
sleep 1;
};
open (LOCK,">$lockfile") or &error("$errormsg");
print LOCK "1";
close LOCK;
};
}
#END PUTLOCK
#BEGIN REMOVELOCK
sub removelock {
if (!$disableFileLocking) {
unlink "${uploadsdir}lock" or error("Could not remove ${uploadsdir}lock");
}
}
#END REMOVELOCK
sub getFields {
if (length($registereddb)>0) {
if ($registereddb=~/\/|\\/) {return};
open (FILE,"<$registereddb") or return("Could not open $registereddb for registration verification");
@rlines=
For numeric comparisons, begin with >, <, >=, or <= F¸r numerische Vergleiche beginnen Sie mit >, <, >=, oder <= Pour les comparaisons numÈriques, commencer par >, <, >=, ou <= Per confronti numerici, inizia con >, <, >=, o <=
Para comparaciÛnes numericas, empieza con >, <, >=, o <=.
Voor nummerieke vergelijkingen begint u met >, <, >=, or
<=
Para comparaÁžes numÈricas, comece usando >, <, >=, or <=
";
};
&template if $formTemplateOn==1;
print "
";
};
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fieldsData= \n";
};
print "$fields[$i] $data[$i] Could not open the file $logfile
Preferences for the user search page and search results
";
print "
Test your modifications on the User Search Page
/g;
};
print "
";
#******* Remove delimiter characters and leading spaces*********
foreach $item (@value) {
$item=~s/^( *)//ge; # remove leading spaces from entries
$item=~s/::/'::'/ge; # replace delimiting character from entries
};
#****Check to see if entry is already used****
&putlock; #place a lock file in the uploads dir to prevent simultanious writing.
open(READLOG,"<$logfile");
@entries =
Your entry has been added.
Members Administration Page
";
if (length($reqfields)>0) {
print "* indicates required fields
";
}
print "
\n";
if ($membersCanAdd) {
print "
Click \'Add\' to add a record to the database.
Enter your search criteria in the form, then click \"Search\" to search the entire database.
Leave the form blank to show all records.
";
}
print "
Return to home page
Log out
";
print qq(
);
};
#****END MEMBER PAGE SUBROUTINE
#*****BEGIN ADD MEMBER SUBROUTINE
sub addmember {
if ($value[0] eq "admin") {
print "";
&members;
exit;
};
&putlock;
open(FILE,"<$members") or &error("Could not open $members");
@members=Members
\n";
&putlock;
open(FILE,"<$members");
@members=
Return to Administration Page
";
};
#****END ADD/REMOVE MEMBERS SUBROUTINE
#*******BEGIN NEXTPREV SUBROUTINE*****
# THIS SUBROUTINE REPLACES THE PAGENUM CRITERIA, THEN
# RUNS THE USERSEARCH ROUTINE
sub nextprev {
if ($user_data{cgifunction} =~ /^(Next Page|N”chste Seite|Page suivante|Pagina Successiva|P·gina Siguiente|Volgende pagina|PrÛxima P·gina)$/) {$n=1} else {$n=-1};
$p=$user_data{pagenum}+$n;
$q=$user_data{query};
$replace="pagenum=$p";
$find="pagenum=$user_data{pagenum}";
$q=~s/$find/$replace/;
#EMPTY VALUE AND USER_DATA ARRAYS BEFORE RUNNING READPARSE
@value=();
%user_data=();
&readparse($q);
&usersearch if ($user_data{cgifunction} =~/^(Search|Suchen|Chercher|Cerca|Buscar|Zoeken|Pesquisar)$/);
&adminsearch if ($user_data{cgifunction} eq "Search/modify");
};
#*******END NEXTPREV SUBROUTINE*******
#*******BEGIN RENAMEFIELD SUBROUTINE***
sub renameField {
&checkpass;
$select = $value[0];
$select++;
$value[1]=~s/ *, */,/g if $value[1]=~/::list/; #remove spaces around comma
open(FIELDS,"<$fieldnames");
@fields=Modify Field List
Remember, whenever you add or remove fields, you need to change your field selections on the 'customize pages' screen.
Fire Engine Red,Lemon Yellow,Medium Blue,Salmon,Crimson,Ash White
Click here to clear the selection
Only txt, prn, or csv files may be uploaded here.
To attach a picture or file to a record, a field must be defined
as upload type, and you can attach the file when you add the record.";
exit;
};
while ($bytesread=read($user_data{filename},$buffer,1024)) {
$filedata.=$buffer;
}
close ($user_data{filename});
if (length($filedata)==0) {&error('No Data Was Uploaded')};
@file=split(/[\n\r]+/,$filedata);
}
chomp(@file);
$count=time();
$count+=.000001;
if ($dlmtr eq 'comma') {$dlmtr=','} else {$dlmtr="\t"};
foreach $line (@file) {
@newline=();
#********CONVERT CSV FORMAT********
$line=~s/\"\"/<--------QUOTE-------->/g;
while (length($line)>0) {
if ($line=~/^\"([^\"]*)\"($dlmtr|$)/) {
$phrase=$1;
$line=~s/^\"[^\"]*\"($dlmtr|$)//;
} elsif ($line=~/^([^$dlmtr]*)$dlmtr/) {
$phrase=$1;
$line=~s/^[^$dlmtr]*$dlmtr//;
} else {
$phrase=$line;
$phrase=~s/\"//g;
$line="";
}
$phrase=~s/<--------QUOTE-------->/\"/g;
push(@newline,$phrase);
}
#add null fields if line is short
open (FIELDS,"<$fieldnames") or &error('could not open $fieldnames');
@fields=Data Import complete
";
if ($userid eq "admin") {
&admin;
} else {
&memberpage;
}
};
sub fieldnames {
if ($_[0] eq crypt($a,$code)) {return 'true'} else {return 0};
};
#********END IMPORT DATA CONVERSIONS*******************
#********BEGIN EXPORT USER PAGE**********************
sub export {
print "
Export the database to a delimited text file
You will then use your FTP program to download the exported data.
Would you like the file comma or tab delimited?
Include field names in first row?
\n",@INC);
print qq(Content-type: text/html\n\n
Submission failed -- could not find CGI.pm
The CGI.pm module is necessary for webdata to submit a form which may contain an uploaded file.
Webdata could not find the CGI.pm module in any directory in the \@INC array:
$inclist
It is best to have your system administrator install CGI.pm in the .../lib/perl5 directory. If that is not
possible, follow the instructions
to install CGI.pm in a private directory under the heading "If you do not have sufficient privileges to install
into /usr/local/lib/perl5." Go Back
\n";
exit;
} else {
$userid="admin";
$ENV{HTTP_COOKIE}="admin=$password";
return;
};
}
sub memberpass {
$userid="";
if((exists($user_data{username}))&&(exists($user_data{password}))&&($user_data{cgifunction} =~ /^(memberpage|instantmember)$/)) {
$cpass=crypt($user_data{password},7);
$cookie="admin=$user_data{username}::$cpass";
$ENV{HTTP_COOKIE}="$cookie";
} else {
if ($ENV{HTTP_COOKIE}=~/(admin=[^\;]*)/) {
$cookie=$1;
};
};
&putlock;
open(FILE,"<$members") or &error("Could not open $members");
@members=\n";
}
open(FIELDS,"<$fieldnames")||die "Could not open $fieldnames";
@fieldsData=
\n";
}
print "";
if ($reportForm==1) {$header.=" ";
print "$header\n" if !$searchTemplateOn;
#***** GET SQL CODE *****
$db = new Win32::ODBC("$dsn") or &error("Could not open Win32::ODBC(\"$dsn\")");
$db->Sql("SELECT * FROM ${tablename}${whereclause}${orderby}");
$date=0;
while ($db->FetchRow()) {
@data=$db->Data;
#***** DISPLAY THE LINE ****************
$min=($pagenum-1)*$reportLines;
$max=$pagenum*$reportLines;
$count++;
if (($count>$min)&&($count<=$max)) {
if (!$searchTemplateOn) {
#ALTERNATE TABLE COLORS
if ($alt==0) {
$alt=1;
print "\n";};
foreach (@sequence) {
$header .= " $fields[$_] ";
};
$header.="";
} else {
$alt=0;
print "\n ";
}
if ($reportForm==1) {
print " ";
};
if ($searchTemplateOn) {
print "\n\n";
} else {
print "\n";
print "
/g;
if ($n eq "") {$n=' ';};
$n=~s/^([0-9a-zA-Z_\-\.\~]+\@[0-9a-zA-Z_\-\.\~]+\.[0-9a-zA-Z_\-\.\~]+)/$1<\/A>/g;
if ($n=~/^([^ ]+\.(gif|jpg))$/i) {$n=""} else {$n=~s/^(http[^ \<\>]+)/$1<\/A>/g;};
print "$n ";
};
} else {
#BEGIN SEARCHTEMPLATE SUBSTITUTION
foreach (@data) {
s/^([0-9a-zA-Z_\-\.\~]+\@[0-9a-zA-Z_\-\.\~]+\.[0-9a-zA-Z_\-\.\~]+)/$1<\/A>/g;
s/^(http[^ ]+)/$1<\/A>/g;
s/^([^ ]+\.(gif|jpg))$/\/gi;
};
$template=$searchTemplate;
$template=~s/\$fields\[(\d+)\]/$fields[$1]/g;
$template=~s/\$data\[(\d+)\]/$data[$1]/g;
$template=~s/\$viewbutton/\
$reportFooter
\n";
if ($count>0) {
print "
";
if ($min>1) {print "
Go to page\:";
$numpages=int($count/$reportLines);
$myquery=$querystring;
if ($count/$reportLines>$numpages) {$numpages++;};
for ($i=1;$i<=$numpages;$i++) {
$myquery=~s/pagenum=[0-9]*/pagenum=$i/;
print "$i ";
};
} else {
print "No results were found. Search Again\n";
print "
Return to home page\n
Powered by Webteacher\'s Webdata
";
};
&template if $formTemplateOn==1;
print "
";
};
open(FIELDS,"<$fieldnames") or &error("Could not open $fieldnames");
@fieldsData= $fields[$i] $data[$i]\n" if $formTemplateOn != 1;
};
if ($formTemplateOn != 1) {
print " Error -- Could not open ${uploadsdir}lock to write file lock
A lock is a file which is written before modifying the data and removed afterwards to prevent corruption
by two simultanious processes. The directory, $uploadsdir has been defined on lines 6and 7 of the $0 script.
The $0 script must have read/write permissions to that directory in order to place the file lock.
Enter text in any field to restrict the search to only those records which
CONTAIN your text in that field.
To find a range, type between lowvalue and highvalue.
Use "and" & "or" for complex searches. );
$addresponse=qq(Your entry has been added.);
$returntoprevious=qq(Return to previous page.);
$lang_results=qq(Results);
$lang_of=qq(of);
$nextpage=qq(Next Page);
$previouspage=qq(Previous Page);
$gotopage=qq(Go to Page);
$searchagain=qq(Search Again);
$returntohomepage=qq(Return to Homepage);
$poweredbywebteacher=qq(Maintained by
Marino Pascal);
$noresultswerefound="No results were found";
$indicatesRequiredFields=qq{indicates required fields};
}
if ($language eq "German") {
$searchButton="Suchen";
$addButton="Hinzuf¸gen";
$clearButton="Zur¸cksetzen";
$instructions=qq(Klicken Sie auf "Zur¸cksetzen" und im Anschluþ "Suchen", um alle Eintragungen
anzuzeigen.
Geben Sie einen Text in einem Feld ein, wird die Suche dahingehend
eingegrenzt, daþ nur Eintragungen angezeigt werden, die den eingegebenen Text in
dem entsprechenden Feld beinhalten.
Um einen bestimmten Wertebereich zu finden, geben Sie "between lowvalue
and highvalue" ein.
Verwenden Sie "and" & "or" f¸r eine komplexe Suche.);
$addresponse=qq(Ihr Eintrag wurde hinzugef¸gt.);
$returntoprevious=qq(Zur¸ck zur vorherigen Seite);
$lang_results=qq(Suchergebnisse);
$lang_of=qq(von);
$nextpage=qq(N”chste Seite);
$previouspage=qq(Vorherige Seite);
$gotopage=qq(Gehe zu Seite);
$searchagain=qq(Neue Suche);
$returntohomepage=qq(Zur¸ck zur Homepage);
$poweredbywebteacher=qq(Powered by
Webteacher\'s Webdata);
$noresultswerefound=qq(Es wurden keine Ergebnisse gefunden.);
$indicatesRequiredFields=qq{indicates required fields};
};
if ($language eq "French") {
$searchButton="Chercher";
$addButton="Ajouter";
$clearButton="Recommencer";
$instructions=qq(Cliquer sur "Recommencer" puis "Chercher" pour voir toutes les fiches.
Entrer un texte dans une/les case(s) pour sortir uniquement les fiches
qui contiennent votre texte dans la/les case(s).
Pour chercher une sÈrie de donnÈes, utiliser les termes "between" et
"and" pour dÈterminer la fourchette. Par exemple, "between 1000 and 2000".
Utiliser "and" & "or" pour les recherches complexes.);
$addresponse=qq(Votre saisie a ÈtÈ enregistrÈ.);
$returntoprevious=qq(Retour ý la page prÈcÈdente);
$lang_results=qq(RÈsultats);
$lang_of=qq(de);
$nextpage=qq(Page suivante);
$previouspage=qq(Page prÈcÈdente);
$gotopage=qq(Aller ý la page);
$searchagain=qq(Nouvelle recherche);
$returntohomepage=qq(Retour ý la page d\'accueil);
$poweredbywebteacher=qq(GÈnÈrÈ par
Webdata de Webteacher);
$noresultswerefound="Aucun rÈsultat";
$indicatesRequiredFields=qq{indicates required fields};
};
if ($language eq "Italian") {
$searchButton="Cerca";
$addButton="Aggiungi";
$clearButton="Cancella il form";
$instructions=qq(Clicca "Cancella il form" e quindi "Cerca" per vedere tutti i record.
Inserisci del testo in un campo per restringere la ricerca ai soli record che CONTENGONO il tuo
testo in quel campo.
Per cercare una gamma di valori, scrivi "between <valore minore> and <valore maggiore>".
Usa "and" e "or" per ricerche complesse.);
$addresponse=qq(Il record Ë stato aggiunto.);
$returntoprevious=qq(Torna alla pagina precedente);
$lang_results=qq(Risultati);
$lang_of=qq(di);
$nextpage=qq(Pagina Successiva);
$previouspage=qq(Pagina Precedente);
$gotopage=qq(Vai a pagina);
$searchagain=qq(Cerca Ancora);
$returntohomepage=qq(Torna alla Homepage);
$poweredbywebteacher=qq(Powered by
Webteacher\'s Webdata);
$noresultswerefound="Nessun record h stato trovato";
$indicatesRequiredFields=qq{indicates required fields};
};
if ($language eq "Spanish") {
$searchButton="Buscar";
$addButton="Agregar";
$clearButton="Restablecer";
$instructions=qq(Si quieres ver todas las entradas en la base de datos pulsa el botÛn "Restablecer" luego "Buscar".
Si escibes texto en las casillas sola ver·s las entradas que contengan este texto en los resultados de la busqueda.
Para busquedas entre dos numeros, escribe "between valor bajo and valor alto".
Por ejemplo "between 1000 and 2000".
Usa "and" y "or" para busquedas complejas.);
$addresponse=qq(La base de datos ha sido actualizada.);
$returntoprevious=qq(Regresa a la pagina anterior.);
$lang_results=qq(Resultados);
$lang_of=qq(de);
$nextpage=qq(P·gina Siguiente);
$previouspage=qq(P·gina Anterior);
$gotopage=qq(Continue a p·gina);
$searchagain=qq(Reiniciar b™squeda);
$returntohomepage=qq(Regresa a la pagina principal);
$poweredbywebteacher=qq(Powered by
Webteacher\'s Webdata);
$noresultswerefound=qq(No se encuentra nada.);
$indicatesRequiredFields=qq{indicates required fields};
};
if ($language eq "Dutch") {
$searchButton="Zoeken";
$addButton="Toevoegen";
$clearButton="Opnieuw";
$instructions=qq(Druk op "Opnieuw" daarna "Zoeken" voor een overzicht
van alle records.
Voer in een veld een tekst in om het zoeken te
berperken naar die records die de tekst bevat.
Om een reeks te vinden, voert u in; between lowvalue and highvalue.
Bijvoorbeeld "between 1000 en 2000".
Gebruik "and" & "or" voor gecompliceerd zoeken. );
$addresponse=qq(Uw gegevens zijn toegevoegd.);
$returntoprevious=qq(Terug naar de vorige pagina.);
$lang_results=qq(Zoekresultaat);
$lang_of=qq(van);
$nextpage=qq(Volgende pagina);
$previouspage=qq(Vorige pagina);
$gotopage=qq(Ga naar pagina);
$searchagain=qq(Zoek opnieuw);
$returntohomepage=qq(Terug naar Homepage);
$poweredbywebteacher=qq(Powered by
Webteacher\'s Webdata);
$noresultswerefound="Er zijn geen resultaten gevonden";
$indicatesRequiredFields=qq{indicates required fields};
}
if ($language eq "Portuguese") {
$searchButton="Pesquisar";
$addButton="Incluir";
$clearButton="Limpar";
$instructions=qq(Clicar em "Limpar Formul·rio" depois em "Pesquisar"
para ver todos os registros.
Digite um texto em qualquer campo para restringir a pesquisa aos registros
que CONTENHAM esse texto.
Para pesquisar em um intervalo, digite: "between" menor valor "and" maior
valor. Exemplo: between 1000 and 2000.
Use "and" & "or" Para pesquisas mais completas. );
$addresponse=qq(Sua InformaÁ“o Foi IncluÌda.);
$returntoprevious=qq(Retornar a p·gina anterior.);
$lang_results=qq(Resultados);
$lang_of=qq(de);
$nextpage=qq(PrÛxima P·gina);
$previouspage=qq(P·gina Anterior);
$gotopage=qq(Ir para a P·gina);
$searchagain=qq(Pesquisar Novamente);
$returntohomepage=qq(Voltar para a P·gina Principal);
$poweredbywebteacher=qq(Gerado por
Webteacher\'s Webdata);
$noresultswerefound="Nada foi localizado";
$indicatesRequiredFields=qq{indica campos obrigatÛrios};
}
}
#END LANGUAGE