#!/usr/bin/perl -T use CGI; use Fcntl; $query = new CGI; $action = $query->param('action'); unless ($action) { $action = 'none'; } # reads the $action variable to determine which part of the script to execute { &makepoem; } # ### generates a new spam poem sub makepoem { &header; $bgcolor = hexcolor(); print "\n"; &footer; exit 0; } # ### section 4 - statistics: # ### the datawaste statistics subroutine # header prints the generic beginning for HTML documents sub header { print <<"InsertHTML"; Content-type: text/html o-o institutio media <\!--institutio media scheme by ke_an\@o-o.lt --> InsertHTML } # footer prints the generic ending for HTML documents sub footer { print <<"InsertHTML";
MANIFESTO 
        |||||||||
|||||||||        
        |||||||||



__________________________~_(Virtual)_Input/Output________________________
__________________________|_______________________________________________
__________________________|_______________________________________________
_____________________|____|___________________________________________|___
_____________________|____|____I_N_S_T_I_T_U_T_E__B_O_D_Y_____________|___
___|Direct______|____|____|___________________________________________|___
___|social______|----|-|Internet___|---------|Electronic__|Mailing_|__|___
___|action______|____|_|site_______|_________|journal_____|list____|__|___
___|(lectures,__|____|_|___________|_________|____________|________|__|___
___| festivals,_|____|____|______|____________________________________|___
___|_etc.)______|____|____|______|___________|_Data bank______|_______|___
_____________________|____|__________________|________________|_______|___
___|Internet_____|___|____|___________________________________________|___
___|radio & tv___|________|_______________________________________________
___|_____________|________________________________________________________
InsertHTML } # font color randomization subroutine was rewritten to generate a # truely random hex color combination, sub hexcolor { @hex = ("FF", "CC", "99", "66", "33", "00"); $hexcolor = "#"; $count = 3; while ($count > 0) { $hexnum = int( rand(6) ); $temp = $hex[$hexnum]; $hexcolor .= $temp; $count = $count - 1; } return $hexcolor; }