Click here to generate a new description.

Aktivix is a non-hierarchical network of friendly techies who desire to facilitate community-groups to disturb the powers that be in a completely collaborative manner.

This description is created randomly every time this page is re-loaded. It's random, but so are we, which makes this the perfect description of who and what we are at any given time.

If you want to know, the page has been dynamically generated using aktivix_what.pl, a cgi script written at Aktivix II and made available under the GPL.

back to wiki.aktivix.org



This is the code used to generate the page:

#!/usr/bin/perl -w # aktivix_what.pl: generate random aktivix mission-statement. # # Copyright (C) 2004 Charlie Harvey and Josh Robinson, partly # inspired by Jeff Ballard's bofhserver.pl # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # each of the filenames (those in quotes inside parentheses) refers # to a plaintext file within http://www.srcf.ucam.org/~jmr59/aktivix/ , # each one providing a word-array from which the variable words are # selected each time the page is loaded. srand(time); $adj1=getstuff("adj1"); $noun1=getstuff("groups"); $adj2=getstuff("adj2"); $noun2=getstuff("people"); $verb1=getstuff("hope_verbs"); $verb2=getstuff("enable_verbs"); $noun3=getstuff("other_people"); $verb3=getstuff("do_verbs"); $adv=getstuff("adverbs"); $adj3=getstuff("adj3"); open(SOURCE,"aktivix_what.pl") || die "No source code, dying!"; @source=<SOURCE>; close(SOURCE); print "Content-type: text/html\n"; print "\n"; print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'; print '<html><head><title> Who/what is aktivix ? </title></head>'; print "<body><center><font size = \"+2\">"; print " <a href=\"http://www.srcf.ucam.org/~jmr59/aktivix/aktivix_what.pl\">Click here to generate a new description.</a></font>"; # Then the following line takes one variable from each word-array, # pasting them each into the framework provided to get the text at # the top of the page. print "<p><font size = \"+2\">Aktivix is a $adj1 $noun1 of $adj2 $noun2 who $verb1 to $verb2 $noun3 to $verb3 in a$adv $adj3 manner.</font></p>"; print "<p>This description is created randomly every time this page is re-loaded. It's random, but so are we, which makes this the perfect description of who and what we are at any given time.</p>"; print "<p>If you want to know, the page has been dynamically generated using <a href=\"#source\">aktivix_what.pl</a>, a cgi script written at <a href=\"http://wiki.aktivix.org/Aktivix:Aktivix_II\">Aktivix II</a> and made available under the <a href=\"http://www.gnu.org/copyleft/gpl.html\">GPL</a>.</p>"; print "<p><a href=\"http://wiki.aktivix.org\">back to wiki.aktivix.org</a></p></center>"; print "<br /><br />"; print "<p><a id=\"source\" />This is the code used to generate the page:</p>"; print "<div style= \"font-family: courier, mono; text-align: left; white-space: pre;\">"; $gt = chr(38) . "gt"; $lt = chr(38) . "lt"; foreach (@source){ s/</$lt;/g; s/>/$gt;/g; print $_; } print "</div>"; print "<p><a href=\"http://validator.w3.org/check?uri=referer\"><img src=\"http://www.w3.org/Icons/valid-xhtml10\" alt=\"Valid XHTML 1.0!\" height=\"31\" width=\"88\" /></a></p>"; $close_html="/html"; print "</body><$close_html>\n"; exit(0); sub getstuff(){ $filename=shift; open(F, "$filename") || return "Couldn't load $filename"; $number=0; @word_array=<F>; close (F); $number = $#word_array-1; $to_return = $word_array[ (rand(1000)*$$)%($number+1) ] ; chomp($to_return); return $to_return; }

Valid XHTML 1.0!