#!/usr/local/bin/perl # this doodad works with another script to create interactive hyperfiction # the other script--mobius.cgi--processes the submit page that this script produces # feel free to use of modify this script # though I can't see why anyone in their right mind would want to # this version is constructed for use with frames # thanks to Joey Slaughter for the original # A few stone oxidize at my feet # I feel their colored nonworries # I abandon my own "content-type: text/html\n\n"; open (SUBMIT, ">/usr/local/home/daniel/public_html/hyperwriting/becoming/submit.html") || print "couldn't open file\n\n"; print SUBMIT "blah\n"; print SUBMIT <

Submit an Episode to the Story

From this form you can submit something to our story. You may compose in html in the form, so add links to outside materials or compose with images if you want. you'll need to include a full URL for any materials you want to incorporate. Don't use any head or body commands, however, as the program will write those itself. The background will be white. You can also link your episode to up to three others in the story using the options at the bottom of the form.
Your Name:

Choose the theme that you want to write about,

Title your document with a precise and meaningful name. NOTE: Do not include any spaces in your title!

Enter your story:

Link to these episodes

Link One:

Love
Episode:
"; #print hate options for link 1 print SUBMIT "

Hate\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print being options for link 1 print SUBMIT "

Beings\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print ghost options for link 1 print SUBMIT "

Ghosts\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; print SUBMIT "

Link Two:"; #print love options for link 2 print SUBMIT "

Love\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print hate options for link 2 print SUBMIT "

Hate\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print being options for link 2 print SUBMIT "

Beings\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print ghost options for link 2 print SUBMIT "

Ghosts\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; print SUBMIT "

Link Three:"; #print love options for link 3 print SUBMIT "

Love\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print hate options for link 3 print SUBMIT "

Hate\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print being options for link 3 print SUBMIT "

Beings\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; #print ghost options for link 3 print SUBMIT "

Ghosts\n"; print SUBMIT "
Episode:
\n"; print SUBMIT ""; print SUBMIT <



FOREVER print "Location: http://www.cwrl.utexas.edu/~daniel/hyperwriting/becoming/submit.html\n\n"; close SUBMIT; sub bail { print "Content-type: text/html\n\n"; print "Processing Error:\n"; print "\n"; print @_; exit(1); } #end of program