From 068afffd33fd79fdf40817e45242e37f3f6a0ef0 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 11 Jul 2002 21:17:31 +0000
Subject: [PATCH] Adding some missing opac scripts

---
 buildrelease           |  3 +++
 opac/catalogue-home.pl | 38 ++++++++++++++++++++++++++++++++++++
 opac/mainpage.pl       | 38 ++++++++++++++++++++++++++++++++++++
 opac/userpage.pl       | 44 ++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 123 insertions(+)
 create mode 100755 opac/catalogue-home.pl
 create mode 100755 opac/mainpage.pl
 create mode 100755 opac/userpage.pl

diff --git a/buildrelease b/buildrelease
index 2ea5740144..9468eb0ce4 100644
--- a/buildrelease
+++ b/buildrelease
@@ -235,6 +235,9 @@ system("cp $rootdir/intranet-cgi/detail.pl $rootdir/opac-cgi");
 system("cp $rootdir/intranet-cgi/moredetail.pl $rootdir/opac-cgi");
 system("cp $rootdir/intranet-cgi/search.pl $rootdir/opac-cgi");
 system("cp $rootdir/intranet-cgi/subjectsearch.pl $rootdir/opac-cgi");
+system("cp $rootdir/intranet-cgi/logout.pl $rootdir/opac-cgi");
+system("mv $rootdir/intranet-cgi/opac/* $rootdir/opac-cgi");
+system("rmdir $rootdir/intranet-cgi/opac");
 
 
 # Move files from intranet-cgi to /scripts/ directory
diff --git a/opac/catalogue-home.pl b/opac/catalogue-home.pl
new file mode 100755
index 0000000000..986cecbb94
--- /dev/null
+++ b/opac/catalogue-home.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use HTML::Template;
+use strict;
+require Exporter;
+use C4::Database;
+use C4::Output;  # contains picktemplate
+use CGI;
+use C4::Auth;
+
+my $query=new CGI;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
+
+my %configfile;
+open (KC, "/etc/koha.conf");
+while (<KC>) {
+ chomp;
+ (next) if (/^\s*#/);
+ if (/(.*)\s*=\s*(.*)/) {
+   my $variable=$1;
+   my $value=$2;
+   # Clean up white space at beginning and end
+   $variable=~s/^\s*//g;
+   $variable=~s/\s*$//g;
+   $value=~s/^\s*//g;
+   $value=~s/\s*$//g;
+   $configfile{$variable}=$value;
+ }
+}
+
+my $includes=$configfile{'includes'};
+($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
+my $templatebase="catalogue/opac-search.tmpl";
+my $theme=picktemplate($includes, $templatebase);
+
+my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
+
+$template->param(loggedinuser => $loggedinuser);
+print "Content-Type: text/html\n\n", $template->output;
diff --git a/opac/mainpage.pl b/opac/mainpage.pl
new file mode 100755
index 0000000000..2c3a030b4e
--- /dev/null
+++ b/opac/mainpage.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+use HTML::Template;
+use strict;
+require Exporter;
+use C4::Database;
+use C4::Output;  # contains picktemplate
+use CGI;
+use C4::Auth;
+
+my $query=new CGI;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 1);
+
+my %configfile;
+open (KC, "/etc/koha.conf");
+while (<KC>) {
+ chomp;
+ (next) if (/^\s*#/);
+ if (/(.*)\s*=\s*(.*)/) {
+   my $variable=$1;
+   my $value=$2;
+   # Clean up white space at beginning and end
+   $variable=~s/^\s*//g;
+   $variable=~s/\s*$//g;
+   $value=~s/^\s*//g;
+   $value=~s/\s*$//g;
+   $configfile{$variable}=$value;
+ }
+}
+
+my $includes=$configfile{'includes'};
+($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
+my $templatebase="catalogue/opac-main.tmpl";
+my $theme=picktemplate($includes, $templatebase);
+
+my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
+
+$template->param(loggedinuser => $loggedinuser);
+print "Content-Type: text/html\n\n", $template->output;
diff --git a/opac/userpage.pl b/opac/userpage.pl
new file mode 100755
index 0000000000..9ecc679025
--- /dev/null
+++ b/opac/userpage.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+use HTML::Template;
+use strict;
+require Exporter;
+use C4::Database;
+use C4::Output;  # contains picktemplate
+use CGI;
+use C4::Search;
+use C4::Auth;
+ 
+my $query=new CGI;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
+
+
+
+my %configfile;
+open (KC, "/etc/koha.conf");
+while (<KC>) {
+ chomp;
+ (next) if (/^\s*#/);
+ if (/(.*)\s*=\s*(.*)/) {
+   my $variable=$1;
+   my $value=$2;
+   # Clean up white space at beginning and end
+   $variable=~s/^\s*//g;
+   $variable=~s/\s*$//g;
+   $value=~s/^\s*//g;
+   $value=~s/\s*$//g;
+   $configfile{$variable}=$value;
+ }
+}
+
+
+
+my $includes=$configfile{'includes'};
+($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
+my $templatebase="user/userpage.tmpl";
+my $theme=picktemplate($includes, $templatebase);
+
+my $template = HTML::Template->new(filename => "$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => [$includes]);
+
+$template->param(loggedinuser => $loggedinuser);
+
+print $query->header(-cookie => $cookie), $template->output;
-- 
2.39.5