Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: ProHosting is... WORKING! cgiemail.r needs to specify server?

From: giovanni::cardona::com at: 16-Dec-2000 18:34

Well, at least we can REBOL for free on this site ;) I started learning REBOL last saturday and I just finished my first CGI Rebol script to use it in my pet site: http://balder.prohosting.com/~mambo966/cgi-bin/cgismpro.cgi I think the code looks better than doing it with Perl anyways ;) Your comments are very welcome! #!rebol -cs REBOL [ Title: "The Sea-Monkey Project" Author: "[Giovanni--Cardona--com]" Date: 16-12-2000 Version 0.1.2 File: %cgismpro.cgi Email: "[seamonkeyuncle--netclubmedia--com]" Rights: "Copyright Giovanni Cardona 2001" Comment: { This program may help new breeders to start a Sea-Monkey family succesfully. It will show a table of procedures during the first month. The user will then have an idea of the decisions to take during the rest of their pet life. Visit the web site for more tips at: http://roads.to/seamonkey } ] print "Content-Type: text/html^/" ;-- Required Page Header ; ;initialize values set 'wait_eggs 24:00:00 set 'wait_first_food_dosis 5 set 'wait_first_plasma_dosis 10 set 'wait_food 4 set 'wait_plasma 14 ; set 'water-purifier now set 'instant-life :water-purifier + :wait_eggs set 'growth-food :instant-life + :wait_first_food_dosis set 'plasma :instant-life + :wait_first_plasma_dosis set 'first-month 31 ; ;Block of messages, maybe be used as an ;external file for multi-language purpose ;Messages set 'msg [ <b><i>Water Purifier</i></b> <b><i>Instant Life</i></b> <b><i>Growth Food</i></b> <b><i>Plasma</i></b> <u>First Dosis</u> Next Dosis <u>three</u> big scoops one big scoop one small scoop <p><font size='+1' face='verdana, arial'>Follow this exact procedure for the first two packets</font></p> <p><font size='+1' face='verdana, arial'>Suggested <i>Growth-Food</i> dosis during the first month</font></p> <p><font size='+1' face='verdana, arial'>Suggested <i>Plasma</i> dosis during the first month</font></p> <br> <b>entire packet</b> {<center><h1><font color='#AA0000'>THE SEA-MONKEY PROJECT:</font></h1><br><h2><font color='#0000AA'>TIME TABLE FOR THE FIRST MONTH</font></h2><br><h3>Print this document</h3></center>} {<p><font size='1' face='verdana, arial'>Please notice that I offer this table as a reference only. That means that only you decide the exact procedures to follow depending on your own experiences, regional particularities like temperatures, water and air quality and the freshness of your formulas, including storage temperatures, etc. By no means does <a href='mailto:[seamonkeyuncle--netclubmedia--com']>The Sea-Monkey Uncle</a> assume any responsability for any mishap that may occur when following the procedures dictated in this table.</font></p>} {<br><center><font size='1' face='verdana, arial'>You have to wait 24 hours after Water Purifier to add Instant Life (next day/same hour)</font></center>} {<p><font size='1' face='verdana, arial'>Please visit us at <a href='http://roads.to/seamonkey'>http://roads.to/seamonkey</a> for more info, tricks & tips, real life video footage, virtual cards, historic view or just participate in our monthly give-a-way!</font></p>} {<p align='center'><font size='2' face='verdana, arial'>For a list of kits on the internet click <b><a href='http://w ww.amazon.com/ exec/obidos/ex ternal-search? tag=theseamonk eypage&keyword=sea+monkeys&mode=toys'>HERE</a></b>.</font></p>} ] ;list of repetitive tags series set 'tgs [ <div align='center'><center><table width='80%'> </table></center></div> <tr><td> </td></tr> </td><td> ] ;Print Block print "<html><head><title>SEA-MONKEY PLANNER</title></head>" print "<body bgcolor='#FFFFFF'>" print "<div align='center'><center><table width='90%' bgcolor='#FFFFAA'>" print tgs/3 print msg/15 print msg/10 ; ;Water Purifier & Instant Life dates print tgs/1 print [tgs/3 msg/1 tgs/5 water-purifier/date water-purifier/time tgs/5 msg/14 tgs/4] print [tgs/3 msg/2 tgs/5 instant-life/date instant-life/time tgs/5 msg/14 tgs/4] print tgs/2 print msg/17 print msg/13 ; ; ;display food dosis during the first month ;count an entire month after the water purifier ; print msg/11 ; print tgs/1 for d growth-food (water-purifier + first-month) wait_food [ prin [tgs/3 d/date] either (d = growth-food) [print [tgs/5 msg/5 msg/9 tgs/4]][print [tgs/5 msg/9 tgs/4]] ] print tgs/2 ; ; ;display plasma dosis during the first month ;count an entire month after the water purifier ; print [msg/12] ; print tgs/1 for p plasma (water-purifier + first-month) wait_plasma [ prin [tgs/3 p/date] either (p = plasma) [print [tgs/5 msg/5 msg/7 tgs/4]][print [tgs/5 msg/8 tgs/4]] ] print tgs/2 ; ;final statements ;disclaimer, etc print msg/13 print "<hr width='90%'>" print msg/13 print msg/16 print msg/18 print msg/19 print msg/13 print [tgs/4 tgs/2 msg/13] print "</body></html>" ; ----- Original Message ----- From: Michal Kracik <[kracik--mbox--dkm--cz]> To: <[rebol-list--rebol--com]> Sent: Saturday, December 16, 2000 2:06 PM Subject: [REBOL] Re: ProHosting is... WORKING! cgiemail.r needs to specify server?