New dawn at Perliini eli Perl tutti # 6


Varoitus!!!

	Tämä dokumentti on suojattu edellisten dokumenttien disclaimereilla
	sekä muulla krääsällä. Lisäys edellisiin varoituksiin:
	Koska Perliinin uuden tulemisen takia vanhat disclaimerit eivät
	kata kaikkia uusia villityksiä (paisti sen "en vastaa mistään" rivin osalta)
	on ajankohtaista lisätä muutama rivi tähän disclaimeriin.
	En vastaa tämän dokumentin toimimisesta WAP-kännykässä tai missään
	muussakaan kännykässä. Tiedosto ei sovellu myöskään soitettavaksi
	MP3-soittimessa. Tiedostoa ei saa luettavampaan muotoon UU-koodaamalla sen.
	Olen kuullut valitettavia tapauksia tämän Perl-tutin takia.
	Yhä useammat ihmiset ovat kuolleet tätä lukiessaan. Suurin osa
	kuolemantapauksista on mystisiä tukehtumistapauksia.
	En vastaa näistä millään tavalla. Pienempi osa on itsemurhatapauksia.
	Näille henkilöille tiedoksi: En vastaa itsemurhistanne. 
	Jos harkitsette itsemurhaa, ehdotan jotain muuta lukemista.
	Hyvin pieni ryhmä ihmisiä on kuollut yrittäessään saada toimimaan
	koodinpätkiä. En siis vastaa koodin toimivuudestakaan.
	Osa lukijoista on valittanut näiden tuttien lukemiskustannuksista.
	He väittävät, että kielitutkijan palkaaminen tekstin luettavaan
	muotoon saattamiseksi on erittäin kallista. Valitettavasti.
	Opettele lukemaan suoamen kieltä ja kuulu sisäpiiriin.
	Olen saanut posti nyt lähes jokaisesta maasta.
	(lähinnä kaikista muista maista on tullut palautetta paitsi muista kuin suomesta)
	Näin ollen olen päättänyt etten käännä näitä tutteja eri kielille. Valitettavasti.
	Elämä potkii. Potki takaisin. [sink]
	PS. Disclaimer only as finnish.

End_of_Varoitus!!!


Vieraskirja
-----------

[clip from Perliini tutti #5]
Nyt sää tiedät jo paljon, ja näillä tiedoilla mitä sää tiedät
vois jo tehdä ihan ihan really really vieraskirjan (cgi+fileet+aika).
Elikkäs tää vieraskirja oli alunperin suunnitelmissa, mutta 
ajanpuutten vuoksi jätän sen poies ja kerron lyhyesti.
Elikkäs ohjelma lukee tiedoston sisällön, jossa on aika sekä viesti+lähettäjä.
Ohjelma tulostaa ne HTMLänä. Sitten sinne rintataa sellanen textfield
johon kirjoittaa nimensä ja toinen johon writataan se messu.
Sitten painetaan sitä ok (submit) nappulaa ja ohjelma savettaa
sen fileeseen+muun datan ja taasen rinttaa sen fileen sisällön siihe 
ruudulle. Sitten taas... Tähän vois myös tehdä sellasen jutskan ihan
helposti ettäs niiden viestien määrä ois vaikka 20 ja jos viestejä tulee
yli 20 ne poistetaan (lue monta riviä, laske rivien_määrä-20, jos yli, lue
ylijäänyt osa poies ja writaa ne loput sinne fileeseen).
[eof_clip]

Näin siis Perliini tutti #5. Nyt tulee tuon visitorbuukin sorsa.


---[Vieraskirja.pl]
#!/usr/bin/perl

$KIRJA = "vieraskirja.txt";

use CGI qw(:standard);

my $viesti=param("viesti");
my $nayta=param("nayta");

print header()."\n",start_html("Perliinin vieraskirja")."\n";

if ($nayta) {
	$viesti=$nayta;
}

unless ($viesti) {
	print h1("Perliinin vieraskirja")."\n";
	print p("Ole hyvä ja kirjoita terveisesi Perliinin vieraskirjaan")."\n";

	print start_form()."\n";
	print textarea("viesti","",6,40)."<BR>\n";
	print submit("Tallenna")."  ".reset("Tyhjenna")."\n";
	print "<A HREF=\"vieraskirja.pl?nayta=1\">Näytä vieraskirja</A>";
	print end_form()."\n";


} else {
	print h2("Uljaan vieraskirjan sisältö:")."\n";
	print hr();

	unless (-e $KIRJA) {
		open (FILE, ">$KIRJA") or die;
		close(FILE);
	}
	unless ($nayta) {
	open (FILE, ">>$KIRJA") or die;
	$_=$viesti;
	chomp;
	print FILE "$_<HR>\n";
	close(FILE);
	}

	open (FILE, $KIRJA) or die;
	while (<FILE>) {
		chomp;
		print "$_\n";
	}
	close(FILE);
	
	print start_form()."\n";
	print "<INPUT TYPE=\"BUTTON\" NAME=\"Takaisin\" VALUE=\"Takaisin\" ONCLICK=\"javascript:history.go(-1);\"></BUTTON>";
	print end_form()."\n";
}

print end_html();
---[End_of_Vieraskirja.pl]

Tämä on siis karsittu ja yksinkertainen versio vieraskirjasta. 
Näyttää kaikki tallessa olevat viestit. Kellonaikaa ei kirjata, 
mutta sen saa lisättyä käyttämällä time()-funktiota. Vaatii kuitenkin muotoilua.

Chatti
------

Bonuksena tulee yksinkertainen(??) Chat-skripti:

---[Chat.pl]
#!/usr/bin/perl

use CGI qw(:standard);

my $toiminto=param("toiminto");
my $messu=param("messu");
my $chattinimi=param("chattinimi");

$CHAT="chat.dat";
$CHAT_CREATE=">chat.dat";

unless ($chattinimi) {
	print "<HTML>\n<HEAD>\n";
	print "<TITLE>Chat login</TITLE>\n</HEAD>\n";
	print "<BODY link='#0000FF' vlink='#000080' alink='#FF0000'><FORM>\n";

	print "<h3>Chatti</h3>\n";
	print "Nimesi: <input type='text' name='chattinimi'><p>\n";
	print "<input type='submit' value='Sisään' onClick='Update();'><p>";
	print "<br><br><br><br><br><br><br><br><br><br><br><br><br>";
	print "<br><br><br><br><br><br><br><br><br><br><br><br><br>Tiedot:<br>";
	print "<input type='password' value='$toiminto' name='toiminto' size='1' onChange='this.value=";
	print '"';
	print "$toiminto";
	print '"';
	print ";'><br>\n";
} else {
	unless ($toiminto) {
		print "<HTML>\n<HEAD>\n";
		print "<TITLE>Chat</TITLE>\n";
		print "<FRAMESET rows='*,100' border=0>\n";
		print "<FRAME src='/cgi-bin/chat.pl?toiminto=1&chattinimi=$chattinimi' NAME='a'>\n";
		print "<FRAME src='/cgi-bin/chat.pl?toiminto=2&chattinimi=$chattinimi' NAME='b'>\n";
		print "</FRAMESET>\n";
		print "</HEAD>\n";
	} else {
	if ("1"=~/\b$toiminto\b/) {
		print "<HTML>\n<HEAD>\n";
		print "<TITLE>Page1</TITLE>\n";
		print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"5\"></HEAD>\n";
		print "<BODY link='#0000FF' vlink='#000080' alink='#FF0000'><FORM>\n";
		print "<h2>Chatti</h2>\n";
		open (A,$CHAT);
		print "<textarea rows=20 cols=100>";
		while ($tmp=<A>) {
			print "$tmp";
		}
		print "</textarea><p>\n";
		close (A);
	} else {
		print "<HTML>\n<HEAD>\n";
		print "<TITLE>Page2</TITLE>\n</HEAD>\n";
		print "<BODY link='#0000FF' vlink='#000080' alink='#FF0000'><FORM>\n";
		print "<input type='text' name='messu' size=100><p>";
		if ($messu) {
			@temp=();
			open (A,$CHAT);
			while ($tmp=<A>) {
				push(@temp,$tmp);
			}
			close (A);

			$pit=@temp;
			open (B,$CHAT_CREATE);
			print B "$chattinimi: $messu\n";
			for ($x=1;$x<$pit+1;$x++){
				$tmp=$temp[$x-1];
				chomp($tmp);
				print B "$tmp\n";
			}
			close (B);
		}
		print "<input type='submit' value='Lähetä'><p>";
		print "<br><br><br><br><br><br><br><br><br><br><br><br><br>";
		print "<br><br><br><br><br><br><br><br><br><br><br><br><br>Tiedot:<br>";
		print "<input type='password' value='$toiminto' name='toiminto' size='1' onChange='this.value=";
		print '"';
		print "$toiminto";
		print '"';
		print ";'>\n";
		print "<input type='text' value='$chattinimi' name='chattinimi' size='1' onChange='this.value=";
		print '"';
		print "$chattinimi";
		print '"';
		print ";'><br>\n";
		}
	}

}

print "</FORM></BODY>\n</HTML>\n";
---[End_of_Chat.pl]


Ja kuten tapana on kaikki loppuu aikanaan, mutta älä itke Ritke Vorresteri,
sillä tavaraa tulee lisää. Ja nyt kun kaikki asia on sanottu voi siirtyä
asiattomammalle linjalle. Shou mast kou ooon, kuten entinen laulaja sanoi.
Ja sitten tando-tando tandor-hyppy, norsuhyppy yks-kaks-kol nyt.
Mutta you don't to fool me vaikka kuinka yrität. Minähän jatkan tuttien valmistusta
notta kaikki saisivat imettyä perl-tietoutta. Eh, POP. Jenkki ja germaani: How Hoch.
Queen says: Born to be kings, we're the princes of the universe. Mieti sitä.
Kolme presidenttiä toisiaan alkaa tenttiä, yks on saanut maatuskaa, 
toinen kehuu muuten vaan, kolmas näyttää laastaria otsallaan.
Kolme presidenttiä ryhtyy vetämään venttiä, yks lyö ruplan setelin,
toinen kaivaa dollarin, kolmas päättää visaa vinguttaa. Voi Visa parkaa.
Niin se vaan on. Ei siitä pääse minnekään. Taas tässä lopussa on
enemmän asiaa kuin koko dokumentissa yhteensä. Mutta sitten kun tarkemmin
tarkastelee niin tää on paskaa kokonaa. Valitettavasti. Kukkuu. Kukkuu.
Miks lapset katsoo Nelosta ja pelosta pillittää? Antaa M-E Hytösen selvittää...
Mystisyys senkun lisääntyy loppua kohti. Millainen päivä onkaan Perliinissä?
Herään unesta ja huomaan, elämä on ollut hyvä näin jälkeenpäin. Inshallah.
It's just another red letter day, but one by one, only the good die youg. Innuendo.



Look up to the sky and Perl! (Look up to the sky and see!)

Copy *.rights (c) 3+666+666+666 Joro, just another lamer in Perliini