[Koha-cvs] koha .htaccess Makefile.PL about.pl currency.pl... [rel_TG]
Tumer Garip
tgarip at neu.edu.tr
Fri Mar 9 22:20:34 CET 2007
CVSROOT: /sources/koha
Module name: koha
Branch: rel_TG
Changes by: Tumer Garip <tgarip1957> 07/03/09 21:20:34
Removed files:
. : .htaccess Makefile.PL about.pl currency.pl
help.pl koha.conf.in koha.t logout.pl
mainpage.pl plugin_launcher.pl search-test.pl
Log message:
cleaning for fresh commit
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/.htaccess?cvsroot=koha&only_with_tag=rel_TG&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/Makefile.PL?cvsroot=koha&only_with_tag=rel_TG&r1=1.8&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/about.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.8&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/currency.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.9&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/help.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/koha.conf.in?cvsroot=koha&only_with_tag=rel_TG&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/koha.t?cvsroot=koha&only_with_tag=rel_TG&r1=1.1&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/logout.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.6&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/mainpage.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.12&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/plugin_launcher.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.4&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/search-test.pl?cvsroot=koha&only_with_tag=rel_TG&r1=1.1&r2=0
Patches:
Index: .htaccess
===================================================================
RCS file: .htaccess
diff -N .htaccess
--- .htaccess 30 Jul 2004 14:04:20 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,9 +0,0 @@
-# .htaccess
-
-ErrorDocument 400 /cgi-bin/koha/koha-tmpl/errors/400.pl
-ErrorDocument 401 /cgi-bin/koha/koha-tmpl/errors/401.pl
-ErrorDocument 403 /cgi-bin/koha/koha-tmpl/errors/403.pl
-ErrorDocument 404 /cgi-bin/koha/koha-tmpl/errors/404.pl
-ErrorDocument 500 /cgi-bin/koha/koha-tmpl/errors/500.pl
-
-
Index: Makefile.PL
===================================================================
RCS file: Makefile.PL
diff -N Makefile.PL
--- Makefile.PL 12 Sep 2006 21:51:06 -0000 1.8
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,93 +0,0 @@
-# Copyright 2005 MJ Ray and koha development team
-#
-# 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
-#
-# Current maintainer MJR slef at users.sourceforge.net
-# See http://www.koha.org/wiki/?page=KohaInstaller
-
-use ExtUtils::MakeMaker;
-
-die "perl 5.6.1 or later required" unless ($] >= 5.006001);
-
-WriteMakefile(
- NAME => 'Koha',
- DISTNAME => 'koha',
- VERSION => '3.2.0',
- NO_META => 1,
- PREREQ_PM => {
- 'DBI' => 1,
- 'Date::Manip' => 1,
- 'DBD::MySQL' => 1,
- 'HTML::Template::Pro' => 1,
- 'Digest::MD5' => 1,
- 'MARC::Record' => 2.0,
- 'MARC::Charset' => 0.95,
- 'MARC::File::XML' => 0.83,
- 'Mail::Sendmail' => 1,
- 'PDF::API2' => 1,
- 'Net::LDAP' => 1,
- XML::Simple=>1,
- 'XML::LibXML' => 1.58
- },
- CONFIGURE => sub {
- # Figure out options here?
- return { macro => { 'export TEST' => '755' } }
- },
- PMLIBDIRS => [ '.' ],
- PL_FILES => { # generator => target
- 'opac/getfromintranet.PL' => ['$(INST_LIBDIR)/opac/cgi-bin/detail.pl','$(INST_LIBDIR)/opac/cgi-bin/moredetail.pl','$(INST_LIBDIR)/opac/cgi-bin/search.pl','$(INST_LIBDIR)/opac/cgi-bin/subjectsearch.pl','$(INST_LIBDIR)/opac/cgi-bin/logout.pl'],
- 'misc/koha.conf.PL' => '$(INST_LIBDIR)/../etc/koha.conf',
- 'misc/apache-koha.conf.PL' => '$(INST_LIBDIR)/../etc/apache-koha.conf',
- 'misc/koha.sql.PL' => '$(INST_LIBDIR)/intranet/scripts/koha.sql',
- 'z3950/z3950-daemon-options.PL' => '$(INST_LIBDIR)/intranet/scripts/z3950daemon/z3950-daemon-options',
- # fake target to check permissions
- 'misc/chmod.PL' => '$(INST_LIBDIR)/fake-target'
- }
- # need to set ownerships
- # need to load koha.sql
- # need to link koha-httpd.conf
- # need to start z3950-daemon
-);
-
-sub MY::libscan {
- my ($self,$path) = @_;
-
- # set up the recursion
- if (-d $path) { 1; }
- elsif ($path !~ /\//) { $path = ''; }
- # from here
- # reimplementation of buildrelease and Install::installfiles
- # ban some shell specials too
- elsif ($path =~ /(\/CVS\/|\.(bak|orig|PL)$|\/,|\/t\/|[^\$]\(| )/) { $path = ''; }
- elsif (
- $path =~ s:\)/misc:\)/intranet/scripts: ||
- $path =~ s:\)/updater:\)/intranet/scripts/updater: ||
- $path =~ s:\)/z3950/(processz3950queue|.*sh):\)/intranet/scripts/z3950daemon/\1: ||
- $path =~ s:\)/z3950:\)/intranet/cgi-bin/z3950: ||
- $path =~ s:\)/koha-tmpl/intranet-tmpl:\)/intranet/htdocs/intranet-tmpl: ||
- $path =~ s:\)/koha-tmpl/intranet.html:\)/intranet/htdocs/index.html: ||
- $path =~ s:\)/koha-tmpl/opac-tmpl:\)/opac/htdocs/opac-tmpl: ||
- $path =~ s:\)/koha-tmpl/opac.html:\)/opac/htdocs/index.html: ||
- $path =~ s:\)/opac:\)/opac/cgi-bin:
- ) { 1; }
- elsif ($path !~ /\.p[lm]$/) { $path = ''; }
- elsif ($path !~ /\)\/C4/) { $path =~ s!/!/intranet/cgi-bin/!; }
-
- #print STDERR $path."\n";
-
- return($path);
-
- }
Index: about.pl
===================================================================
RCS file: about.pl
diff -N about.pl
--- about.pl 21 Apr 2006 14:32:09 -0000 1.8
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,79 +0,0 @@
-#!/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;
-use LWP::Simple;
-use XML::Simple;
-
-my $query = new CGI;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "about.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {parameters => 1},
- debug => 1,
- });
-
-my $kohaVersion = C4::Context->config("kohaversion");
-my $osVersion = `uname -a`;
-my $perlVersion = $];
-my $mysqlVersion = `mysql -V`;
-my $apacheVersion = `httpd -v`;
-$apacheVersion = `httpd2 -v` unless $apacheVersion;
-my $zebraVersion = `zebraidx -V`;
-# $apacheVersion = (`/usr/sbin/apache2 -V`)[0];
-
-$template->param(
- kohaVersion => $kohaVersion,
- osVersion => $osVersion,
- perlVersion => $perlVersion,
- mysqlVersion => $mysqlVersion,
- apacheVersion => $apacheVersion,
- zebraVersion => $zebraVersion,
- );
-
-my @component_names =
- qw/MARC::File::XML MARC::Charset Class::Accessor
- LWP::Simple XML::Simple Net::Z3950
- Event Net::LDAP PDF::API2
- Mail::Sendmail MARC::Record Digest::MD5
- HTML::Template DBD::mysql Date::Manip
- DBI Smart::Comments Net::Z3950::ZOOM
- Date::Calc
- /;
-
-my @components = ();
-
-foreach my $component (sort @component_names) {
- my $version;
- if (eval "require $component") {
- $version = $component->VERSION;
- if ($version eq '' ) {
- $version = 'unknown';
- }
- }
- else {
- $version = 'module is missing';
- }
-
- push (
- @components,
- {
- name => $component,
- version => $version,
- }
- );
-}
-
-$template->param(
- components => \@components
-);
-
-output_html_with_http_headers $query, $cookie, $template->output;
Index: currency.pl
===================================================================
RCS file: currency.pl
diff -N currency.pl
--- currency.pl 27 Jul 2006 14:02:47 -0000 1.9
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: currency.pl,v 1.9 2006/07/27 14:02:47 toins Exp $
-
-#written by chris at katipo.co.nz
-#9/10/2000
-#script to display and update currency rates
-
-
-# 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 CGI;
-use C4::Acquisition;
-use C4::Biblio;
-use C4::Bookfund;
-
-my $input=new CGI;
-
-my @params=$input->param;
-foreach my $param (@params){
- if ($param ne 'type' && $param !~ /submit/){
- my $data=$input->param($param);
- warn "$data / $param";
- ModCurrencies($param,$data);
-}
-}
-print $input->redirect('/cgi-bin/koha/acqui/acqui-home.pl');
Index: help.pl
===================================================================
RCS file: help.pl
diff -N help.pl
--- help.pl 7 Jun 2006 02:02:00 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,69 +0,0 @@
-#!/usr/bin/perl
-
-# Copyright 2006 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::Output; # contains gettemplate
-use C4::Interface::CGI::Output;
-# use C4::Auth;
-use C4::Context;
-use CGI;
-
-my $query = new CGI;
-
-# find the script that called the online help using the CGI referer()
-
-my $refer = $query->referer();
-# workaround for popup not functioning correctly in IE
-my $referurl = $query->param('url');
-if($referurl){
- $refer = $query->param('url');
-}
-
-$refer =~ /.*koha\/(.*)\.pl.*/;
-my $from = "help/$1.tmpl";
-
-my $template = gethelptemplate($from,"intranet");
-# my $template
-output_html_with_http_headers $query, "", $template->output;
-
-
-sub gethelptemplate {
- my ($tmplbase) = @_;
-
- my $htdocs;
- $htdocs = C4::Context->config('intrahtdocs');
- my ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
- unless (-e "$htdocs/$theme/$lang/$tmplbase") {
- $tmplbase="help/nohelp.tmpl";
- ($theme, $lang) = themelanguage($htdocs, $tmplbase, "intranet");
- }
- my $template = HTML::Template->new(filename => "$htdocs/$theme/$lang/$tmplbase",
- die_on_bad_params => 0,
- global_vars => 1,
- path => ["$htdocs/$theme/$lang/includes"]);
-
- # XXX temporary patch for Bug 182 for themelang
- $template->param(themelang => '/intranet-tmpl' . "/$theme/$lang",
- interface => '/intranet-tmpl',
- theme => $theme,
- lang => $lang);
- return $template;
-}
Index: koha.conf.in
===================================================================
RCS file: koha.conf.in
diff -N koha.conf.in
--- koha.conf.in 30 Oct 2002 14:06:54 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,16 +0,0 @@
-# koha.conf
-# This is the Koha configuration file.
-
-# $Id: koha.conf.in,v 1.1 2002/10/30 14:06:54 arensb Exp $
-
-# Database access
-database = @db_name@
-hostname = @db_host@
-user = @db_user@
-pass = @db_passwd@
-
-# XXX
-#includes =
-#opachtdocs =
-#intrahtdocs =
-#templatedirectory =
Index: koha.t
===================================================================
RCS file: koha.t
diff -N koha.t
--- koha.t 8 Apr 2002 23:44:43 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,14 +0,0 @@
-BEGIN { $| = 1; print "1..2\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use C4::Koha;
-$loaded = 1;
-print "ok 1\n";
-
-$date = "01/01/2002";
-$newdate = &slashifyDate("2002-01-01");
-
-if ($date eq $newdate) {
- print "ok 2\n";
-} else {
- print "not ok 2\n";
-}
Index: logout.pl
===================================================================
RCS file: logout.pl
diff -N logout.pl
--- logout.pl 27 Sep 2006 21:19:22 -0000 1.6
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,75 +0,0 @@
-#!/usr/bin/perl
-
-
-# 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 CGI;
-use C4::Context;
-
-my $query=new CGI;
-
-my $sessionID=$query->cookie('sessionID');
-
-my $sessions;
-open (S, "/tmp/sessions");
-while (my ($sid, $u, $lasttime) = split(/:/, <S>)) {
- chomp $lasttime;
- (next) unless ($sid);
- (next) if ($sid eq $sessionID);
- $sessions->{$sid}->{'userid'}=$u;
- $sessions->{$sid}->{'lasttime'}=$lasttime;
-}
-open (S, ">/tmp/sessions");
-foreach (keys %$sessions) {
- my $userid=$sessions->{$_}->{'userid'};
- my $lasttime=$sessions->{$_}->{'lasttime'};
- print S "$_:$userid:$lasttime\n";
-}
-
-my $dbh = C4::Context->dbh;
-
-# Check that this is the ip that created the session before deleting it
-
-my $sth=$dbh->prepare("select userid,ip from sessions where sessionID=?");
-$sth->execute($sessionID);
-my ($userid, $ip);
-if ($sth->rows) {
- ($userid,$ip) = $sth->fetchrow;
- if ($ip ne $ENV{'REMOTE_ADDR'}) {
- # attempt to logout from a different ip than cookie was created at
- exit;
- }
-}
-
-$sth=$dbh->prepare("delete from sessions where sessionID=?");
-$sth->execute($sessionID);
-open L, ">>/tmp/sessionlog";
-my $time=localtime(time());
-printf L "%20s from %16s logged out at %30s (manual log out).\n", $userid, $ip, $time;
-close L;
-
-my $cookie=$query->cookie(-name => 'sessionID',
- -value => '',
- -expires => '+1y');
-
-# Should redirect to intranet home page after logging out
-
-print $query->redirect("mainpage.pl");
-exit;
-
-
Index: mainpage.pl
===================================================================
RCS file: mainpage.pl
diff -N mainpage.pl
--- mainpage.pl 27 Sep 2006 21:19:22 -0000 1.12
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use C4::Interface::CGI::Output;
-use CGI;
-use C4::Auth;
-use C4::Suggestions;
-use C4::Koha;
-use C4::BookShelves;
-use C4::NewsChannels;
-
-my $query = new CGI;
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "intranet-main.tmpl",
- query => $query,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {catalogue => 1, circulate => 1,
- parameters => 1, borrowers => 1,
- permissions =>1, reserveforothers=>1,
- editcatalogue => 1, updatecharges => 1, },
- debug => 1,
- });
-
-my $lang = "koha";
-my $error=$query->param('error');
-$template->param(error =>$error);
-my ($opac_news_count, $all_opac_news) = &get_opac_news(undef, $lang);
-# if ($opac_news_count > 4) {$template->param(more_opac_news => 1);}
-$template->param(opac_news => $all_opac_news);
-$template->param(opac_news_count => $opac_news_count);
-
-my $marc_p = C4::Context->boolean_preference("marc");
-$template->param(NOTMARC => !$marc_p);
-my $new_suggestions = &CountSuggestion("ASKED");
-$template->param(new_suggestions => $new_suggestions);
-
-
-my $count_pending_request = CountShelfRequest(undef, "PENDING");
-$template->param(count_pending_request => $count_pending_request);
-output_html_with_http_headers $query, $cookie, $template->output();
-
Index: plugin_launcher.pl
===================================================================
RCS file: plugin_launcher.pl
diff -N plugin_launcher.pl
--- plugin_launcher.pl 1 Mar 2005 13:40:47 -0000 1.4
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,40 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: plugin_launcher.pl,v 1.4 2005/03/01 13:40:47 tipaul Exp $
-
-# 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 strict;
-use CGI;
-use C4::Context;
-use HTML::Template;
-use C4::Search;
-use C4::Output;
-
-my $input = new CGI;
-my $plugin_name=$input->param("plugin_name");
-my $plugin_name="value_builder/".$input->param("plugin_name");
-
-# opening plugin. Just check wether we are on a developper computer on a production one
-# (the cgidir differs)
-my $cgidir = C4::Context->intranetdir ."/cgi-bin";
-unless (opendir(DIR, "$cgidir/value_builder")) {
- $cgidir = C4::Context->intranetdir;
-}
-require $cgidir."/".$plugin_name;
-&plugin($input);
Index: search-test.pl
===================================================================
RCS file: search-test.pl
diff -N search-test.pl
--- search-test.pl 16 Feb 2006 20:51:07 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-# simple script to test cql searching
-# written by chris at katipo.co.nz 17/2/06
-
-use C4::Search;
-use C4::Auth;
-use C4::Interface::CGI::Output;
-
-use CGI;
-use Smart::Comments;
-use strict;
-use warnings;
-
-my $input = new CGI;
-
-my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
- {
- template_name => "search-test.tmpl",
- type => "opac",
- query => $input,
- authnotrequired => 1,
- flagsrequired => { borrow => 1 },
- }
-);
-
-my $cql=$input->param('cql');
-if ($cql){
- my %search;
- $search{'cql'} = $cql;
- my $results = search( \%search, 'CQL' , 10);
- $template->param(CQL => 'yes'
- );
- $template->param(results => $results);
-}
-#my $record = get_record($result);
-
-
-
-
-
-output_html_with_http_headers $input, $cookie, $template->output;
More information about the Koha-cvs
mailing list