#!/usr/bin/perl

use CGI qw(:standard);
# use CGI::Carp qw(fatalsToBrowser);
require ("/httpd/htdocs/site.cfg");
require ("/httpd/htdocs/katalog/dir.pm");

$query = new CGI;
$database = "datafile.txt";

print $query->header(
	-type=>'text/html',
	-charset=>'ISO-8859-2',
	-expires=>'now');

&get_base;
&get_files;
&get_nested;
&get_paths;
&return_html($path);
&start_table;
&menu_objects;
&print_nested;
&print_base;
&close_all;

#----------# POBIERA ZAWARTOSC BAZY #------------#

sub get_base {
   open(DB, $database);
   @lines = <DB>;
   close (DB);
   }

#----------# CZYTA KATALOGI ZAGNIEZDZONE #------------#

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

#----------# GENERUJE ZMIENNE SCIEZKI #------------#

sub get_paths {
use Cwd;
$path = cwd;
# oddaje samą ściezkę wewnątrz katalogu
$path =~ s/$path_dir\///;
@path = split(/\//,$path);

# oczyszcza ścieżkę z pseudo-spacji
$clean_path = $path;
$clean_path =~ s/_/ /g;
@clean_path = split(/\//,$clean_path);

# czyszczenie do tytułu
$clean_path =~ s/\//: /g;
$title = "Katalog: $clean_path";

# zwraca ostatni katalog w ciągu ściezki
$last_dir = $clean_path[$#clean_path];

# nieaktywna wersja językowa katalogu
#$lng = $ENV{'QUERY_STRING'};
}

sub tree_path {
  print "      &nbsp; <a href=$site><b>Brama</b></a> >\n      <a href=$site_dir>Katalog</a> >\n";
  $num = 0;
  foreach (@path) {
     print "      <a href=$longpath/$path[$num]>";
     print "$clean_path[$num]</a> >\n";
     $longpath .= "/$path[$num]";
     $num++;
     }
  print "      </font>\n";
  }

#--------------# KOLEJNOSC MENU #--------------#

sub menu_objects {

#print "\n     <table border=1 cellspacing=0 cellpadding=8 width=100%>\n";

   &give_last_added;
   if (@lines) { &last_added_here; }
   &searcher;

#print "\n   </tr>\n     </table>\n";

#------------# STARTUJE ZAWARTOSC #-------------#

print "<td valign=top><font size=2 face=sans-serif>\n";
&tree_path;
print "      <h1>&nbsp; $last_dir</h1>\n";
}

#----------# KATALOGI ZAGNIEZDZONE #------------#

sub print_nested {

if (@nested) {

@nested = sort(@nested);
print<<EOF;
<table width=100% cellspacing=8>
   <tr valign=top>
      <td colspan=2><nobr>
      <IMG SRC="/imgs/pic.gif" WIDTH="250" HEIGHT="1" BORDER="0" ALT="">
      <font size=4 face=sans-serif>Kategorie</font></nobr>
   <tr valign=top>
      <td width=50%>
      <ul type=square><b><font size=2 face=\"Arial,Helvetica,Geneva\">

EOF

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

foreach $nested (@nested) {
   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;
      print "</ul></td>\n      <td width=50%>\n      <ul type=square><b><font size=2 face=\"Arial,Helvetica,Geneva\">\n\n";
      }
   }

   if (@lines) { print<<EOF;

   <tr valign=top>
      <td colspan=2><br>
      <IMG SRC="/imgs/pic.gif" WIDTH="250" HEIGHT="1" BORDER="0" ALT="">
      <font size=4 face=sans-serif>Strony</font>
EOF
      }
   print "\n</table>\n";
   }
print "   <hr size=1 align=center width=95\%>\n" unless (@nested);
print @include;
}

#----------# WYDRUK REKORDOW BAZY #------------#

sub print_base {
  print "\n      <ol>\n";
  @lines = reverse sort @lines;
  foreach (@lines) {
     chomp;
     ($time,$url,$name,$desc,$lang,$worth) = split(/\|/);
     &humantime;


  print "\n\n      <li><a href=$url>\n         <b>$name</b></a>";
  if ($worth) { print "<img src=/imgs/lookat.gif alt=\"Szczególnie warto zobaczyć\">"; }

  print "<dl>\n         <dd><font size=1 face='Verdana,Tahoma,Arial,sans-serif'>$desc</font><br>\n         ".
        "<font size=2><a href=$url>$url</a><br>\n         ".
        "<i>$lang, $my_czas</i><br><br>".
        "<!-- $keys --></font></dd></dl>";
  }
}

#----------# ZAMYKANIE STRONY - STOPKA #------------#

sub close_all {
   print @seealso;
   print @header3;
   }

#----------# PODRZEDNE FUNKCJE #------------#

############# OSTATNIO DODANO W KATALOGU

sub give_last_added {

if (-e "$path_dir/last.dat") {
   @last_added = &open_file("$path_dir/last.dat");
   &menu_cell;

   ($time,$url,$name,$desc,$lang,$lpath) = split(/\|/,$last_added[0]);
   &humantime($time);

   print<<EOF;
   <span class=dark>
   <b class=red>Najnowsze</b><br>
   <img src=/pix/pixel.gif alt border width=20 height=5><br>
   <b>$name: </b><br>
   <span class=male>$desc, <i>$lang, $my_czas</i><br>
   <div align=right><nobr>[&nbsp;<a href=$url>
EOF
   $url =~ s/^(http:\/\/)*//;
   $url = &too_long($url);

   print<<EOF;
   $url</a>&nbsp;]</nobr></div>
   <div align=left class=male>[ <a href=$site_dir/Nowe/><font size=1 class=red>zobacz inne</font></a> ]</div></span><p>
EOF
   }
}

############# OSTATNIE W TYM DZIALE

sub last_added_here {

($time,$url,$name,$desc,$lang,$worth) = split(/\|/,$lines[$#lines]);
&humantime;

#&menu_cell;
print<<EOF;
   <span class=dark>
   <b class=red>... w dziale</b><br>
   <b>$name: </b>
   <font size=1>$desc, $lang, $my_czas<br>
   <div align=right><nobr>[&nbsp;<a href=$url>
EOF

   $url =~ s/^(http:\/\/)*//;
   $url = &too_long($url);

   print "$url</a>&nbsp;]</nobr></div>\n";
   }

sub open_file {
   open(FILE, $_[0]) || die "Cannot read: $_[0] = $! ";
   my @file = <FILE>;
   close(FILE);
   return @file;
   }

############# SPRAWDZA ZAGNIEZDZONE

sub check_nested {

my @subdirs;

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

############# NAGLOWEK KOMORKI W MENU

sub menu_cell {
print<<EOF;
   <tr>
       <td><font size=2 face=sans-serif>
EOF
}

############# CZAS UNIX NA LUDZKI

sub humantime {
# Parsing human time values

@my_czas = localtime($time);
# $my_czas[3]++;
$my_czas[4]++;
if (length($my_czas[4]) == 1) { $my_czas[4] = "0$my_czas[4]" }
$my_czas[5] += +1900;

$my_czas = "$my_czas[3]. $my_czas[4]. $my_czas[5]";

#print $my_czas;
}

############# KROI ZA DŁUGIE LINKI

sub too_long {
   if (length($_[0]) > 35) { $_[0] =~ s/([a-zA-Z_]+)(\/)([a-zA-Z_]+)/$1$2<br>$3/g; }
   return $_[0];
   }