#!/usr/bin/perl
use CGI; $query = new CGI;
use CGI::Carp qw(fatalsToBrowser);

require("/httpd/htdocs/site.cfg");
require("/httpd/htdocs/katalog/dir.pm");

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

&get_files;
&return_html("$site_name: Nowości w katalogu");
&start_table;
&give_last_added;
&searcher;
&close_menu;
#print "\n      </td>\n      <td valign=top>";

if ($ENV{'QUERY_STRING'}) { &propo; } else { &news; }
&close_all;
exit;

sub news {

print "<h1>&nbsp; Nowości w katalogu</h1>";
open(NBASE,"$path_dir/Nowe/datafile.txt") || die "Software error.";
@data = <NBASE>;
close(NBASE);

@data = sort wg_daty @data;

sub wg_daty {
   my ($c,$d);
   ($c) = split /\|/, $a;
   ($d) = split /\|/, $b;

   if ($c > $d) { return -1 }
   elsif ($c == $d) { return 0 }
   else { return 1 }
   }

print "<ul>\n";
foreach (@data) {
   chomp;
   ($time,$link,$name,$desc,$lang,$path)= split(/\|/);
   &humantime;
   print "<p><li><b><a href=$link>$name</a></b><dl>\n   <dd>$desc<br>\n   <a href=$link>$link</a>, <i>$lang, $my_czas</i><br>";
   print "<p>Dodano do: <a href=$site_dir/$path>$path</a></dd></dl>\n\n";
   }
print "<p><hr></p><p align=center>Zobacz <a href=/Nowe/?propo><b>zgłoszenia</b></a> do katalogu</p><br></ul>\n";
}

sub propo {

print "<h1>&nbsp; Zgłoszenia do katalogu</h1>";
open(NEW,"$path_dir/Nowe/newdata.txt") or &nothing_new;
@data = <NEW>;
close(NEW);

@data = reverse @data;
&nothing_new unless @data;

print "<ul>\n";
foreach (@data) {
   chomp;
   ($time,$link,$name,$desc,$lang,$path,$show,$mail)= split(/\|/);
   &humantime;
   print "<p><li><b><a href=$link>$name</a></b><dl>\n   <dd>$desc<br>\n   <a href=$link>$link</a>, <i>$lang, $my_czas</i><br>";
   print "<p>Zgłoszono do: <a href=$site_dir/$path>$path</a></dd></dl>\n\n";
   }

print "<p><hr></p><p align=center>Zobacz <a href=/Nowe/><b>Nowości</b></a></p><br></ul>\n";
}

sub nothing_new {
   print "<ul>Brak nowych zgłoszeń do katalogu.</ul>";
   }

sub humantime {
# Parsing human time values
if ($_[0]) { @my_czas = localtime($_[0]); }
elsif ($czas) { @my_czas = localtime($czas); }
elsif ($time) { @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] = $my_czas[5]+1900;

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