From fa0d959c2a08a53dad6ee8891594356dfe0c2fb2 Mon Sep 17 00:00:00 2001 From: pate Date: Thu, 10 Apr 2003 10:56:42 +0000 Subject: [PATCH] first cut at perl script to create the about page. --- about.pl | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100755 about.pl diff --git a/about.pl b/about.pl new file mode 100755 index 0000000000..5c58428c7d --- /dev/null +++ b/about.pl @@ -0,0 +1,35 @@ +#!/usr/bin/perl +use HTML::Template; +use strict; +require Exporter; +use C4::Database; +use C4::Output; # contains gettemplate +use C4::Interface::CGI::Output; +use C4::Auth; +use C4::Context; +use CGI; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "intranet-main.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + }); + +my $kohaVersion = C4::Context->config("kohaversion"); +my $osVersion = `/bin/uname -a`; +my $perlVersion = `/usr/bin/perl -v`; +my $mysqlVersion = "unknown"; +my $apacheVersion = "unknown"; + +$template>param( + osVersion => $osVersion, + perlVersion => $perlVersion, + mysqlVersion => $mysqlVersion, + apacheVersion => $apacheVersion, + ); + +output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5