I've got a legacy <a href="http://ttc.org.nz/tuesday.html">html page</a> which calls a cgi (perl) script <!--#include virtual="<a href="http://ttc.org.nz//cgi-bin/tuesday.pl">/cgi-bin/tuesday.pl</a>" -->
<div><br></div><div>As an interim step to replacing this script (with something clever from PmWiki) I've tried to invoke the script from within a recipe on <a href="http://ttc.org.nz/pmwiki/pmwiki.php/TTC/Tuesday">a page</a>.</div>
<div><br></div><div>The recipe is</div><div><div><font face="courier new, monospace" size="1" color="#330033">Markup('ClubNight', 'fulltext', '/\\(:clubnight:\\)/ei',</font></div><div><font face="courier new, monospace" size="1" color="#330033">  "Keep(ClubNight())");</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">function ClubNight() {</font></div><div><font face="courier new, monospace" size="1" color="#330033">  $retval = 'retval is ';  </font></div><div><font face="courier new, monospace" size="1" color="#330033">  $lastline = '';</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  $output = '';</font></div><div><font face="courier new, monospace" size="1" color="#330033">  // Create a stream</font></div><div><font face="courier new, monospace" size="1" color="#330033">$opts = array(</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  'http'=>array(</font></div><div><font face="courier new, monospace" size="1" color="#330033">    'method'=>"GET",</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">    'header'=>"Accept-language: en\r\n" </font></div><div><font face="courier new, monospace" size="1" color="#330033">  )</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">);</font></div><div><font face="courier new, monospace" size="1" color="#330033">  $context = stream_context_create($opts);</font></div><div><font face="courier new, monospace" size="1" color="#330033">// Open the file using the HTTP headers set above</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  $retval .= 'a' . file_get_contents('<a href="http://ttc.org.nz/cgi-bin/tuesday.pl">http://ttc.org.nz/cgi-bin/tuesday.pl</a>', false, $context);</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  $lastline = system ('<a href="http://ttc.org.nz/cgi-bin/tuesday.pl">http://ttc.org.nz/cgi-bin/tuesday.pl</a>', $output);</font></div><div><font face="courier new, monospace" size="1" color="#330033">  $retval .= 'b' . $output;</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  $lastline = exec ('<a href="http://ttc.org.nz/cgi-bin/tuesday.pl">http://ttc.org.nz/cgi-bin/tuesday.pl</a>', $output);</font></div><div><font face="courier new, monospace" size="1" color="#330033">  $retval .= 'c' . $output;</font></div>
<div><font face="courier new, monospace" size="1" color="#330033">  $lastline = exec("./cgi-bin/<a href="http://tuesday.pl">tuesday.pl</a>", $output);</font></div><div><font face="courier new, monospace" size="1" color="#330033">  $retval .= 'd' . $output;</font></div>
<div><font face="courier new, monospace" size="1" color="#330033"><br></font></div><div><font face="courier new, monospace" size="1" color="#330033">  return $retval;</font></div><div><font face="courier new, monospace" size="1" color="#330033">}</font></div>
</div><div><br></div><div>I don't get the result I expect on <a href="http://ttc.org.nz/pmwiki/pmwiki.php/TTC/Tuesday">the page</a>,</div><div>and wonder if anyone can spot anything obvious that I have got wrong.</div>
<div>I'm sure safe mode is on.</div><div><br></div><div>tia</div><div><br></div><div>Simon</div><div><br></div>