#!/usr/bin/perl

use CGI qw(:standard); $query = new CGI;
# use CGI::Carp qw(fatalsToBrowser);
require('/httpd/htdocs/site.cfg');

@search_tips = ("Wpisz kilka słów, a wyszukiwarka znajdzie strony z każdym z nich",
                "Wpisz cze¶ć słowa, wtedy wyszukiwarka uwzględni także słowa zbliżone",
                "Nie używaj operatorów, jak w innych wyszukiwarkach",
                "Skorzystaj z zaawansowanego wyszukiwania, aby zawęzić wyniki");

&run_html;
&header;
&katalog_head;
&search_tips;
&last_searched;
&get_nested;
&print_nested;
&stopka;
exit;

sub run_html {

$style_home=<<EOF;
A { text-decoration : none }
UL { font-size: 14pt; font-family: sans-serif; lineheight: 24pt; }
H2 { font-family : sans-serif;
   font-size : 32pt }

.smaller { font-size : 18pt }
EOF

print $query->header(
	-type=>'text/html',
	-expires=>'2d+',
	-refresh=>'1800',
	-charset=>'iso-8859-2');

print "<!-- pozdrowienia dla czytajacych w kodzie -->\n\n";
print $query->start_html(
	-TITLE=>' - Katalog Zielonej Bramy ',
	-AUTHOR=>$master_site,
	-META=>{'Version'=>'1.2',
		'Generator'=>'Brain & Keyboard',
		'Language'=>'PL',
		'Robots'=>'index,follow'},
	-style=>{-code=>$style_home},
	-BGCOLOR=>'#e6e6e6',
	-TEXT=>'black',
	-LINK=>'#005A5A',
	-VLINK=>'#005A5A',
	-MARGINHEIGHT=>'0',
	-TOPMARGIN=>'0',
	-MARGINWIDTH=>'0',
 	-LEFTMARGIN=>'0');
	}

sub header {

print<<EOF;

<div align=center>
<table border=0 bgcolor=white width=580 cellspacing=0 cellpadding=10>
   <tr>
      <td width=120 align=center><a href="http://wp.pl" target=_top>
      <img src="/imgs/polecamy1.gif" border=0 alt="Poleca Wirtualna Polska"></a></td>

      <td width=580 align=right>
      <img src="/imgs/dir_baner.gif" width=461 height=94 alt="mały zielony katalog internetu"></td>
   </tr>
   <tr>
      <td rowspan=2 width=120 valign=top style="background: white url(/imgs/menu.gif) no-repeat">
		<img src="/imgs/pixel.gif" width=100 height=1 alt=""><br><br>
         <font style="line-height: 20px" face="Arial,Helvetica,Geneva" size=2><nobr>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/nowosci.html"><b>nowo¶ci</b></a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/prawo.html">prawo</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/przewodnik.html">przewodnik</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/interwencje.html">interwencje</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/info/">serwis info</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/organizacje.html">organizacje</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/czasopisma.html">czasopisma</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/instytucje.html">instytucje</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/szukaj.html">szukaj</a><br>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site/serwer.html">o serwerze</a><p>
         <img src="/imgs/tip_koni.gif" alt=""> <a href="$site"><b>BRAMA</b></a><br>
			</nobr>
		</td>
		<td bgcolor=#669966><img src="/imgs/pixel.gif" alt=""></td>
	</tr>
	<tr>
      <td width=460 style="background: lemonchiffon url(/imgs/td_back_dot_left.gif) repeat-y" align=center>
<!-- poczatek zawartości -->
EOF
}

sub katalog_head {

############ WYSZUKIWARKA

print<<EOF;
<!-- startuje kod katalogu -->
<table border=0 cellspacing=10 cellpadding=4>

<form action=/cgi-bin/search/ksearch.cgi>
<input type=hidden name=Case value="Insensitive">
<input type=hidden name=Type value="Fuzzy">
<input type=hidden name=Construct value="Any search term">
<input type=hidden name=Hits value=25>
      <tr>
         <td valign=bottom colspan=2 align=center bgcolor=white>
         <font size=1 face=Arial><nobr>
         <a href=$site_dir/Nowe>najnowsze</a>&nbsp; &#149; &nbsp;
         <a href=$site_dir/moja.cgi?cmd=dig>dodaj stronę</a>&nbsp; &#149; &nbsp;
         <a href=szukaj.html>zaawansowane</a></nobr><br>
         <input name="Searchterms" type=text size=27>
         <b><input type=submit value=Szukaj></b></nobr><br>
EOF
   }

############# PODPOWIEDZI DO WYSZUKIWANIA

sub search_tips {

   $tindex = rand @search_tips;
   print "      <div align=center><b>RADA:</b> $search_tips[$tindex]</div>";
   }

############# OSTATNIO SZUKANE

sub last_searched {

if (-e "$path_cgi/search/katalog_search.log") {

   open(LOG, "$path_cgi/search/katalog_search.log");
   my @log = <LOG>;
   close(LOG);

   $_ = pop(@log);
   chomp;
   my ($czas,$modul,$keys) = split(/\|/,$_);
   print "<p align=center>ostatnio szukane:\n      ";
   print "<a href=\"/cgi-bin/search/ksearch.cgi?Hits=25&search=$keys\">$keys</a>\n";
   }

else { print "$!"; }
print "      </div></font></td>\n   </tr>\n";
}


sub get_nested {

   opendir(DIR, "./");
   while ($nestdir = readdir(DIR)) {
      push(@nested,$nestdir) if -d $nestdir
           && $nestdir !~ /\./
           && $nestdir ne "admin"
           && $nestdir ne "Nowe"
           && $nestdir ne "";
      }
   closedir(DIR);                          # katalogi zagniezdzone
}

sub print_nested {

if (@nested) {

@nested = sort(@nested);
print<<EOF;
<!-- <table width=100% cellspacing=8> -->
   <tr valign=top>
EOF

$counter = int($#nested/2);

foreach $nested (@nested) {
   if ($count == 0) {
	print "      <td style=\"background: lemonchiffon\" width=50%>\n".
	      "     <ul type=circle><b><font size=2 face=\"Arial,Helvetica,Geneva\">\n";
      }

   print "         <li><a href=$nested/>";
   if (&check_nested("$path_dir/$path/$nested")) {
      $nested =~ s/_/ /g;
      print "$nested</a>\@<br>\n";
      }
   else {
      $nested =~ s/_/ /g;
      print "$nested</a><br>\n";
      }

   $count++;
   if ($counter < $count) {
      $count =0;
#      $first =1;
      print "      </ul></td>\n";
      }
#   else { print "      </ul></td>\n   </tr>\n"; }
   }
   print "\n</form></table><br><br>\n";
   }
}

############# KONIEC TABEL I STRONY

sub stopka {

print<<EOF;

<!-- koniec zawartości -->
<div align=right><nobr>
<font size=1 face="Tahoma,Verdana,Arial,Helvetica,Geneva">
      <a href="$site/">główna</a> |
      <a href="$site/nowosci.html">nowo¶ci</a> |
      <a href="$site/prawo.html">poradnik</a> |
      <a href="$site/przewodnik.html">przewodnik</a> |
      <a href="$site/interwencje.html">interwencje</a> |
      <a href="$site/instytucje.html">instytucje</a> |
      <a href="$site/organizacje.html">organizacje</a> |
      <a href="$site/czasopisma.html">czasopisma</a></font></nobr>
<hr size=1>
<font size="-1">Wydrukowano na ekranie z makulatury<br>&nbsp;</font>
</div>

<a target=_top href="http://stat.webmedia.pl/cgi-bin/anal?cesaria">
<img border=0 src="http://stat.webmedia.pl/cgi-bin/stat?cesaria&stat4u" alt="stat4u" width="85" height="20"></a>
      </td>
   </tr>
</table>
</div>

</body>
</html>
EOF
}

sub check_nested {

my @subdirs;

opendir(DIR, $_[0]);
while ($_ = readdir(DIR)) {
   if (-d "$_[0]/$_" && $_ !~ /\./ && $_ !~ "admin") { push(@subdirs,$_) }
   else {}
   }
closedir(DIR);
return @subdirs;
}