diff options
| author | unknown <andrew@.cern.ch> | 2011-06-21 16:33:26 +0200 |
|---|---|---|
| committer | unknown <andrew@.cern.ch> | 2011-06-21 16:33:26 +0200 |
| commit | fa170afd817648f306e322802ca85b6abbd37f74 (patch) | |
| tree | 44a68e68859429bc5f6bcb164111bcb8df1ee165 /cgi-bin/searchplugin.plx | |
Initial commit
Diffstat (limited to 'cgi-bin/searchplugin.plx')
| -rw-r--r-- | cgi-bin/searchplugin.plx | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/cgi-bin/searchplugin.plx b/cgi-bin/searchplugin.plx new file mode 100644 index 0000000..01ff41f --- /dev/null +++ b/cgi-bin/searchplugin.plx @@ -0,0 +1,25 @@ +# Use me +# +use CGI; +use strict; +use Globals; +use Globals qw($CGIROOT); +use Globals qw($APPNAME); + +my $WEBPAGE; + +# Start the page. +# +open TEMPLATE, "../templates/searchplugin.template" or die; + +while ( <TEMPLATE> ) +{ + $WEBPAGE .= $_; +} + + +$WEBPAGE =~ s/%CGIROOT%/$CGIROOT/g; +$WEBPAGE =~ s/%APPNAME%/$APPNAME/g; + +print $WEBPAGE; +exit; |
