From 1dc227e415abc6e644c602f606afd951751d3a4f Mon Sep 17 00:00:00 2001 From: wolfpac444 Date: Thu, 8 May 2003 12:54:39 +0000 Subject: [PATCH] Removed. --- userpage.pl | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100755 userpage.pl diff --git a/userpage.pl b/userpage.pl deleted file mode 100755 index b0da7ee94e..0000000000 --- a/userpage.pl +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -# NOTE: This file uses standard 8-character tabs - -# Copyright 2000-2002 Katipo Communications -# -# This file is part of Koha. -# -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. -# -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use HTML::Template; -use strict; -require Exporter; -use C4::Context; -use C4::Output; -use CGI; -use C4::Search; -use C4::Auth; -use C4::Interface::CGI::Output; - -my $query = new CGI; -my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "user/userpage.tmpl", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {parameters => 1}, - debug => 1, - }); - -warn "userloggedin : $loggedinuser (".$query->param('userid')." et ".$query->param('password'); - -output_html_with_http_headers $query, $cookie, $template->output; - -# Local Variables: -# tab-width: 8 -# End: -- 2.39.2