#!/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 \n
";
if ($ENV{'QUERY_STRING'}) { &propo; } else { &news; }
&close_all;
exit;
sub news {
print " Nowości w katalogu";
open(NBASE,"$path_dir/Nowe/datafile.txt") || die "Software error.";
@data = ;
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 "\n";
}
sub propo {
print " Zgłoszenia do katalogu";
open(NEW,"$path_dir/Nowe/newdata.txt") or ¬hing_new;
@data = ;
close(NEW);
@data = reverse @data;
¬hing_new unless @data;
print "\n";
foreach (@data) {
chomp;
($time,$link,$name,$desc,$lang,$path,$show,$mail)= split(/\|/);
&humantime;
print "- $name
\n - $desc
\n $link, $lang, $my_czas ";
print "Zgłoszono do: $path \n\n";
}
print "
Zobacz Nowości
\n";
}
sub nothing_new {
print "Brak nowych zgłoszeń do katalogu. ";
}
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;
}
|