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

[REBOL] Antwort: Antwort: Re: CGI HTML Editor-THE forgotten Script

From: sharriff:aina:med-iq at: 15-Nov-2000 8:00

#!C:/rebol/rebol.exe -csi REBOL[] print "Content-Type: text/html^/" captured: make object! decode-cgi system/options/cgi/query-string presentdate: now/date author: "Author: " append author captured/author append author ", " text: captured/text title: captured/title newblock: make block! 0 top: {<?xml version="1.0"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""> <html xmlns=""> <head> <META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT"></meta> <title>Intranet Home</title> <style type="text/css"> h2.c2 { font-family: Verdana; font-size: 16pt} h3.c1 {font-family: Verdana} h4 {font-family: Verdana} p {font-family: Verdana; font-size: 10pt} td {font-family: Verdana; font-size: 10pt} body {background-color: #FFFFCC} </style> </head> <body> <h2 class="c2">} ;Test Content title bit: {</h2> <h3>} ;Author: Sharriff Aina, 15th of Nov 2000 top2: {</h3><h4>} ;text bottom: {</h4><p> </p><p> intranet article writer ( test ),Copyrightę med-iq AG, 2000 </p> </body> </html>} repend newblock top repend newblock title repend newblock bit repend newblock author append newblock presentdate repend newblock top2 repend newblock text repend newblock bottom write %../medintouch/intranet/intcontent.html newblock print { <?xml version="1.0"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""> <html xmlns=""> <head> <title>Add new Intranet page</title> <style type="text/css"> p.c1 {font-family: Verdana,Tahoma,Arial,Helvetica; font-size: 80%} </style> </head> <body bgcolor="#666666"> <form action="" enctype="text" method="get" name="newcontact"> <table border="1" cellpadding="1" cellspacing="0" id="Table1" width="75"> <tbody> <tr> <td bgcolor="gray">&nbsp;</td> </tr> <tr> <td bgcolor="#666666">&nbsp;<input type="submit" name="submitButtonName" value="Preview?" /></td> </tr> </tbody> </table> </form> </body> </html> } _____________________________________ Heres the script. All its supposed to do is to capture an article (text) from a user and display it in a frame. But the text alwys displays with wrapping off!!?? Sorry to bother you guys with this, I know its something trivial I┤ve overlooked. Sharriff Aina information & quality in healthcare AG