Forum Klix.ba

Kako napraviti ovako nesto (da iskoci)



Moze li mi neko poslati neki primjer napravljen...([email protected])

odakle da iskoci

#!/usr/bin/perl

use strict;
use CGI;
my $dbh = get_db_handle();
my $SQL = '';

#################
# CGI-Variable #
#################
my $cgi = new CGI;

if (open(HANDLE, $."silljkov_text.txt")) {
my $line = <HANDLE>;
while ($line ne "") {
$line =~ s/\s+//g;
my $value = &proceedHolders($line);
$allHolders{$line} = $value;
$line = <HANDLE>;
}
jump_out($line);
}


sub jumb_out() {
my $content = shift;
if ($user == "shiljak")
iskoci_matere_ti($content);
}


sub iskoci_matere_ti() {
my $html_handler = shift;
my $ime_pendzera = "shiljak";
print STDOUT "Gdje si shiljak majstore\n\n<br>";
}


----------------------
samo napravis html kostur i turis ga u fajl silljkov_text.txt i to je to..

enjoy the melody

iskoci matere ti shiljkov pendzeru