;
if( $_ eq "" ){
last;
}
chop;
if( $_ !~ /=/ ) {
last;
}
($junk,$value) = split(/=/,$_,2);
if($value eq ""){
next;
}
}elsif( ($main == 0) && ($junk ne $result_tran{"PLAIN_START"}) ){
$entry{$junk} = $value;
$main = 1;
}
if( $main == 0 ){
if( defined($entry{"FORM_DB"}) && ($entry{"FORM_DB"} eq $main_tran{"FORM_ANONFTP_DB"} )){
$db = $main_tran{"I_ANONFTP_DB"};
}else{
$db = $main_tran{"I_WEBINDEX_DB"};
}
if (($strings_only == 0) && (!defined( $entry{"FORM_SERV_URL"} )) ){
&print_error("The submitted information does not include URL information. Read the HELP pages to setup your html page correctly.",$entry{"FORM_GIF_URL"});
exit 1;
}
# do while instead
while (1){
if($result_tran{"PLAIN_END_STRINGS"} eq $junk){
last;
}elsif($strings_only == 1){
printf STDOUT $str2, $s ,$value;
$s++;
}elsif( $result_tran{"PLAIN_START"} eq $junk ){
$rec_num = $value+1;
if($top != 1){
$old_site = $curr_site;
$old_str = $curr_str;
}
}elsif( $result_tran{"PLAIN_END"} eq $junk ){
if ($top == 1){
&print_header($entry{"FORM_GIF_URL"},$entry{"FORM_SERV_URL"});
printf STDOUT $archie_continue_button, $entry{"FORM_OLD_QUERY"};
foreach $k ( keys %entry ){
if( $k eq "PLAIN_HITS" ){
printf STDOUT $str1, $entry{$k};
printf STDOUT $str3;
}else{
printf STDOUT $str4, $main_tran{$k}, $entry{$k};
}
}
print STDOUT "\n";
$top=0;
}
if($db == $main_tran{"I_ANONFTP_DB"}){
if( $old_site ne $curr_site ){
## Do some processing for a new site
$no_sites++;
printf STDOUT "";
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
printf STDOUT $str5, $rec_num, $result{"PLAIN_SITE"};
}else{
printf STDOUT $str6, $rec_num, $result{"PLAIN_URL"}, $result{"PLAIN_SITE"};
}
}
$str = $result{"PLAIN_STRING"};
$size = $result{"PLAIN_SIZE"};
$date = $result{"PLAIN_DATE"};
$perms = $result{"PLAIN_PERMS"};
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
$path = $result{"PLAIN_PATH"};
&print_spaces($info_offset);
printf STDOUT $str7, $proto{"Anonymous FTP"}, $result{"PLAIN_SITE"}, $result{"PLAIN_PATH"}, $rec_num;
$~ = "OUTPATH";
write;
$strout = "".$result{"PLAIN_STRING"}."
";
$~ = "OUTINFO";
write;
}
}elsif($db == $main_tran{"I_WEBINDEX_DB"}){
if( defined( $result{"PLAIN_TITLE"})){
$title =$result{"PLAIN_TITLE"};
}else{
$title = $result{"PLAIN_NO_TITLE"};
}
(defined ($result{"PLAIN_SITE"})) && ($site = $result{"PLAIN_SITE"});
(defined ($result{"PLAIN_TEXT"})) && ($text = $result{"PLAIN_TEXT"});
(defined ($result{"PLAIN_STRING"})) && ($str = $result{"PLAIN_STRING"});
(defined ($result{"PLAIN_SIZE"})) && ($size = $result{"PLAIN_SIZE"});
(defined ($result{"PLAIN_WEIGHT"})) && ($weight = $result{"PLAIN_WEIGHT"});
(defined ($result{"PLAIN_DATE"})) && ($date = $result{"PLAIN_DATE"});
(defined ($result{"PLAIN_URL"})) && ($strurl = $result{"PLAIN_URL"});
if ($strurl eq $title) {
$title =~ s/:80\//\//;
$strurl = $title;
$title = "(NO-TITLE) $title";
}elsif($strurl !~ /:80\d+/){
$strurl =~ s/:80//;
}
if($site !~ /:80\d+/){
$site =~ s/:80//;
}
if( $old_site ne $curr_site ){
## Do some processing for a new site
$no_sites++;
print STDOUT "
";
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
printf STDOUT $str5, $rec_num, $site;
}else{
printf STDOUT $str6, $rec_num, $strurl, $site;
}
}
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
&print_spaces($site_offset);
printf STDOUT $str8, $strurl, $title;
defined( $weight ) && (print STDOUT "\n\n".' 'x$site_offset) && (printf STDOUT $str9, $str);
defined( $date ) && (print STDOUT "\n\n".' 'x$site_offset) && (printf STDOUT $str10, $date) && (&print_spaces($info_offset)) && (printf STDOUT $str11, $size);
printf STDOUT $str12, $text;
}
}
undef(%result);
undef $site; undef $text; undef $str; undef $size; undef $weight; undef $date; undef $strurl;
}else{
foreach $key (keys (%result_tran)) {
if( $result_tran{$key} eq $junk ){
$result{$key} = $value;
if($key eq "PLAIN_SITE"){
$curr_site = $value;
}
if($key eq "PLAIN_STRING"){
$curr_str = $value;
}
$main = 1;
last;
}
}
}
$_ = ;
if( $_ eq "" ){
last;
}
chop;
if( $_ !~ /=/ ) {
last;
}
($junk,$value) = split(/=/,$_,2);
if($value eq ""){
next;
}
}
last;
}
}
$i++;
}
# printf STDOUT $archie_continue_button, $entry{"FORM_OLD_QUERY"};
if( !defined( $entry{"PLAIN_HITS"} ) ){
&print_error("No hits",$entry{"FORM_GIF_URL"});
}elsif($err eq ""){
print STDOUT $str13;
}
exit 1;
sub print_error {
local($error_msg,$gifurl) = @_;
print STDOUT "Content-type: text/html\n\n";
if( $gifurl eq "" ){
print STDOUT "Archie Results
\n\n";
}else{
printf STDOUT $archie_header_logo, $gifurl;
print STDOUT "Archie Results
\n\n";
}
# print STDOUT "Archie Error
\n\n";
print STDOUT "".$error_msg."
\n";
printf STDOUT $archie_pages;
print STDOUT "\n";
return(1);
}
sub print_header {
local($gifurl, $url) = @_;
print STDOUT "Content-type: text/html\n\n";
printf STDOUT $archie_title;
if( $gifurl eq "" ){
printf STDOUT $archie_header_plain;
}else{
printf STDOUT $archie_header_logo, $gifurl;
}
print STDOUT "