#! /usr/bin/perl
#a wrapper around the publication site
#so we can include it as an SSI
use LWP::Simple;
use URI::Escape;
require('cgi-lib.pl');
$ENV{'REQUEST_URI'} =~ /\?/;
$ENV{'QUERY_STRING'} = $';
&ReadParse(\%input);
$base = 'http://neuron.ee.columbia.edu:3000/';
#which page do we load?
$page = 'publications';
if (($input{'action'} =~ /\w/) && ($input{'action'} !~ m![^a-z0-9/]!))
{$page = $input{'action'}}
#grab the page we need
$url = $base . $page;
if ($input{'commit'})
{
#this is a hack - force latexprint[yes]=1 or 0
$latexprint = 0;
@lp = split(/\0/, $input{'latexprint[yes]'});
foreach $lp (@lp)
{
$latexprint = 1 if $lp == 1;
}
$qs = 'commit=Search&query%5Bquery_term%5D=';
$qs .= uri_escape($input{'query[query_term]'});
$qs .= '&latexprint%5Byes%5D=' . $latexprint;
$url .= '?' . $qs;
}
$content = get $url;
if (!defined $content)
{$content = qq!The publication site is temporarily unavailable. Please
return to
Bionet Home.!;}
#Let's massage the content
$content =~ s!^(.|\n)*!!i;
$content =~ s!(.|\n)*$!!i;
$content =~ s!
!!gi;
$content =~ s!!!g;
$content =~ s!<(/?)h1>!<$1h2>!ig;
$content =~ s! !!ig;
$content =~ s!