From 03dd02f0267fc722dbda5c7c0bbdb0365b4cb8d4 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Wed, 18 Sep 2002 06:28:58 +0000
Subject: [PATCH] cleaning out old files.

---
 opac/catalogue-home.pl | 38 --------------------------------------
 opac/mainpage.pl       | 38 --------------------------------------
 2 files changed, 76 deletions(-)
 delete mode 100755 opac/catalogue-home.pl
 delete mode 100755 opac/mainpage.pl

diff --git a/opac/catalogue-home.pl b/opac/catalogue-home.pl
deleted file mode 100755
index 986cecbb94..0000000000
--- a/opac/catalogue-home.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/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
deleted file mode 100755
index 2c3a030b4e..0000000000
--- a/opac/mainpage.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/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;
-- 
2.39.5