first cut at perl script to create the about page.
This commit is contained in:
parent
51e0f77c85
commit
fa0d959c2a
1 changed files with 35 additions and 0 deletions
35
about.pl
Executable file
35
about.pl
Executable file
|
@ -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;
|
Loading…
Reference in a new issue