#!/usr/bin/perl $app = 'moja.cgi'; use CGI; $query = new CGI; # use CGI::Carp qw(fatalsToBrowser); require("/httpd/htdocs/site.cfg"); require("/httpd/htdocs/katalog/dir.pm"); &vars; print $query->header(-type=>'text/html',-charset=>'iso-8859-2'); &get_files; &return_html("Dodaj strone do: $path"); #&debug; &start_table; &give_last_added; &searcher; &close_menu; if ($cmd eq "") { &ask; } elsif ($cmd eq "dig") { &dig; } elsif ($cmd eq "ask") { &ask; } elsif ($cmd eq "add") { &add; } elsif ($cmd eq "read") { &read; } &close_all; exit; sub add { open(NBASE,">>$path_dir/Nowe/newdata.txt") || die "Software error: $!"; print NBASE "$time|$link|$name|$desc|$lang|$path|$show|$mail\n"; close(NBASE); &humantime; print< Witryna:

$name

$lang, $my_czas

Została zapisana jako propozycja do działu:
$path EOF if ($show) { print "oraz do Nowości"; } print "

Zobacz Nowości katalogu oraz Zgłoszenia do bazy"; print "

Dziękuje za zgłoszenie strony!
Zielona Brama | Katalog

\n" } else { print ""; } print "\n"; } print "

Dodajesz do katalogu...
$name
$desc $link $lang, $my_czas
EOF if ($lang =~ /^$/) { print "język strony:

dodaj w:	\n"; if ($show) { print "
	oraz w do Nowości
	\n

"; } sub vars { $cmd = &clean($query->param('cmd')); $link = &clean($query->param('link')); $name = &clean($query->param('name')); $desc = &clean($query->param('desc')); $lang = &clean($query->param('lang')); $path = &clean($query->param('path')); $time = &clean($query->param('time')); $show = &clean($query->param('show')); $mail = &clean($query->param('mail')); if ($path =~ /\.\./) { print "Content-type: text/html; charset=ISO-8859-2\n\n"; print ""; print "Czy, aby nie próbujesz czegoś niedozwolonego?"; exit; } if ($link =~ /^(www.\.)?[a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,3}(\/.+\.?.{2,4})?/i) { $link = "http://$link" } elsif ($link =~ /^ftp\.[a-zA-Z0-9\.\-]+\.[a-zA-Z]{2,3}(\/.+\.?.{2,4})?/i) { $link = "ftp://$link" } elsif ($link =~ /^.*\@.+\..{2,3}$/) { unless ($link =~ /^mailto:/) { $link = "mailto:$link"} } if (!$time) { $time = time(); } } sub clean { $var = $_[0]; $var =~ s/<[^><]*>//g; $var =~ s/\r*\n+//g; return $var; } 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; } sub debug { @keys = $query->param; print "KEYS: "; foreach (@keys) { print "$_: ".$query->param($_)." | "; } print "

"; } sub ask { print<

Dodaj stronę do katalogu... Wymagane
adres strony:
nazwa strony:
krótki opis:
język: w którym strona jest tworzona	Opcjonalne

czy pokazać w Nowościach?	tak nie
adres e-mail: Podaj swój lub webmastera strony, jeśli chcesz być powiadomiony/a lub powiadomić jego, gdzie strona zostanie dopisana do katalogu

EOF } sub dig { print<

Kategoria...

$path

EOF if ($path) { $mypath = "$path/"; } opendir(DIR, "$path_dir/$mypath") || die "$!"; while ($nest = readdir(DIR)) { push(@nested,$nest) if -d "$path_dir$path/$nest" && $nest !~ /^$/ && $nest !~ /\./ && $nest ne "Nowe" && $nest ne "admin"; @nested = sort @nested; } closedir(DIR); if (@nested) { if ($path eq "") { print "

\n"; } foreach (@nested) { print "

"; } else { print "

Dodaj wpis do tej kategorii."; } }

$name

Dodajesz do katalogu...

Dodaj stronę do katalogu...

Kategoria...

$path