#!/bin/perl
#
# slump.pl -- generates quasi-statements.
#
#use warnings;
# use strict;
# Assign arrays
@verbs = (
"FÖDER","SKAPAR","FÖRHINDRAR","BEKRÄFTAR","FÖRMEDLAR","BEFRÄMJAR",
"MOTVERKAR"," FÖRSTÄRKER","SÖKER","FÄRGAR","LJUGER OM","UTFORMAR","PÅVERKAR",
"PRYDER"," GENOMSYRAR"," FÖRSTÖR","UTFORSKAR","STYMPAR","FÖRVRÄNGER",
"ÄR BÄTTRE ÄN","NEDVÄRDERAR","AUTENTISERAR","OMSLINGRAR","DÖLJER",
"FÖRSKÖNAR","LIKNAR","ÄR","SMURFAR","SYNLIGGÖR","KANONISERAR","FRAMHÄVER",
"ÖVERSKUGGAR","BESKRIVER","DÖDAR","OMFAMNAR","TILLINTETGÖR","STÖDJER",
"OMÖJLIGGÖR","FÖRHÄRLIGAR","BOR I","LIGGER I","IDEALISERAR","ÖVERTRÄFFAR","ÄR VIKTIGARE ÄN",);
@subs = (
"HATET","KÄRLEKEN","KAOSET","ORDNINGEN","SAMHÄLLET","SJÄLEN","INFORMATIONEN",
"LYCKAN","OSÄKERHETEN","TRYGGHETEN","SANNINGEN","LÖGNEN","KONSTEN","LIVET",
"DÖDEN"," NATUREN","GODHETEN","ONDSKAN","FULHETEN","ARKITEKTUREN","KUNSKAPEN",
"FRIHETEN"," KRIGET","FREDEN","SLAVERIET","RUMSLIGHETEN","TIDEN",
"INNOVATIONERNA","FANTASIN"," PLATTITYDERNA","RÖRELSEN","SKÖNHETEN",
"FRAMTIDEN","DET FÖRGÅNGNA","KONSTRUKTIONEN",
"DET UNDERMEDVETNA","ENKELHETEN","MEDIA","DET KOMPLEXA",
"MATERIALISMEN","YTAN","SPUNKEN","MAKTEN","ILLUSIONEN","OKUNSKAPEN",
"VERKLIGHETEN",);
# Do randoms.
$SRND1 = int(rand @subs);
$VRND = int(rand @verbs);
$SRND2 = int(rand @subs);
# HTML header
print <<HSLUT;
Content-type: text/html; charset=iso-8859-1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html><head><title>FLTG</title></head>
<body bgcolor="#000000" text="#ffffee" link="#ffffee" vlink="#ffffee">
<p align=center><font size="+6"><a href="/cgi-bin/slump.pl">
<br><br><br><br><br><br>
HSLUT
print "@subs[$SRND1] ";
print "@verbs[$VRND] ";
print "@subs[$SRND2] ";
print <<EOBODY;
</a><br><br><br><br><br><br></font></p>
<hr>
<p align=right>
<em>Copyright<a href="mailto:qaryn@besserwisser.org"> Qaryn Hallberg</a> 2001</em></p>
</body></html>
EOBODY
#
# EOF.
#
Tillbaka till info-sidan
Kör scriptet