Date:         Wed, 29 Oct 2003 02:30:13 +0100
From: noemata <noemata@KUNST.NO>
Subject: src hangup
To: WRYTING-L@LISTSERV.UTORONTO.CA

           <?
        php                                 if (!$
       st  r)  {                         ?>  <ht
       m   l &g  t                ;  <form>  &
       lt  ;  i   n        put type=submit value=
       se  n  d>  <textarea cols= 90  row
               s=25 name=str>       < ;/
              textarea>  &        lt; /fo
              rm>  &            lt; ?ph
              p  }  $st           r   = s
              tr_repla          ce( \&q
              uot;\\n\        &qu ot;
              , \ &qu       ot;   \
              ",      htm len
             tities(     tri m($
            str)));     $s tr
            = str_r   ep  la
           ce(\&quo t;\\r\&
           quot;, \&q uot
          ; \" ,$s
          tr);  $  st
         r = str_re
         place(\&q
         uot ;\\
         t\& qu
          o   t
;, \&q
uot;
                                \
                                &q
                               uot;
                              ,$str
                              );  $i
                              =0;$j=0
                              ;  whil
                              e ($i&l
                             t;strlen
                           ($str)) {
                        if (!$ascii
             or $j>=strlen($asci
      i    )) {    $ascii = implode
  (\'\', file (\'http://127.0.0.1
:8239/noemata/pre.txt/ascii.php
 \'));    $j=0;   }   if (tr
   im($ascii{$j})) {    $o
        u      t .= $str{$
                   i++};
                       $
                   j++;
                     } e
                lse {
                $out .= $
               ascii{$j++}
                ;   }  }
                 ?>
                    <
pre>
;  &l
       t ; ?php e                      c  ho $o u
       t; ?>                        &  l t;/pr
       e  >            </        f  orm>
            </       ht ml&g        t ;



isbn 82-92428-13-5