Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

deleting unused scripts (moved tio misc/ except for database.mysql, which is not used anymore -relpaced by koha.mysql)

3.0.x
tipaul 22 years ago
parent
5184a7497f
commit
d5dfb954e2
17 changed files with 0 additions and 7511 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 1803
      ChangeLog
  2. 61
      HOWTO-testing
  3. 99
      Hints
  4. 156
      INSTALL
  5. 340
      LICENSE
  6. 23
      News
  7. 7
      README
  8. 72
      TODO
  9. 285
      barcodes.pl
  10. 396
      buildrelease
  11. 841
      database.mysql
  12. 251
      install-sh
  13. 362
      installer-lite.pl
  14. 1028
      installer.pl
  15. 788
      koha.mysql
  16. 947
      safe-installer
  17. 52
      testKoha.pl

1803
ChangeLog
View File

File diff suppressed because it is too large

61
HOWTO-testing
View File

@ -1,61 +0,0 @@
Manual Release Testing
The following document outlines some steps to follow to manually test
for bugs in a release candidate.
When reporting bugs, please use <http://bugs.koha.org/>. Please
include information about: What OS, release, and distribution you're
using. Also, which webserver (including version number), which RDMS
(including version number), and the version of Perl you're running.
Do not be too suprised if a developer gets back to you with a request
for more information about your environment.
1) Installing Koha.
You should be able to install Koha using installer.pl. We're
hoping that this method works cleanly with RedHat and Debian Linux
(at least). We'd like to hear problem reports about any OS you're
using though.
2) Setting things up.
Please try to perform the following tasks:
+ Add a couple of branches
+ Edit a branch
+ Add a printer
+ Edit a printer
+ Add some item types (make sure to create at least one
itemtype with charges, and one itemtype with a 0 day loan
length)
+ Edit an item type
3) Cataloguing
Please try to perform the following tasks:
+ Add a book using simple acquisitions
+ Add a book by importing a marc record
+ Add a book by using the Z39.50 client
+ Reserve a book for a borrower (after adding members, of course)
+ Modify a book
4) Members
Please try to perform the following tasks:
+ Add some members (test using the autoMemberNum system
preference as well)
+ Edit some members
5) Circulation
Please try to perform the following tasks:
+ Issue some books to various patrons
+ Return books
+ Check for appropriate charges
+ Check for non-circulating books (ie reference materials)
+ Check for appropriate due dates
+ Reserve a book
+ Attempt to issue a reserved book
+ Issue a book to a patron who has a reserve waiting
If you find any bugs or problems, please report through http://bugs.koha.org/.
Alternatively you can subscribe to the koha-devel mailing list. Information
about doing this can be found at http://www.koha.org/

99
Hints
View File

@ -1,99 +0,0 @@
Example /etc/koha.conf file entries
database=Koha
hostname=localhost
user=Koha
pass=xxxxxx
includes=/usr/local/www/koha/htdocs/includes
Please note the final line (includes=path) - The path entry can be
used as an alternative to manually editing the path in Output.pm file
(see INSTALL manual).
--------------------------------------------------------------------------------
Example apache httpd.conf entries:
Koha makes extensive use of Server Side Includes (SSI):
http://httpd.apache.org/docs/mod/mod_include.html
If your page headers and footers do not show, then you may need to
re-configure your web server.
Here is an example of entries suitable for Apache httpd.conf:
<VirtualHost 111.222.333.1>
ServerName koha.example.com
ServerPath /var/www/library
DocumentRoot /var/www/library/koha/html
Alias /images/ "/var/www/library/koha/html/images/"
ScriptAlias /cgi-bin/koha/ "/var/www/library/koha/cgi-bin/"
SetEnv PERL5LIB "/var/www/library/modules"
ErrorLog /var/log/httpd/koha-error_log
#
# ======== koha uses Server Side Includes =========
# Normally here, use the same path as "DocRoot" above
<Directory "/var/www/library/koha/html">
#
AllowOverride None
#
# First, you MUST enable +Includes or +IncludesNoExec
#
Options +Includes -FollowSymlinks -Indexes
#
# Second, you must also configure one of following:
#
# 1. server-parsed content (SSI) for files ending in ".html"
#
AddHandler server-parsed .html
#
# ...OR... (not "AND" !!!!)...
#
# 2. Allow SSI if executable bit set using "XBitHack"
# XBitHack on|off|full
#
# XBitHack on - any file that has the user-execute bit
# - set will be treated as a server-parsed html doc.
# - The "full" = "on" but, in addition, will test the
# - group-execute bit. If the group execute bit is set
# - then the Last-modified date of the returned file
# - is sent. If group-execute bit is not set, then no
# - last-modified date is sent.
# - Setting this bit allows clients and proxies to
# - cache the result of the request!
#
# For example, enable XBitHack (on) if you want to
# - include non-executable content in documents like:
# <!--#include virtual="/includes/footer.inc" -->
# <!--#include virtual="/cgi-bin/counter.pl" -->
#
# XBitHack on
#
# Remember - do not use XBitHack if using AddHandler!
</Directory>
</VirtualHost>
<VirtualHost 111.222.333.1>
ServerName opac.example.com
ServerPath /var/www/library
DocumentRoot /var/www/library/opac/html
Alias /images/ "/var/www/library/opac/html/images/"
ScriptAlias /cgi-bin/opac/ "/var/www/library/opac/cgi-bin/"
SetEnv PERL5LIB "/var/www/library/modules"
ErrorLog /var/log/httpd/opac-error_log
#
<Directory "/var/www/library/opac/html">
AllowOverride None
Options +Includes -FollowSymLinks -Indexes
AddHandler server-parsed .html
</Directory>
</VirtualHost>
Read your web server docs for more information about how Server Side
Includes work.

156
INSTALL
View File

@ -1,156 +0,0 @@
Koha - Requirements and quick-start installation guide
INSTALL document included with [Koha]
For information on how to install Koha without requiring multiple virtual servers - See KohaAllInOne.
For additional information on how your Configuration files should look see the Hints file.
Important....
To successfully use Koha you need some additional software:
A webserver (It was built to work with Apache, but there is no reason it shouldnt work with any other webserver).
Mysql (You could intead use postgres, or another sql based database)
Perl (mod_perl isnt needed, tho koha should work with mod_perl but this hasnt been tested yet).
Perl Modules:
Date::Manip
DBI
DBD::mysql (or whatever database system you use)
AuthenDBI (if you want to use Database based authentication)
CDK (for the telnet interface not nessecary if you plan to use the web based circulation module) also requires installation of the C CDK libraries http://www.vexus.ca/CDK.html ( CDKModuleHasProblems )
File::Spec (Required for HTML::Template)
HTML::Template
--------------------------------------------------------------------------------
Quick-start Installation Guide
(Assumes the Use of MySQL and Apache)
1. Create a new mysql database called for example Koha
From command line: mysqladmin -uroot -ppassword create Koha
There is a databse installation shell script included with the Koha tarball.
2. Set up a koha user and password in mysql
Log in to mysql: mysql -uroot -ppassword
To create a user called "koha" who has full administrative rights to the "Koha" database when autheicting from "localhost", enter the following on mysql command line:
grant all privileges on Koha.* to koha@localhost identified by 'kohapassword';
Press ENTER, and if you see no errors then enter \q to quit mysql.
3. Use the mysql script to create the tables
mysql -uusername -ppassword Koha < koha.mysql
3.1 Update your database tables
perl updatedatabase -I /pathtoC4
4. Edit koha.conf
This file resides on the web server and tells the Koha scripts
how to access the database, and where scripts and documents are
installed. It is of the form:
# This is a comment
variable = value
foo = bar # This is also a comment
The following variables are currently supported:
database
Name of the Koha database that you created in step 1 above.
user
pass
Name and password of the Koha database user that you creted in
step 2
includes
Directory where you plan to install the include files (*.inc)
in step 6.
The "database", "user", and "pass" settings are required.
5. Install koha.conf
By default, Koha looks for its configuration file in
/etc/koha.conf, though you may override this by setting the
$KOHA_CONF environment variable to the path to a different file.
If you are using Apache 1.1 or later, with virtual hosts, you
can use the SetEnv directive to use a different configuration file
for each virtual host.
Security note: /etc/koha.conf must be readable by the UID
under which the web server is running, and any other users running
Koha-related scripts or programs. It need not be writable.
6. Create directories for scripts and html documents.
Here you need to decide where your scripts and html are going to live.
And edit C4/Output.pm to reflect that.
Set $path= where your includes live,
for example: $path="/usr/local/www/koha/htdocs/includes";
You do not need to do that if you have already entered the includes path in koha.conf (see example above)
Next copy the C4 directory (in scripts/) to somewhere in your perl path
eg /usr/local/lib/site_perl/i386-linux/
If you do not have sufficient access to copy the files to the default perl folder (maybe you are using your ISPs hosting server) then you can copy the modules to any other location and add a line to apache.conf like:
SetEnv PERL5LIB "/usr/local/www/koha/modules"
Copy the C4 directory into the modules folder (see detailed example in KohaHints)
7. Set up your Online Public Access Catalogue (OPAC)
Set up a webspace for the OPAC: For example: You might make /usr/local/www/opac ... and set a virtual host in apache to use that dir
In your opac dir make a dir called htdocs, and copy everything in opac-html/ to it.
Again in your opac dir make a dir called cgi-bin and copy all the files in scripts/ that have a .pl extension to it, eg copy scripts/*.pl /usr/local/www/opac/cgi-bin/koha/
Your virtual host should be set up to use these dirs, some thing like this:
<VirtualHost opac.your.site>
ServerAdmin webmaster@your.site
DocumentRoot /usr/local/www/opac/htdocs
ServerName opac.your.site
ErrorLog logs/opac-error_log
TransferLog logs/opac-access_log
SetEnv KOHA_CONF /usr/local/etc/koha.conf
</VirtualHost>
When finished, restart apache and point your browser at opac.your.site and it should be all go (of course - if you dont have any data in the database there wont be much to see!)
Find supplementary information and config examples in KohaHints
8. Set up the intranet/librarian interface
Create new directories and additional httpd.conf changes to Set up another webspace. Lets call it koha.
For example:
In the dir you have just created make an htdocs dir and a cgi-bin dir
Copy everything in intranet-html/ to the htdocs dir
Copy all the .pl files in scripts/ to the cgi-bin/koha dir
Make sure your virtual host is set up to use these dirs
Restart apache point your browser at koha.your.site and it should work
9. Configure SECURITY for the Librarians/Intranet Interface
If you are using AuthenDBI to do your authentication, you will need to add some users to the users table in the koha database. And edit your apache conf file to use AuthenDBI on the intranet site.
Otherwise, set up htaccess files in both koha/htdocs/ and koha/cgi-bin You can use general .htaccess based security. It is important though to password protect the librarians interface because from it you can delete and add items, remove borrowers fines and generally case havoc.
10. Set up Issues, Returns and Telnet interface.
Since we have already copied the files in scripts/C4 into somewhere in our perl source tree
We just need to now copy the scripts from scripts/telnet/ into somewhere in the executable path, eg /usr/local/bin
Then its done: type circ and your away, ready to issue and return.
In release 1.1.0 on there is now a webbased circulation module, So issues and returns can be done from there, or from circ.
You will find some Koha config examples in KohaHints
Check out KohaMiniFAQ for general, supplementary information.

340
LICENSE
View File

@ -1,340 +0,0 @@
GNU GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1989, 1991 Free Software Foundation, Inc.
59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
License is intended to guarantee your freedom to share and change free
software--to make sure the software is free for all its users. This
General Public License applies to most of the Free Software
Foundation's software and to any other program whose authors commit to
using it. (Some other Free Software Foundation software is covered by
the GNU Library General Public License instead.) You can apply it to
your programs, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if you
distribute copies of the software, or if you modify it.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must give the recipients all the rights that
you have. You must make sure that they, too, receive or can get the
source code. And you must show them these terms so they know their
rights.
We protect your rights with two steps: (1) copyright the software, and
(2) offer you this license which gives you legal permission to copy,
distribute and/or modify the software.
Also, for each author's protection and ours, we want to make certain
that everyone understands that there is no warranty for this free
software. If the software is modified by someone else and passed on, we
want its recipients to know that what they have is not the original, so
that any problems introduced by others will not reflect on the original
authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that redistributors of a free
program will individually obtain patent licenses, in effect making the
program proprietary. To prevent this, we have made it clear that any
patent must be licensed for everyone's free use or not licensed at all.
The precise terms and conditions for copying, distribution and
modification follow.
GNU GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License applies to any program or other work which contains
a notice placed by the copyright holder saying it may be distributed
under the terms of this General Public License. The "Program", below,
refers to any such program or work, and a "work based on the Program"
means either the Program or any derivative work under copyright law:
that is to say, a work containing the Program or a portion of it,
either verbatim or with modifications and/or translated into another
language. (Hereinafter, translation is included without limitation in
the term "modification".) Each licensee is addressed as "you".
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running the Program is not restricted, and the output from the Program
is covered only if its contents constitute a work based on the
Program (independent of having been made by running the Program).
Whether that is true depends on what the Program does.
1. You may copy and distribute verbatim copies of the Program's
source code as you receive it, in any medium, provided that you
conspicuously and appropriately publish on each copy an appropriate
copyright notice and disclaimer of warranty; keep intact all the
notices that refer to this License and to the absence of any warranty;
and give any other recipients of the Program a copy of this License
along with the Program.
You may charge a fee for the physical act of transferring a copy, and
you may at your option offer warranty protection in exchange for a fee.
2. You may modify your copy or copies of the Program or any portion
of it, thus forming a work based on the Program, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) You must cause the modified files to carry prominent notices
stating that you changed the files and the date of any change.
b) You must cause any work that you distribute or publish, that in
whole or in part contains or is derived from the Program or any
part thereof, to be licensed as a whole at no charge to all third
parties under the terms of this License.
c) If the modified program normally reads commands interactively
when run, you must cause it, when started running for such
interactive use in the most ordinary way, to print or display an
announcement including an appropriate copyright notice and a
notice that there is no warranty (or else, saying that you provide
a warranty) and that users may redistribute the program under
these conditions, and telling the user how to view a copy of this
License. (Exception: if the Program itself is interactive but
does not normally print such an announcement, your work based on
the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Program,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Program, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Program.
In addition, mere aggregation of another work not based on the Program
with the Program (or with a work based on the Program) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may copy and distribute the Program (or a work based on it,
under Section 2) in object code or executable form under the terms of
Sections 1 and 2 above provided that you also do one of the following:
a) Accompany it with the complete corresponding machine-readable
source code, which must be distributed under the terms of Sections
1 and 2 above on a medium customarily used for software interchange; or,
b) Accompany it with a written offer, valid for at least three
years, to give any third party, for a charge no more than your
cost of physically performing source distribution, a complete
machine-readable copy of the corresponding source code, to be
distributed under the terms of Sections 1 and 2 above on a medium
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer
to distribute corresponding source code. (This alternative is
allowed only for noncommercial distribution and only if you
received the program in object code or executable form with such
an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for
making modifications to it. For an executable work, complete source
code means all the source code for all modules it contains, plus any
associated interface definition files, plus the scripts used to
control compilation and installation of the executable. However, as a
special exception, the source code distributed need not include
anything that is normally distributed (in either source or binary
form) with the major components (compiler, kernel, and so on) of the
operating system on which the executable runs, unless that component
itself accompanies the executable.
If distribution of executable or object code is made by offering
access to copy from a designated place, then offering equivalent
access to copy the source code from the same place counts as
distribution of the source code, even though third parties are not
compelled to copy the source along with the object code.
4. You may not copy, modify, sublicense, or distribute the Program
except as expressly provided under this License. Any attempt
otherwise to copy, modify, sublicense or distribute the Program is
void, and will automatically terminate your rights under this License.
However, parties who have received copies, or rights, from you under
this License will not have their licenses terminated so long as such
parties remain in full compliance.
5. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Program or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Program (or any work based on the
Program), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Program or works based on it.
6. Each time you redistribute the Program (or any work based on the
Program), the recipient automatically receives a license from the
original licensor to copy, distribute or modify the Program subject to
these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
7. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Program at all. For example, if a patent
license would not permit royalty-free redistribution of the Program by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Program.
If any portion of this section is held invalid or unenforceable under
any particular circumstance, the balance of the section is intended to
apply and the section as a whole is intended to apply in other
circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system, which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Program under this License
may add an explicit geographical distribution limitation excluding
those countries, so that distribution is permitted only in or among
countries not thus excluded. In such case, this License incorporates
the limitation as if written in the body of this License.
9. The Free Software Foundation may publish revised and/or new versions
of the General Public License from time to time. Such new versions will
be similar in spirit to the present version, but may differ in detail to
address new problems or concerns.
Each version is given a distinguishing version number. If the Program
specifies a version number of this License which applies to it and "any
later version", you have the option of following the terms and conditions
either of that version or of any later version published by the Free
Software Foundation. If the Program does not specify a version number of
this License, you may choose any version ever published by the Free Software
Foundation.
10. If you wish to incorporate parts of the Program into other free
programs whose distribution conditions are different, write to the author
to ask for permission. For software which is copyrighted by the Free
Software Foundation, write to the Free Software Foundation; we sometimes
make exceptions for this. Our decision will be guided by the two goals
of preserving the free status of all derivatives of our free software and
of promoting the sharing and reuse of software generally.
NO WARRANTY
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.
END OF TERMS AND CONDITIONS
How to Apply These Terms to Your New Programs
If you develop a new program, and you want it to be of the greatest
possible use to the public, the best way to achieve this is to make it
free software which everyone can redistribute and change under these terms.
To do so, attach the following notices to the program. It is safest
to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least
the "copyright" line and a pointer to where the full notice is found.
<one line to give the program's name and a brief idea of what it does.>
Copyright (C) 19yy <name of author>
This program 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.
This program 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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
Also add information on how to contact you by electronic and paper mail.
If the program is interactive, make it output a short notice like this
when it starts in an interactive mode:
Gnomovision version 69, Copyright (C) 19yy name of author
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
This is free software, and you are welcome to redistribute it
under certain conditions; type `show c' for details.
The hypothetical commands `show w' and `show c' should show the appropriate
parts of the General Public License. Of course, the commands you use may
be called something other than `show w' and `show c'; they could even be
mouse-clicks or menu items--whatever suits your program.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the program, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
`Gnomovision' (which makes passes at compilers) written by James Hacker.
<signature of Ty Coon>, 1 April 1989
Ty Coon, President of Vice
This General Public License does not permit incorporating your program into
proprietary programs. If your program is a subroutine library, you may
consider it more useful to permit linking proprietary applications with the
library. If this is what you want to do, use the GNU Library General
Public License instead of this License.

23
News
View File

@ -1,23 +0,0 @@
Here Ive tried to collect all the bugfixes and stable new features added
since 1.1.1
* Keyword, Title and Author searches sped up.
* Bugfix for borrower insert script.
* Bugfix for writing off fines.
* Budget breakdown in acquisitions is created on the fly (as opposed to written to an include)
* Lots of tidy ups in the search module
* Fixed display of reserves, on members and detail screens
* Bugfix for manual invoices
* Bugfix for catalogue maintenance
* Tidied up decimal places for item costs
* Bugfix to update group script
* New Feature - Can restrict a keyword search to a dewey number
* New Feature - Modify a borrower who is a guarantor causes relevant changes to be made to all their guarntees
* Bug fix for combined author and title search (wasnt picking up series title)
* Bugfix for reserve handling and charges
* New Feature - Class search
* New Feature - Dewey search
* New Feature - Deleting borrowers checks their accounts for reserves, issues and fines
* New Feature - translation script translator/
* New Feature - Reading record, can be sorted by title or author, or date
* New Feature - Simple acquisitions module

7
README
View File

@ -1,7 +0,0 @@
19/7/00 chris@katipo.co.nz
Koha is distributed under the GPL license, please read the file LICENSE for
more details.
To install the system please read INSTALL

72
TODO
View File

@ -1,72 +0,0 @@
Koha TODO File
==============
There are many planned features and enhancements to be made to Koha.
If there are any items that you feel you can help with please subscribe
to the Koha mailling list. See http://www.koha.org/mailing_list.html
ITEMS TO BE DONE
================
* Tidy Documentation, including INSTALL file.
* DatabaseOoptimisation.
* Installer and packaging.
* Tidy up HTML.
* Branch Transfers.
* Tidy Web Based Circulation.
* Make OPAC Customisable.
* Member Access
* Accession and Shelf Lists.
* Dewey Labels.
* MARC Support.
* Templating/"Skins".
* Translations.
* Z35.50 Support.
* Circulation Protocol.
Below is a proposed roadmap of how new fetures will be implemented into
Koha.
PLANNED IMPLEMENTATION ROADMAP
==============================
1.2.x [stable] Planned Features
* Tweaking HTML to make Koha more generic.
* Installer + Packaging to incorporate updates as well as new installation.
* Branch transfers and tidying up web circulation.
* Customisable opac.
(so librarians can choose what to display to the public easily).
* Add websites, as both an item type, and as a biblio.
==
1.3.x [devel] Planned Features
Targets include:
* Accession and shelf Lists.
* Dewey labels.
* MARC database changes "MARC invisible".
* Transition tools.
* Templating/"skins" feature.
* Ethnicity question.
* Ideas for member access.
* Z39.50 import.
==
1.3.5 [devel] Planned Features:
* MARC front end changes "MARC visible".
* "beta" version of member access change (LDAP, etc).
* MARC import/export.
* Additional skins for language & look-n-feel.
* Z39.50 export (experimental).
==
1.4.0 [stable] Planned Features:
* Additional templates (Skins and Languages/Translations).
* Ensure Koha mod_perl safe, test with persistent db connections.
==
1.5.0 [devel] Planned Features:
* Z39.50 export.
* Accomodate batch imports/exports of biblio records in USMARC/UNIMARC format.
* Circulation protocol (NCIP).
* "Advanced" MARC features, XML
[OCLC, Library of Congress has early release version of these tools out)

285
barcodes.pl
View File

@ -1,285 +0,0 @@
#!/usr/bin/perl
####################
# Variable Section #
####################
# 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
my $pretext='T ';
my $startnumber=1000;
my $pages=2;
my $libraryname='Copper Mountain Elementary';
# Shifts are given in millimeters. Positive numbers move up and to the right.
# These variables shift the whole page to account for printer differences.
my $shiftx=0;
my $shifty=0;
####################
my $leftmargin=5;
my $rightmargin=3;
my $topmargin=18;
my $botmargin=10;
my $rightside=215;
my $topside=280;
my $barcodewidth=length("$pretext$startnumber")+2;
my $bcwidthfactor=8-$barcodewidth/2;
print STDERR "$barcodewidth $bcwidthfactor\n";
my $width=$rightside-($leftmargin+$rightmargin);
my $height=$topside-$topmargin-$botmargin;
print << "EOF";
%!PS-Adobe-2.0
%%Title: barcode.ps
%%Creator: Willem van Schaik
%%CreationDate: aug 1992
%%Pages: 1
%%DocumentFonts: Helvetica Code39
%%BoundingBox: 0 0 595 842
%%EndComments
/newfont 10 dict def
newfont begin
/FontType 3 def
/FontMatrix [0.01 0 0 0.01 0 0] def
/FontBBox [0 0 100 100] def
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} for
Encoding 32 /barSpace put
Encoding 36 /barDollar put
Encoding 37 /barPercent put
Encoding 42 /barAsterisk put
Encoding 43 /barPlus put
Encoding 45 /barHyphen put
Encoding 46 /barPeriod put
Encoding 47 /barSlash put
Encoding 48 /bar0 put
Encoding 49 /bar1 put
Encoding 50 /bar2 put
Encoding 51 /bar3 put
Encoding 52 /bar4 put
Encoding 53 /bar5 put
Encoding 54 /bar6 put
Encoding 55 /bar7 put
Encoding 56 /bar8 put
Encoding 57 /bar9 put
Encoding 65 /barA put
Encoding 66 /barB put
Encoding 67 /barC put
Encoding 68 /barD put
Encoding 69 /barE put
Encoding 70 /barF put
Encoding 71 /barG put
Encoding 72 /barH put
Encoding 73 /barI put
Encoding 74 /barJ put
Encoding 75 /barK put
Encoding 76 /barL put
Encoding 77 /barM put
Encoding 78 /barN put
Encoding 79 /barO put
Encoding 80 /barP put
Encoding 81 /barQ put
Encoding 82 /barR put
Encoding 83 /barS put
Encoding 84 /barT put
Encoding 85 /barU put
Encoding 86 /barV put
Encoding 87 /barW put
Encoding 88 /barX put
Encoding 89 /barY put
Encoding 90 /barZ put
/CharProcs 45 dict def
CharProcs begin
/.notdef {} def
/barSpace {0 7 17 17 7 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barDollar {0 7 17 7 17 7 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barPercent {0 7 7 7 17 7 17 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barAsterisk {0 7 17 7 7 17 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barPlus {0 7 17 7 7 7 17 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barHyphen {0 7 17 7 7 7 7 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barPeriod {0 17 17 7 7 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barSlash {0 7 17 7 17 7 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar0 {0 7 7 7 17 17 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar1 {0 17 7 7 17 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar2 {0 7 7 17 17 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar3 {0 17 7 17 17 7 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar4 {0 7 7 7 17 17 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar5 {0 17 7 7 17 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar6 {0 7 7 17 17 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar7 {0 7 7 7 17 7 7 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar8 {0 17 7 7 17 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/bar9 {0 7 7 17 17 7 7 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barA {0 17 7 7 7 7 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barB {0 7 7 17 7 7 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barC {0 17 7 17 7 7 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barD {0 7 7 7 7 17 17 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barE {0 17 7 7 7 17 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barF {0 7 7 17 7 17 17 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barG {0 7 7 7 7 7 17 17 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barH {0 17 7 7 7 7 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barI {0 7 7 17 7 7 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barJ {0 7 7 7 7 17 17 17 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barK {0 17 7 7 7 7 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barL {0 7 7 17 7 7 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barM {0 17 7 17 7 7 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barN {0 7 7 7 7 17 7 7 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barO {0 17 7 7 7 17 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barP {0 7 7 17 7 17 7 7 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barQ {0 7 7 7 7 7 7 17 17 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barR {0 17 7 7 7 7 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barS {0 7 7 17 7 7 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barT {0 7 7 7 7 17 7 17 17 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barU {0 17 17 7 7 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barV {0 7 17 17 7 7 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barW {0 17 17 17 7 7 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barX {0 7 17 7 7 17 7 7 7 17 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barY {0 17 17 7 7 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
/barZ {0 7 17 17 7 17 7 7 7 7 newpath 93 0 moveto 5 {dup 0 100 rlineto
neg 0 rlineto 0 -100 rlineto closepath add neg 0 rmoveto} repeat fill} def
end
/BuildChar
{ 100 0 0 0 93 100 setcachedevice
exch
begin
Encoding exch get
CharProcs exch get
end
exec
} def
end
/Code39 newfont definefont pop
%%EndProlog
EOF
my $number=$startnumber;
while ($page<$pages) {
my $data='';
for ($i=$leftmargin; $i<$rightside-$rightmargin; $i+=$width/4) {
for ($j=$botmargin; $j<$topside-$topmargin-$botmargin; $j+=$height/20) {
my $x=$i+$width/8;
my $y=$j+$height/40;
my $schooly=$y+5.8;
my $labely=$y-2.2;
my $lox=$x-2;
my $hix=$x+2;
my $loy=$y-2;
my $hiy=$y+2;
$data.=<<"EOF";
$x $y moveto
/Code39 findfont [$bcwidthfactor 0 0 5 0 0] makefont setfont
(*$pretext$number*) dup stringwidth pop 2 div neg 0 rmoveto show
/Helvetica findfont 1.7 scalefont setfont
$x $schooly moveto
($schoolname) dup stringwidth pop 2 div neg 0 rmoveto show
/Helvetica findfont 2.3 scalefont setfont
$x $labely moveto
($pretext$number) dup stringwidth pop 2 div neg 0 rmoveto show
EOF
$number++;
}
}
$page++;
print << "EOF";
%%Page: $page $page
%%PagerFonts:
$shiftx $shifty translate
72 25.4 div dup scale
/Code39 findfont [4 0 0 5 0 0] makefont setfont
/Times-Roman findfont
1 scalefont
setfont
$data
showpage
EOF
}
print "%%Trailer\n";

396
buildrelease
View File

@ -1,396 +0,0 @@
#!/usr/bin/perl
sub guess_kohahtmldir ($;$);
my $kohadir=`pwd`;
chomp $kohadir;
my $kohahtmldir=guess_kohahtmldir($kohadir, "/koha/koha/koha-html/");
my $roothomedir=(getpwuid(0))[7]; # ~root is traditionally just /
$roothomedir='/root' unless defined $roothomedir;
my $has_kohaautobuild_conf = 0;
if (-e "$roothomedir/.kohaautobuild.conf") {
open C, "<$roothomedir/.kohaautobuild.conf";
while (<C>) {
chomp;
if (/kohadir=(.*)/) {
$kohadir=$1;
}
if (/kohahtmldir=(.*)/) {
$kohahtmldir=$1;
}
}
$has_kohaautobuild_conf = 1;
}
my $input;
print qq |
***************************************
* Welcome to the Koha Release Builder *
***************************************
This script will automatically build a release tarball.
The script assumes that you already have the koha and koha-html modules checked
out for the release that you want to build, although it will update the modules
before building.
|;
print "\nWhere is the 'koha' cvs module located [$kohadir]: ";
chomp($input = <STDIN>);
if ($input) {
$kohadir=$input;
$kohahtmldir=guess_kohahtmldir($kohadir, $kohahtmldir) unless $has_kohaautobuild_conf;
}
print "\nWhere is the 'koha-html' cvs module located [$kohahtmldir]: ";
chomp($input = <STDIN>);
if ($input) {
$kohahtmldir=$input;
}
open (C, ">$roothomedir/.kohaautobuild.conf");
print C qq|
kohadir=$kohadir
kohahtmldir=$kohahtmldir
|;
print "\n\nGuessing at next release version. You may need to enter your SourceForge password...\n";
open (CVSLOG, "cvs log buildrelease|");
my $symbolicnamessection=0;
my $symbolicnames;
my $highestversion;
my $highestrc;
my $released;
my $majorversion;
my $majorversionrc;
while (<CVSLOG>) {
if (/^symbolic names:/) {
$symbolicnamessection=1;
}
if ($symbolicnamessection && (/^\s+([^:]*):/)) {
my $tag=$1;
if ($tag=~/R_(.*)/) {
my $version='';
my $rc=0;
my $id=$1;
$id=~s/-/\./g;
if ($id =~/(.*)RC(.*)/) {
$version=$1;
$rc=$2;
$version=~m#(\d+\.\d+)\.#;
if (versioncompare($version, $majorversion->{$1})) {
$majorversion->{$1}=$version;
$majorversionrc->{$1}=$rc;
}
if (versioncompare($version, $highestversion)) {
$highestversion=$version;
$released=0;
$highestrc=$rc;
}
} else {
$version=$id;
$version=~m#(\d+\.\d+)\.#;
if (versioncompare($version, $majorversion->{$1})) {
$majorversion->{$1}=$version;
$majorversionrc->{$1}=0;
}
if (versioncompare($version, $highestversion)) {
$highestversion=$version;
$released=1;
$highestrc=0;
}
}
$symbolicnames->{$version}->{$rc}=1;
}
}
}
my $releaseversion='';
my $currentversion='';
my $branchdata=`grep buildrelease CVS/Entries`;
chomp $branchdata;
my $branch=(split(m#/#, $branchdata))[5];
if ($branch eq 'Trel-1-2') {
$highestversion=$majorversion->{'1.2'};
$highestrc=$majorversionrc->{'1.2'};
($highestrc) ? ($released=0) : ($released=1);
}
if ($released) {
my @components=split(/\./, $highestversion);
$components[$#components]++;
$nexthighestversion=join '.', @components;
my $minornumber=(split(/\./, $highestversion))[1];
if ($minornumber/2 == int($minornumber/2)) {
$releaseversion=$nexthighestversion."RC1";
} else {
$releaseversion=$nexthighestversion;
}
$currentversion=$highestversion;
} else {
$releaseversion=$highestversion."RC".($highestrc+1);
$currentversion=$highestversion."RC$highestrc";
}
print "Current release tag is $currentversion.\n";
print "\nWould you like to bump that up to $releaseversion (or manually enter version)? [Y]/N: ";
chomp($input = <STDIN>);
my $tagging_needs_confirmation = 0;
if ($input =~ /^n/i) {
print "\nWould you like to rebuild the $currentversion tarball? Y/[N]: ";
chomp($input = <STDIN>);
print STDERR "releaseversion=($releaseversion), currentversion=($currentversion)\n";#XXXZZZ
if ($input =~ /^y/i) {
$releaseversion=$currentversion;
$tagging_needs_confirmation = 1;
} else {
print "What should the new version be? [$releaseversion]: ";
chomp ($input=<STDIN>);
if ($input) {
$releaseversion=$input;
}
}
} else {
print "What should the new version be? [$releaseversion]: ";
chomp ($input=<STDIN>);
if ($input) {
$releaseversion=$input;
}
}
print "\nWould you like to tag the CVS repository?\n(answer yes if releasing tarball) Y/[N]: ";
chomp ($input=<STDIN>);
my $cvstag=0;
# FIXME: This means anything other than n will tag; too dangerous?
if ($input=~/^y/i) {
$cvstag=1;
}
if ($cvstag && $tagging_needs_confirmation) {
print "\n\n";
print "Do not do this if you have released the tarball to anybody, as it will\n";
print "overwrite the tag marking the files that were in the tarball:\n\n";
print "Confirm that you want to overwrite the tag for $releaseversion? Y/[N]: ";
chomp($input = <STDIN>);
if ($input =~ /^n/i || $input !~ /\S/) {
print "\nStopping. Please re-run buildrelease now.\n";
exit;
}
}
my $sfuserid='';
if ($cvsroot=$ENV{'CVSROOT'}) {
$cvsroot=~m#(.*)\@cvs#;
$sfuserid=$1;
} else {
$ENV{'CVS_RSH'}='ssh';
print "\nWhat is your userid at SourceForge: ";
chomp($input = <STDIN>);
if ($input) {
$sfuserid=$input;
}
$ENV{'CVSROOT'}="$sfuserid\@cvs.koha.sourceforge.net:/cvsroot/koha";
}
my $tagname=$releaseversion;
$tagname=~s/\./-/g;
print qq|
Updating your checked-out copy of the 'koha' CVS files.
You may need to enter your SourceForge password.
Using $kohadir.
|;
chdir($kohadir);
system("cvs update");
if ($cvstag) {
print qq|
Tagging koha with tag R_$tagname
|;
system("cvs tag -F R_$tagname");
}
print qq|
Updating your checked-out copy of the 'koha-html' CVS files.
You may need to enter your SourceForge password.
Using $kohahtmldir.
|;
chdir($kohahtmldir) || die "$kohahtmldir: $!\n";
system("cvs update");
if ($cvstag) {
print qq|
Tagging koha-html with tag R_$tagname
|;
system("cvs tag -F R_$tagname");
}
my $rootdir="/tmp/koha-".$releaseversion;
system("rm -rf $rootdir");
mkdir ($rootdir, 0700);
chdir($rootdir) || die "$rootdir: $!\n";
mkdir("intranet-cgi", 0755);
mkdir("intranet-html", 0755);
mkdir("opac-cgi", 0755);
mkdir("opac-html", 0755);
mkdir("scripts", 0755);
mkdir("scripts/z3950daemon", 0755);
mkdir("modules", 0755);
mkdir("docs", 0755);
# Create koha.versin file
open (KV, ">$rootdir/koha.version");
print KV "$releaseversion\n";
close KV;
# Copy all CVS files to intranet-cgi
system("cp -a $kohadir/* $rootdir/intranet-cgi");
# Move C4 to modules directory
system("mv $rootdir/intranet-cgi/C4 $rootdir/modules");
# Move files from intranet-cgi to root of tarball
system("mv $rootdir/intranet-cgi/INSTALL $rootdir");
system("mv $rootdir/intranet-cgi/ChangeLog* $rootdir");
system("mv $rootdir/intranet-cgi/Hints $rootdir");
system("mv $rootdir/intranet-cgi/LICENSE $rootdir");
system("mv $rootdir/intranet-cgi/News $rootdir");
system("mv $rootdir/intranet-cgi/README $rootdir");
system("mv $rootdir/intranet-cgi/TODO $rootdir");
system("mv $rootdir/intranet-cgi/installer.pl $rootdir");
system("mv $rootdir/intranet-cgi/koha.upgrade $rootdir");
system("mv $rootdir/intranet-cgi/Install.pm $rootdir");
system("mv $rootdir/intranet-cgi/kohareporter $rootdir");
chmod 0770, "$rootdir/installer.pl";
chmod 0770, "$rootdir/koha.upgrade";
system("mv $rootdir/intranet-cgi/koha.conf $rootdir");
system("mv $rootdir/intranet-cgi/koha.mysql $rootdir");
system("mv $rootdir/intranet-cgi/sampledata-1.2 $rootdir");
system("gzip -9 $rootdir/sampledata-1.2");
# Copy files from intranet-cgi to opac-cgi
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
system("mv $rootdir/intranet-cgi/telnet $rootdir/scripts");
system("mv $rootdir/intranet-cgi/tkperl $rootdir/scripts");
system("mv $rootdir/intranet-cgi/translator $rootdir/scripts");
system("mv $rootdir/intranet-cgi/updater $rootdir/scripts");
system("mv $rootdir/intranet-cgi/misc $rootdir/scripts");
system("mv $rootdir/intranet-cgi/marc $rootdir/scripts");
system("mv $rootdir/intranet-cgi/acqui.simple/bulkmarcimport.pl $rootdir/scripts/z3950daemon/");
system("mv $rootdir/intranet-cgi/acqui.simple/processz3950queue $rootdir/scripts/z3950daemon/");
system("mv $rootdir/intranet-cgi/acqui.simple/z3950-daemon-launch.sh $rootdir/scripts/z3950daemon/");
system("mv $rootdir/intranet-cgi/acqui.simple/z3950-daemon-shell.sh $rootdir/scripts/z3950daemon/");
# Remove extraneous files from intranet-cgi
system("rm -f $rootdir/intranet-cgi/ChangeLog.bak");
system("rm -f $rootdir/intranet-cgi/SendMessages");
system("rm -f $rootdir/intranet-cgi/buildrelease");
system("rm -f $rootdir/intranet-cgi/database.mysql");
system("rm -f $rootdir/intranet-cgi/installer-lite.pl");
# FIXME: The following two lines look suspicious
#system("rm -f $rootdir/intranet-cgi/koha-1.2.0.tar.gz");
#system("rm -f $rootdir/intranet-cgi/rel-1-2");
system("rm -f $rootdir/intranet-cgi/testKoha.pl");
system("rm -rf $rootdir/intranet-cgi/html-template");
system("rm -rf $rootdir/intranet-cgi/t");
# Set all .pl scripts executable
system("find $rootdir/intranet-cgi -name '*.pl' -exec chmod a+x \\{\\} \\;");
# Copy all CVS files to intranet-html and opac-html
system("cp -a $kohahtmldir/intranet-html/* $rootdir/intranet-html");
system("cp -a $kohahtmldir/opac-html/* $rootdir/opac-html");
# Move koha-tmpl files
system("mv $rootdir/intranet-cgi/koha-tmpl/opac-tmpl/* $rootdir/opac-html");
system("mv $rootdir/intranet-cgi/koha-tmpl/intranet-tmpl/* $rootdir/intranet-html");
system("rm -rf $rootdir/intranet-cgi/koha-tmpl");
# Remove extraneous files from opac-html
system("rm -f $rootdir/opac-html/koha.mo");
system("rm -f $rootdir/opac-html/koha.pot");
system("rm -f $rootdir/opac-html/test");
# Remove extraneous files from intranet-html
system("rm -f $rootdir/intranet-html/koha.pot");
system("rm -f $rootdir/intranet-html/results.html");
system("rm -f $rootdir/intranet-html/test");
# Remove junk from directory
system("find $rootdir -name CVS -exec rm -rf \\{\\} \\; 2>/dev/null");
system("find $rootdir -name *~ -exec rm -rf \\{\\} \\; 2>/dev/null");
system("find $rootdir -name .#* -exec rm -rf \\{\\} \\; 2>/dev/null");
if (-e "$roothomedir/docs") {
print "Copying docs folder from $roothomedir/docs...";
system("cp -r $roothomedir/docs/* $rootdir/docs/");
} else {
print "I would have copied the docs from from $roothomedir/docs, but I couldn't find it.\n";
print "Press <ENTER> to continue...\n";
<STDIN>;
}
chdir("/tmp");
system("tar czf /tmp/koha-$releaseversion.tar.gz koha-".$releaseversion);
system("rm -rf $rootdir");
print qq|
============
= ALL DONE =
============
Your new tarball is located in /tmp/koha-$releaseversion.tar.gz
|;
sub versioncompare {
my $v1=shift;
my $v2=shift;
my @v1=split(/\./, $v1);
my @v2=split(/\./, $v2);
my $count=$#v1;
($#v2>$count) && ($count=$#v2);
for (my $index=0; $index<$count; $index++) {
if ($v1[$index]>$v2[$index]) {
return 1;
}
}
return 0;
}
sub guess_kohahtmldir ($;$) {
my($kohadir, $default) = @_;
my $kohahtmldir;
# It probably makes sense to assume that the 'koha' and 'koha-html'
# modules are checked out within the same parent directory
if (-d $kohadir && $kohadir =~ /^(.*)\/[^\/]+$/) {
$kohahtmldir = "$1/koha-html"
} else {
$kohahtmldir = $default;
}
return $kohahtmldir;
}

841
database.mysql
View File

@ -1,841 +0,0 @@
# MySQL dump 7.1
#
# Host: localhost Database: c4test
#--------------------------------------------------------
# Server version 3.22.32-log
#
# Table structure for table 'accountlines'
#
CREATE TABLE accountlines (
borrowernumber int(11) DEFAULT '0' NOT NULL,
accountno smallint(6) DEFAULT '0' NOT NULL,
itemnumber int(11),
date date,
amount decimal(28,6),
description text,
dispute text,
accounttype varchar(5),
amountoutstanding decimal(28,6),
timestamp timestamp(14),
KEY acctsborridx (borrowernumber),
KEY timeidx (timestamp)
);
#
# Table structure for table 'accountoffsets'
#
CREATE TABLE accountoffsets (
borrowernumber int(11) DEFAULT '0' NOT NULL,
accountno smallint(6) DEFAULT '0' NOT NULL,
offsetaccount smallint(6) DEFAULT '0' NOT NULL,
offsetamount decimal(28,6),
timestamp timestamp(14)
);
#
# Table structure for table 'additionalauthors'
#
CREATE TABLE additionalauthors (
author text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
KEY bibidx (biblionumber)
);
#
# Table structure for table 'aqbookfund'
#
CREATE TABLE aqbookfund (
bookfundid varchar(5) DEFAULT '' NOT NULL,
bookfundname text,
bookfundgroup varchar(5)
);
#
# Table structure for table 'aqbooksellers'
#
CREATE TABLE aqbooksellers (
id int(11),
name text,
address1 text,
address2 text,
address3 text,
address4 text,
phone varchar(30),
accountnumber text,
othersupplier text,
currency char(3) DEFAULT '' NOT NULL,
deliverydays smallint(6),
followupdays smallint(6),
followupscancel smallint(6),
specialty text,
booksellerfax text,
notes text,
bookselleremail text,
booksellerurl text,
contact varchar(100),
postal text,
url varchar(255),
contpos varchar(100),
contphone varchar(100),
contfax varchar(100),
contaltphone varchar(100),
contemail varchar(100),
contnotes text,
active tinyint(4),
listprice varchar(5),
invoiceprice varchar(5),
gstreg tinyint(4),
listincgst tinyint(4),
invoiceincgst tinyint(4),
discount float(6,4),
fax varchar(50)
);
#
# Table structure for table 'aqbudget'
#
CREATE TABLE aqbudget (
bookfundid char(5) DEFAULT '' NOT NULL,
startdate date DEFAULT '0000-00-00' NOT NULL,
enddate date,
budgetamount decimal(13,2)
);
#
# Table structure for table 'aqorderbreakdown'
#
CREATE TABLE aqorderbreakdown (
ordernumber int(11),
linenumber int(11),
branchcode char(4),
bookfundid char(5) DEFAULT '' NOT NULL,
allocation smallint(6)
);
#
# Table structure for table 'aqorderdelivery'
#
CREATE TABLE aqorderdelivery (
ordernumber date DEFAULT '0000-00-00' NOT NULL,
deliverynumber smallint(6) DEFAULT '0' NOT NULL,
deliverydate varchar(18),
qtydelivered smallint(6),
deliverycomments text
);
#
# Table structure for table 'aqorders'
#
CREATE TABLE aqorders (
ordernumber int(11) NOT NULL auto_increment,
biblionumber int(11) default NULL,
title text,
requisitionedby varchar(10) default NULL,
authorisedby varchar(10) default NULL,
booksellerid varchar(10) NOT NULL default '',
deliverydays smallint(6) default NULL,
followupdays smallint(6) default NULL,
numberfollowupsallowed smallint(6) default NULL,
numberfollowupssent smallint(6) default NULL,
entrydate date default NULL,
dateprinted date default NULL,
quantity smallint(6) default NULL,
currency char(3) default NULL,
listprice decimal(28,6) default NULL,
totalamount decimal(28,6) default NULL,
datereceived date default NULL,
booksellerinvoicenumber text,
freight decimal(28,6) default NULL,
unitprice decimal(28,6) default NULL,
quantityreceived smallint(6) default NULL,
sourced text,
cancelledby varchar(10) default NULL,
quantityreceiveddamaged smallint(6) default NULL,
datecancellationprinted date default NULL,
notes text,
supplierreference text,
purchaseordernumber text,
subscription tinyint(1) default NULL,
subscriptionfrom date default NULL,
subscriptionto date default NULL,
serialid varchar(30) default NULL,
basketno int(11) default NULL,
biblioitemnumber int(11) default NULL,
timestamp timestamp(14) NOT NULL,
rrp decimal(13,2) default NULL,
ecost decimal(13,2) default NULL,
gst decimal(13,2) default NULL,
PRIMARY KEY (ordernumber),
KEY booksellerid (booksellerid),
KEY biblionumber (biblionumber),
KEY biblioitemnumber (biblioitemnumber),
KEY biblioitemnumber_2 (biblioitemnumber)
) TYPE=MyISAM;
#
# Table structure for table 'biblio'
#
CREATE TABLE biblio (
biblionumber int(11) DEFAULT '0' NOT NULL,
author text,
title text,
unititle text,
notes text,
abstract text,
serial tinyint(1),
seriestitle text,
copyrightdate smallint(6),
timestamp timestamp(14),
KEY blbnoidx (biblionumber),
PRIMARY KEY (biblionumber)
);
#
# Table structure for table 'biblioanalysis'
#
CREATE TABLE biblioanalysis (
analyticaltitle text,
biblionumber int(11) DEFAULT '0' NOT NULL,
analyticalauthor text
);
#
# Table structure for table 'biblioitems'
#
CREATE TABLE biblioitems (
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
volume text,
number text,
classification varchar(25),
itemtype varchar(4),
url varchar(255),
isbn varchar(14),
issn varchar(9),
dewey double(8,6),
subclass char(3),
publicationyear smallint(6),
publishercode varchar(255),
volumedate date,
volumeddesc varchar(255),
timestamp timestamp(14),
illus varchar(255),
pages varchar(255),
notes text,
size varchar(255),
place varchar(255),
KEY bibinoidx (biblioitemnumber),
KEY bibnoidx (biblionumber),
PRIMARY KEY (biblioitemnumber)
);
#
# Table structure for table 'bibliosubject'
#
CREATE TABLE bibliosubject (
subject text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL
);
#
# Table structure for table 'bibliosubtitle'
#
CREATE TABLE bibliosubtitle (
subtitle text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
KEY bibsubidx (biblionumber)
);
#
# Table structure for table 'borexp'
#
CREATE TABLE borexp (
borrowernumber int(11),
newexp date
);
#
# Table structure for table 'borrowers'
#
CREATE TABLE borrowers (
borrowernumber int(11) DEFAULT '0' NOT NULL,
cardnumber varchar(9) DEFAULT '' NOT NULL,
surname text NOT NULL,
firstname text NOT NULL,
title text,
othernames text,
initials text NOT NULL,
streetaddress text NOT NULL,
suburb text,
city text NOT NULL,
phone text NOT NULL,
emailaddress text,
faxnumber text,
altstreetaddress text,
altsuburb text,
altcity text,
altphone text,
dateofbirth date,
branchcode varchar(4) DEFAULT '' NOT NULL,
categorycode char(2),
dateenrolled date,
gonenoaddress tinyint(1),
lost tinyint(1),
debarred tinyint(1),
studentnumber text,
school text,
contactname text,
borrowernotes text,
guarantor int(11),
area char(2),
ethnicity varchar(50),
ethnotes varchar(255),
sex char(1),
expiry date,
altnotes varchar(255),
altrelationship varchar(100),
streetcity text,
phoneday varchar(50),
preferredcont char(1),
physstreet varchar(100),
KEY borrowernumber (borrowernumber),
KEY cardnumber (cardnumber)
);
#
# Table structure for table 'branchcategories'
#
CREATE TABLE branchcategories (
categorycode char(2) DEFAULT '' NOT NULL,
categoryname text,
codedescription text,
PRIMARY KEY (categorycode)
);
# Table structure for table 'branchrelations'
#
CREATE TABLE branchrelations (
branchcode varchar(4) DEFAULT '' NOT NULL,
categorycode varchar(4) DEFAULT '' NOT NULL
);
#
# Table structure for table 'branches'
#
CREATE TABLE branches (
branchcode varchar(4) DEFAULT '' NOT NULL,
branchname text NOT NULL,
branchaddress1 text,
branchaddress2 text,
branchaddress3 text,
branchphone text,
branchfax text,
branchemail text,
issuing tinyint(4),
UNIQUE branchcode (branchcode)
);
#
# Table structure for table 'branchtransfers'
# The date sent and datearrived fields are datetime not just date
#
CREATE TABLE branchtransfers (
itemnumber int(11) DEFAULT '0' NOT NULL,
datesent datetime DEFAULT '0000-00-00' NOT NULL,
frombranch varchar(4),
datearrived datetime,
tobranch varchar(4),
comments text
);
#
# Table structure for table 'catalogueentry'
#
CREATE TABLE catalogueentry (
catalogueentry text NOT NULL,
entrytype char(2),
see text,
seealso text,
seeinstead text,
biblionumber int(11)
);
#
# Table structure for table 'categories'
#
CREATE TABLE categories (
categorycode char(2) DEFAULT '' NOT NULL,
description text,
enrolmentperiod smallint(6),
upperagelimit smallint(6),
dateofbirthrequired tinyint(1),
finetype varchar(30),
bulk tinyint(1),
enrolmentfee decimal(28,6),
overduenoticerequired tinyint(1),
issuelimit smallint(6),
reservefee decimal(28,6),
UNIQUE categorycode (categorycode)
);
#
# Table structure for table 'categoryitem'
#
CREATE TABLE categoryitem (
categorycode char(2) DEFAULT '' NOT NULL,
itemtype varchar(4) DEFAULT '' NOT NULL,
restrictedtype tinyint(1),
rentaldiscount decimal(28,6),
reservecharge decimal(28,6),
fine decimal(28,6),
firstremind int(11),
chargeperiod int(11),
accountsent int(11),
chargename varchar(100)
);
#
# Table structure for table 'classification'
#
CREATE TABLE classification (
classification varchar(12) DEFAULT '' NOT NULL
);
#
# Table structure for table 'currency'
#
CREATE TABLE currency (
currency varchar(10),
rate float(7,5)
);
#
# Table structure for table 'deletedbiblio'
#
CREATE TABLE deletedbiblio (
biblionumber int(11) DEFAULT '0' NOT NULL,
author text,
title text,
unititle text,
notes text,
abstract text,
serial tinyint(1),
seriestitle text,
copyrightdate smallint(6),
timestamp timestamp(14),
KEY blbnoidx (biblionumber),
PRIMARY KEY (biblionumber)
);
#
# Table structure for table 'deletedbiblioitems'
#
CREATE TABLE deletedbiblioitems (
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
volume text,
number text,
classification varchar(25),
itemtype varchar(4),
isbn varchar(14),
issn varchar(9),
dewey double(8,6),
subclass char(3),
publicationyear smallint(6),
publishercode varchar(255),
volumedate date,
volumeddesc varchar(255),
timestamp timestamp(14),
illus varchar(255),
pages varchar(255),
notes text,
size varchar(255),
KEY bibinoidx (biblioitemnumber),
KEY bibnoidx (biblionumber),
PRIMARY KEY (biblioitemnumber)
);
#
# Table structure for table 'deletedborrowers'
#
CREATE TABLE deletedborrowers (
borrowernumber int(11) DEFAULT '0' NOT NULL,
cardnumber varchar(9) DEFAULT '' NOT NULL,
surname text NOT NULL,
firstname text NOT NULL,
title text,
othernames text,
initials text NOT NULL,
streetaddress text NOT NULL,
suburb text,
city text NOT NULL,
phone text NOT NULL,
emailaddress text,
faxnumber text,
altstreetaddress text,
altsuburb text,
altcity text,
altphone text,
dateofbirth date,
branchcode varchar(4) DEFAULT '' NOT NULL,
categorycode char(2),
dateenrolled date,
gonenoaddress tinyint(1),
lost tinyint(1),
debarred tinyint(1),
studentnumber text,
school text,
contactname text,
borrowernotes text,
guarantor int(11),
area char(2),
ethnicity varchar(50),
ethnotes varchar(255),
sex char(1),
expiry date,
altnotes varchar(255),
altrelationship varchar(100),
streetcity text,
phoneday varchar(50),
preferredcont varchar(100),
physstreet varchar(100),
KEY borrowernumber (borrowernumber),
KEY cardnumber (cardnumber)
);
#
# Table structure for table 'deleteditems'
#
CREATE TABLE deleteditems (
itemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(28,6),
replacementprice decimal(28,6),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
interim tinyint(1),
timestamp timestamp(14),
KEY itembarcodeidx (barcode),
KEY itembinoidx (biblioitemnumber),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber),
UNIQUE barcode (barcode)
);
#
# Table structure for table 'ethnicity'
#
CREATE TABLE ethnicity (
code varchar(10) NOT NULL default '',
name varchar(255) default NULL,
PRIMARY KEY (code)
);
#
# Table structure for table 'issues'
#
CREATE TABLE issues (
borrowernumber int(11) DEFAULT '0' NOT NULL,
itemnumber int(11) DEFAULT '0' NOT NULL,
date_due date,
branchcode char(4),
issuingbranch char(18),
returndate date,
lastreneweddate date,
return char(4),
renewals tinyint(4),
timestamp timestamp(14),
KEY issuesborridx (borrowernumber),
KEY issuesitemidx (itemnumber),
KEY bordate (borrowernumber,timestamp)
);
#
# Table structure for table 'items'
#
CREATE TABLE items (
itemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(8,2),
replacementprice decimal(8,2),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
paidfor text,
timestamp timestamp(14),
KEY itembarcodeidx (barcode),
KEY itembinoidx (biblioitemnumber),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber),
UNIQUE barcode (barcode)
);
#
# Table structure for table 'itemsprices'
#
CREATE TABLE itemsprices (
itemnumber int(11),
price1 decimal(28,6),
price2 decimal(28,6)
);
#
# Table structure for table 'itemtypes'
#
CREATE TABLE itemtypes (
itemtype varchar(4) DEFAULT '' NOT NULL,
description text,
loanlength smallint(6),
renewalsallowed smallint(6),
rentalcharge double(16,4),
UNIQUE itemtype (itemtype)
);
#
# Table structure for table 'multipart'
#
CREATE TABLE multipart (
itemnumber int(11) DEFAULT '0' NOT NULL,
other int(11) DEFAULT '0' NOT NULL
);
#
# Table structure for table 'multivolume'
#
CREATE TABLE multivolume (
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30) DEFAULT '' NOT NULL
);
#
# Table structure for table 'newitems'
#
CREATE TABLE newitems (
itemnumber int(11) DEFAULT '0' NOT NULL,
publishercode varchar(18),
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(28,6),
replacementprice decimal(28,6),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
interim tinyint(1),
volume text,
number text,
classification varchar(12),
itemtype varchar(4),
isbn varchar(14),
issn varchar(9),
dewey double(16,4),
subclass char(3),
publicationyear smallint(6),
KEY itembarcodeidx (barcode),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber)
);
#
# Table structure for table 'printers'
#
CREATE TABLE printers (
printername char(40),
printqueue char(20),
printtype char(20)
);
#
# Table structure for table 'procedures'
#
CREATE TABLE procedures (
proccode varchar(4),
procdesc text,
proclevel smallint(6)
);
#
# Table structure for table 'publisher'
#
CREATE TABLE publisher (
publishercode varchar(18) DEFAULT '' NOT NULL,
publishername text NOT NULL
);
#
# Table structure for table 'reserveconstraints'
#
CREATE TABLE reserveconstraints (
borrowernumber int(11) DEFAULT '0' NOT NULL,
reservedate date DEFAULT '0000-00-00' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
biblioitemnumber int(11),
timestamp timestamp(14)
);
#
# Table structure for table 'reserves'
#
CREATE TABLE reserves (
borrowernumber int(11) DEFAULT '0' NOT NULL,
reservedate date DEFAULT '0000-00-00' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
constrainttype char(1),
branchcode varchar(4),
notificationdate date,
reminderdate date,
cancellationdate date,
reservenotes text,
priority smallint(6),
found char(1),
timestamp timestamp(14),
itemnumber int(11)
);
#
# Table structure for table 'searchstats'
#
CREATE TABLE searchstats (
time datetime,
searchstring text
);
#
# Table structure for table 'serialissues'
#
CREATE TABLE serialissues (
biblionumber int(11) DEFAULT '0' NOT NULL,
volume varchar(20) DEFAULT '' NOT NULL,
number varchar(20) DEFAULT '' NOT NULL,
ordernumber smallint(6),
issuedate varchar(20),
received varchar(18)
);
#
# Table structure for table 'statistics'
#
CREATE TABLE statistics (
datetime datetime DEFAULT '0000-00-00 00:00:00' NOT NULL,
branch varchar(4),
proccode varchar(4),
value double(16,4),
type varchar(16),
other text,
usercode varchar(10),
itemnumber int(11),
itemtype varchar(4),
KEY timeidx (datetime)
);
#
# Table structure for table 'stopwords'
#
CREATE TABLE stopwords (
word varchar(255)
);
#
# Table structure for table 'systempreferences'
#
CREATE TABLE systempreferences (
variable char(50) DEFAULT '' NOT NULL,
value char(200),
explanation char(200) default '',
PRIMARY KEY (variable)
);
#
# Table structure for table 'users'
#
CREATE TABLE users (
usercode varchar(10),
username text,
password text,
level smallint(6)
);
#
# Table structure for table 'websites'
#
CREATE TABLE websites (
websitenumber int(11) NOT NULL auto_increment,
biblionumber int(11) NOT NULL default '0',
title text,
description text,
url varchar(255),
PRIMARY KEY (websitenumber)
) TYPE=ISAM PACK_KEYS=1;
CREATE TABLE uploadedmarc (
id int(11) NOT NULL auto_increment,
marc longblob,
hidden smallint(6) default NULL,
name varchar(255) default NULL,
PRIMARY KEY (id)
);
CREATE TABLE marcrecorddone (
isbn char(40) default NULL,
issn char(40) default NULL,
lccn char(40) default NULL
);

251
install-sh
View File

@ -1,251 +0,0 @@
#!/bin/sh
#
# install - install a program, script, or datafile
# This comes from X11R5 (mit/util/scripts/install.sh).
#
# Copyright 1991 by the Massachusetts Institute of Technology
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
# the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation, and that the name of M.I.T. not be used in advertising or
# publicity pertaining to distribution of the software without specific,
# written prior permission. M.I.T. makes no representations about the
# suitability of this software for any purpose. It is provided "as is"
# without express or implied warranty.
#
# Calling this script install-sh is preferred over install.sh, to prevent
# `make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# This script is compatible with the BSD install script, but was written
# from scratch. It can only install one file at a time, a restriction
# shared with many OS's install programs.
# set DOITPROG to echo to test this script
# Don't use :- since 4.3BSD and earlier shells don't like it.
doit="${DOITPROG-}"
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"
transformbasename=""
transform_arg=""
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
dst=""
dir_arg=""
while [ x"$1" != x ]; do
case $1 in
-c) instcmd="$cpprog"
shift
continue;;
-d) dir_arg=true
shift
continue;;
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
shift
shift
continue;;
-s) stripcmd="$stripprog"
shift
continue;;
-t=*) transformarg=`echo $1 | sed 's/-t=//'`
shift
continue;;
-b=*) transformbasename=`echo $1 | sed 's/-b=//'`
shift
continue;;
*) if [ x"$src" = x ]
then
src=$1
else
# this colon is to work around a 386BSD /bin/sh bug
:
dst=$1
fi
shift
continue;;
esac
done
if [ x"$src" = x ]
then
echo "install: no input file specified"
exit 1
else
true
fi
if [ x"$dir_arg" != x ]; then
dst=$src
src=""
if [ -d $dst ]; then
instcmd=:
chmodcmd=""
else
instcmd=mkdir
fi
else
# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
# might cause directories to be created, which would be especially bad
# if $src (and thus $dsttmp) contains '*'.
if [ -f $src -o -d $src ]
then
true
else
echo "install: $src does not exist"
exit 1
fi
if [ x"$dst" = x ]
then
echo "install: no destination specified"
exit 1
else
true
fi
# If destination is a directory, append the input filename; if your system
# does not like double slashes in filenames, you may need to add some logic
if [ -d $dst ]
then
dst="$dst"/`basename $src`
else
true
fi
fi
## this sed command emulates the dirname command
dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
# Make sure that the destination directory exists.
# this part is taken from Noah Friedman's mkinstalldirs script
# Skip lots of stat calls in the usual case.
if [ ! -d "$dstdir" ]; then
defaultIFS='
'
IFS="${IFS-${defaultIFS}}"
oIFS="${IFS}"
# Some sh's can't handle IFS=/ for some reason.
IFS='%'
set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'`
IFS="${oIFS}"
pathcomp=''
while [ $# -ne 0 ] ; do
pathcomp="${pathcomp}${1}"
shift
if [ ! -d "${pathcomp}" ] ;
then
$mkdirprog "${pathcomp}"
else
true
fi
pathcomp="${pathcomp}/"
done
fi
if [ x"$dir_arg" != x ]
then
$doit $instcmd $dst &&
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi
else
# If we're going to rename the final executable, determine the name now.
if [ x"$transformarg" = x ]
then
dstfile=`basename $dst`
else
dstfile=`basename $dst $transformbasename |
sed $transformarg`$transformbasename
fi
# don't allow the sed command to completely eliminate the filename
if [ x"$dstfile" = x ]
then
dstfile=`basename $dst`
else
true
fi
# Make a temp file name in the proper directory.
dsttmp=$dstdir/#inst.$$#
# Move or copy the file name to the temp name
$doit $instcmd $src $dsttmp &&
trap "rm -f ${dsttmp}" 0 &&
# and set any options; do chmod last to preserve setuid bits
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $instcmd $src $dsttmp" command.
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi &&
# Now rename the file to the real destination.
$doit $rmcmd -f $dstdir/$dstfile &&
$doit $mvcmd $dsttmp $dstdir/$dstfile
fi &&
exit 0

362
installer-lite.pl
View File

@ -1,362 +0,0 @@
#!/usr/bin/perl -w # please develop with -w
# $Id$
# 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 diagnostics;
use strict; # please develop with the strict pragma
system('clear');
print qq|
*******************************************
* Welcome to the Koha Installation Guide *
*******************************************
This installer will guide you through the process of installing Koha.
It is not a completely automated installation, but a guide for further
information please read the documentation or visit the Koha website at
http://www.koha.org
To successfully use Koha you need some additional software:
* A webserver (It was built to work with Apache, but there is no reason
it should not work with any other webserver).
* Mysql (You could intead use postgres, or another sql based database)
* Perl
Are you ready to go through the installation process now? (Y/[N]):
|;
my $answer = <STDIN>;
chomp $answer;
if ($answer eq "Y" || $answer eq "y") {
print "Beginning setup... \n";
} else {
print qq|
When you are ready to complete the installation just run this installer again.
|;
exit;
};
print "\n";
#
# Test for Perl - Do we need to explicity check versions?
#
print "\nChecking that perl and the required modules are installed ...\n";
unless (eval "require 5.004") {
die "Sorry, you need at least Perl 5.004\n";
}
#
# Test for Perl Dependancies
#
my @missing = ();
unless (eval require DBI) { push @missing,"DBI" };
unless (eval require Date::Manip) { push @missing,"Date::Manip" };
unless (eval require DBD::mysql) { push @missing,"DBD::mysql" };
#
# Print out a list of any missing modules
#
if (@missing > 0) {
print "\n\n";
print "You are missing some Perl modules which are required by Koha.\n";
print "Once these modules have been installed, rerun this installery.\n";
print "They can be installed by running (as root) the following:\n";
foreach my $module (@missing) {
print " perl -MCPAN -e 'install \"$module\"'\n";
exit(1);
}} else{
print "Perl and required modules appear to be installed, continuing...\n";
};
print "\n";
#
#KOHA conf
#
print qq|
Koha uses a small configuration file that is usually placed in your
/etc/ files directory (note: if you wish to place the koha.conf in
another location you will need to manually edit additional files).
We will help you to now create your koha.conf file, once this file
has been created, please copy it to your destination folder
(note: this may need to be done by your systems administrator).
|;
my $dbname;
my $hostname;
my $user;
my $pass;
my $inc_path;
print "\n";
print "\n";
print qq|
Please provide the name of the mysql database that you wish to use
for koha. This is normally "Koha".
|;
#Get the database name
do {
print "Enter database name:";
chomp($dbname = <STDIN>);
};
print "\n";
print "\n";
print qq|
Please provide the hostname for mysql. Unless the database is located
on another machine this is likely to be "localhost".
|;
#Get the hostname for the database
do {
print "Enter hostname:";
chomp($hostname = <STDIN>);
};
print "\n";
print "\n";
print qq|
Please provide the name of the mysql user, who will have full administrative
rights to the $dbname database, when authenicating from $hostname.
It is recommended that you do not use your "root" user.
|;
#Set the username for the database
do {
print "Enter username:";
chomp($user = <STDIN>);
};
print "\n";
print "\n";
print qq|
Please provide a password for the mysql user $user.
|;
#Set the password for the database user
do {
print "Enter password:";
chomp($pass = <STDIN>);
};
print "\n";
print "\n";
print qq|
Please provide the full path to your Koha Intranet/Librarians installation.
Usually /usr/local/www/koha/htdocs
|;
#Get the password for the database user
do {
print "Enter installation path:";
chomp($inc_path = <STDIN>);
};
#Create the configuration file
open(SITES,">koha.conf") or die "Couldn't create file.
Must have write capability.\n";
print SITES <<EOP
database=$dbname
hostname=$hostname
user=$user
password=$pass
includes=$inc_path/includes
EOP
;
close(SITES);
print "Successfully created the Koha configuration file.\n";
print "\n";
#
#SETUP Virtual Host Directives
#
#OPAC Settings
#
my $opac_svr_admin;
my $opac_docu_root;
my $opac_svr_name;
print qq|
You need to setup your Apache configuration file for the
OPAC virtual host.
Please enter the servername for the OPAC interface.
Usually opac.your.domain
|;
do {
print "Enter servername address:";
chomp($opac_svr_name = <STDIN>);
};
print qq|
Please enter the e-mail address for your webserver admin.
Usually webmaster\@your.domain
|;
do {
print "Enter e-mail address:";
chomp($opac_svr_admin = <STDIN>);
};
print qq|
Please enter the full path to your OPAC\'s document root.
usually something like \"/usr/local/www/opac/htdocs\".
|;
do {
print "Enter Document Roots Path:";
chomp($opac_docu_root = <STDIN>);
};
#
# Update Apache Conf File.
#
open(SITES,">>koha-apache.conf") or die "Couldn't write to file.
Must have write capability.\n";
print SITES <<EOP
<VirtualHost $opac_svr_name>
ServerAdmin $opac_svr_admin
DocumentRoot $opac_docu_root
ServerName $opac_svr_name
ErrorLog logs/opac-error_log
TransferLog logs/opac-access_log common
</VirtualHost>
EOP
;
close(SITES);
#
#Intranet Settings
#
my $intranet_svr_admin;
my $intranet_svr_name;
print qq|
You need to setup your Apache configuration file for the
Intranet/librarian virtual host.
Please enter the servername for your Intranet/Librarian interface.
Usually koha.your.domain
|;
do {
print "Enter servername address:";
chomp($intranet_svr_name = <STDIN>);
};
print qq|
Please enter the e-mail address for your webserver admin.
Usually webmaster\@your.domain
|;
do {
print "Enter e-mail address:";
chomp($intranet_svr_admin = <STDIN>);
};
#
# Update Apache Conf File.
#
open(SITES,">>koha-apache.conf") or die "Couldn't write to file.
Must have write capability.\n";
print SITES <<EOP
<VirtualHost $intranet_svr_name>
ServerAdmin $intranet_svr_admin
DocumentRoot $inc_path
ServerName $intranet_svr_name
ErrorLog logs/opac-error_log
TransferLog logs/opac-access_log common
</VirtualHost>
EOP
;
close(SITES);
print "Successfully created the Apache Virtual Host Configuration file.\n";
system('clear');
print qq|
*******************************************
* Koha Installation Guide - Continued *
*******************************************
In order to finish the installation of Koha, there is still a couple
of steps that you will need to complete.
* Setup mysql
1. Create a new mysql database called for example Koha
From command line: mysqladmin -uroot -ppassword create Koha
2. Set up a koha user and password in mysql
Log in to mysql: mysql -uroot -ppassword
To create a user called "koha" who has full administrative
rights to the "Koha" database when authenticating from
"localhost", enter the following on mysql command line:
grant all privileges on Koha.* to koha\@localhost identified by 'kohapassword'\;
Press ENTER, and if you see no errors then enter \q to quit mysql.
3. Use the mysql script to create the tables
mysql -uusername -ppassword Koha < koha.mysql
4. Update your database tables
perl updatedatabase -I /pathtoC4
5. Update your database to use MARC
perl marc/fill_usmarc.pl -I /pathtoC4 to put MARC21 - english datas in parameter table
perl marc/updatedb2marc.pl -I /pathtoC4 to update biblios from old-DB to MARC-DB (!!! it may be long : 30 biblios/second)
* Koha.conf
1. Copy Koha.conf to /etc/
If you wish to locate the file in another location please read
the INSTALL and Hints files.
|;
#
# It is completed
#
print "\nCongratulations ... your Koha installation is complete!\n";
print "\nYou will need to restart your webserver before using Koha!\n";

1028
installer.pl
View File

File diff suppressed because it is too large

788
koha.mysql
View File

@ -1,788 +0,0 @@
# MySQL dump 7.1
#
# Host: localhost Database: c4test
#--------------------------------------------------------
# Server version 3.22.32-log
#
# Table structure for table 'accountlines'
#
CREATE TABLE accountlines (
borrowernumber int(11) DEFAULT '0' NOT NULL,
accountno smallint(6) DEFAULT '0' NOT NULL,
itemnumber int(11),
date date,
amount decimal(28,6),
description text,
dispute text,
accounttype varchar(5),
amountoutstanding decimal(28,6),
timestamp timestamp(14),
KEY acctsborridx (borrowernumber),
KEY timeidx (timestamp)
);
#
# Table structure for table 'accountoffsets'
#
CREATE TABLE accountoffsets (
borrowernumber int(11) DEFAULT '0' NOT NULL,
accountno smallint(6) DEFAULT '0' NOT NULL,
offsetaccount smallint(6) DEFAULT '0' NOT NULL,
offsetamount decimal(28,6),
timestamp timestamp(14)
);
#
# Table structure for table 'additionalauthors'
#
CREATE TABLE additionalauthors (
author text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
KEY bibidx (biblionumber)
);
#
# Table structure for table 'aqbookfund'
#
CREATE TABLE aqbookfund (
bookfundid varchar(5) DEFAULT '' NOT NULL,
bookfundname text,
bookfundgroup varchar(5)
);
#
# Table structure for table 'aqbooksellers'
#
CREATE TABLE aqbooksellers (
id int(11),
name text,
address1 text,
address2 text,
address3 text,
address4 text,
phone varchar(30),
accountnumber text,
othersupplier text,
currency char(3) DEFAULT '' NOT NULL,
deliverydays smallint(6),
followupdays smallint(6),
followupscancel smallint(6),
specialty text,
booksellerfax text,
notes text,
bookselleremail text,
booksellerurl text,
contact varchar(100),
postal text,
url varchar(255),
contpos varchar(100),
contphone varchar(100),
contfax varchar(100),
contaltphone varchar(100),
contemail varchar(100),
contnotes text,
active tinyint(4),
listprice varchar(5),
invoiceprice varchar(5),
gstreg tinyint(4),
listincgst tinyint(4),
invoiceincgst tinyint(4),
discount float(6,4),
fax varchar(50)
);
#
# Table structure for table 'aqbudget'
#
CREATE TABLE aqbudget (
bookfundid char(5) DEFAULT '' NOT NULL,
startdate date DEFAULT '0000-00-00' NOT NULL,
enddate date,
budgetamount decimal(13,2)
);
#
# Table structure for table 'aqorderbreakdown'
#
CREATE TABLE aqorderbreakdown (
ordernumber int(11),
linenumber int(11),
branchcode char(4),
bookfundid char(5) DEFAULT '' NOT NULL,
allocation smallint(6)
);
#
# Table structure for table 'aqorderdelivery'
#
CREATE TABLE aqorderdelivery (
ordernumber date DEFAULT '0000-00-00' NOT NULL,
deliverynumber smallint(6) DEFAULT '0' NOT NULL,
deliverydate varchar(18),
qtydelivered smallint(6),
deliverycomments text
);
#
# Table structure for table 'aqorders'
#
CREATE TABLE aqorders (
ordernumber int(11) DEFAULT '0' NOT NULL auto_increment,
biblionumber int(11),
title text,
requisitionedby varchar(10),
authorisedby varchar(10),
booksellerid varchar(10) DEFAULT '' NOT NULL,
deliverydays smallint(6),
followupdays smallint(6),
numberfollowupsallowed smallint(6),
numberfollowupssent smallint(6),
entrydate date,
dateprinted date,
quantity smallint(6),
currency char(3),
listprice decimal(28,6),
totalamount decimal(28,6),
datereceived date,
booksellerinvoicenumber text,
freight decimal(28,6),
unitprice decimal(28,6),
quantityreceived smallint(6),
sourced text,
cancelledby varchar(10),
quantityreceiveddamaged smallint(6),
datecancellationprinted date,
notes text,
supplierreference text,
purchaseordernumber text,
subscription tinyint(1),
subscriptionfrom date,
subscriptionto date,
serialid varchar(30),
basketno int(11),
biblioitemnumber int(11),
timestamp timestamp(14),
rrp decimal(13,2),
ecost decimal(13,2),
gst decimal(13,2),
PRIMARY KEY (ordernumber)
);
#
# Table structure for table 'biblio'
#
CREATE TABLE biblio (
biblionumber int(11) DEFAULT '0' NOT NULL,
author text,
title text,
unititle text,
notes text,
serial tinyint(1),
seriestitle text,
copyrightdate smallint(6),
timestamp timestamp(14),
KEY blbnoidx (biblionumber),
PRIMARY KEY (biblionumber)
);
#
# Table structure for table 'biblioanalysis'
#
CREATE TABLE biblioanalysis (
analyticaltitle text,
biblionumber int(11) DEFAULT '0' NOT NULL,
analyticalauthor text
);
#
# Table structure for table 'biblioitems'
#
CREATE TABLE biblioitems (
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
volume text,
number text,
classification varchar(25),
itemtype varchar(4),
isbn varchar(14),
issn varchar(9),
dewey double(8,6),
subclass char(3),
publicationyear smallint(6),
publishercode varchar(255),
volumedate date,
volumeddesc varchar(255),
timestamp timestamp(14),
illus varchar(255),
pages varchar(255),
notes text,
size varchar(255),
place varchar(255),
KEY bibinoidx (biblioitemnumber),
KEY bibnoidx (biblionumber),
PRIMARY KEY (biblioitemnumber)
);
#
# Table structure for table 'bibliosubject'
#
CREATE TABLE bibliosubject (
subject text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL
);
#
# Table structure for table 'bibliosubtitle'
#
CREATE TABLE bibliosubtitle (
subtitle text NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
KEY bibsubidx (biblionumber)
);
#
# Table structure for table 'borexp'
#
CREATE TABLE borexp (
borrowernumber int(11),
newexp date
);
#
# Table structure for table 'borrowers'
#
CREATE TABLE borrowers (
borrowernumber int(11) DEFAULT '0' NOT NULL,
cardnumber varchar(9) DEFAULT '' NOT NULL,
surname text NOT NULL,
firstname text NOT NULL,
title text,
othernames text,
initials text NOT NULL,
streetaddress text NOT NULL,
suburb text,
city text NOT NULL,
phone text NOT NULL,
emailaddress text,
faxnumber text,
altstreetaddress text,
altsuburb text,
altcity text,
altphone text,
dateofbirth date,
branchcode varchar(4) DEFAULT '' NOT NULL,
categorycode char(2),
dateenrolled date,
gonenoaddress tinyint(1),
lost tinyint(1),
debarred tinyint(1),
studentnumber text,
school text,
contactname text,
borrowernotes text,
guarantor int(11),
area char(2),
ethnicity varchar(50),
ethnotes varchar(255),
sex char(1),
expiry date,
altnotes varchar(255),
altrelationship varchar(100),
streetcity text,
phoneday varchar(50),
preferredcont char(1),
physstreet varchar(100),
KEY borrowernumber (borrowernumber),
KEY cardnumber (cardnumber)
);
#
# Table structure for table 'branchcategories'
#
CREATE TABLE branchcategories (
categorycode char(2) DEFAULT '' NOT NULL,
branchcode char(4) DEFAULT '' NOT NULL,
branchholding int(11)
);
#
# Table structure for table 'branches'
#
CREATE TABLE branches (
branchcode varchar(4) DEFAULT '' NOT NULL,
branchname text NOT NULL,
branchaddress1 text,
branchaddress2 text,
branchaddress3 text,
branchphone text,
branchfax text,
branchemail text,
issuing tinyint(4),
UNIQUE branchcode (branchcode)
);
#
# Table structure for table 'branchtransfers'
#
CREATE TABLE branchtransfers (
itemnumber int(11) DEFAULT '0' NOT NULL,
datesent date DEFAULT '0000-00-00' NOT NULL,
frombranch varchar(4),
datearrived date,
tobranch varchar(4),
comments text
);
#
# Table structure for table 'catalogueentry'
#
CREATE TABLE catalogueentry (
catalogueentry text NOT NULL,
entrytype char(2),
see text,
seealso text,
seeinstead text,
biblionumber int(11)
);
#
# Table structure for table 'categories'
#
CREATE TABLE categories (
categorycode char(2) DEFAULT '' NOT NULL,
description text,
enrolmentperiod smallint(6),
upperagelimit smallint(6),
dateofbirthrequired tinyint(1),
finetype varchar(30),
bulk tinyint(1),
enrolmentfee decimal(28,6),
overduenoticerequired tinyint(1),
issuelimit smallint(6),
reservefee decimal(28,6),
UNIQUE categorycode (categorycode)
);
#
# Table structure for table 'categoryitem'
#
CREATE TABLE categoryitem (
categorycode char(2) DEFAULT '' NOT NULL,
itemtype varchar(4) DEFAULT '' NOT NULL,
restrictedtype tinyint(1),
rentaldiscount decimal(28,6),
reservecharge decimal(28,6),
fine decimal(28,6),
firstremind int(11),
chargeperiod int(11),
accountsent int(11),
chargename varchar(100)
);
#
# Table structure for table 'classification'
#
CREATE TABLE classification (
classification varchar(12) DEFAULT '' NOT NULL
);
#
# Table structure for table 'currency'
#
CREATE TABLE currency (
currency varchar(10),
rate float(7,5)
);
#
# Table structure for table 'deletedbiblio'
#
CREATE TABLE deletedbiblio (
biblionumber int(11) DEFAULT '0' NOT NULL,
author text,
title text,
unititle text,
notes text,
serial tinyint(1),
seriestitle text,
copyrightdate smallint(6),
timestamp timestamp(14),
KEY blbnoidx (biblionumber),
PRIMARY KEY (biblionumber)
);
#
# Table structure for table 'deletedbiblioitems'
#
CREATE TABLE deletedbiblioitems (
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
volume text,
number text,
classification varchar(25),
itemtype varchar(4),
isbn varchar(14),
issn varchar(9),
dewey double(8,6),
subclass char(3),
publicationyear smallint(6),
publishercode varchar(255),
volumedate date,
volumeddesc varchar(255),
timestamp timestamp(14),
illus varchar(255),
pages varchar(255),
notes text,
size varchar(255),
KEY bibinoidx (biblioitemnumber),
KEY bibnoidx (biblionumber),
PRIMARY KEY (biblioitemnumber)
);
#
# Table structure for table 'deletedborrowers'
#
CREATE TABLE deletedborrowers (
borrowernumber int(11) DEFAULT '0' NOT NULL,
cardnumber varchar(9) DEFAULT '' NOT NULL,
surname text NOT NULL,
firstname text NOT NULL,
title text,
othernames text,
initials text NOT NULL,
streetaddress text NOT NULL,
suburb text,
city text NOT NULL,
phone text NOT NULL,
emailaddress text,
faxnumber text,
altstreetaddress text,
altsuburb text,
altcity text,
altphone text,
dateofbirth date,
branchcode varchar(4) DEFAULT '' NOT NULL,
categorycode char(2),
dateenrolled date,
gonenoaddress tinyint(1),
lost tinyint(1),
debarred tinyint(1),
studentnumber text,
school text,
contactname text,
borrowernotes text,
guarantor int(11),
area char(2),
ethnicity varchar(50),
ethnotes varchar(255),
sex char(1),
expiry date,
altnotes varchar(255),
altrelationship varchar(100),
streetcity text,
phoneday varchar(50),
preferredcont varchar(100),
physstreet varchar(100),
KEY borrowernumber (borrowernumber),
KEY cardnumber (cardnumber)
);
#
# Table structure for table 'deleteditems'
#
CREATE TABLE deleteditems (
itemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(28,6),
replacementprice decimal(28,6),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
interim tinyint(1),
timestamp timestamp(14),
KEY itembarcodeidx (barcode),
KEY itembinoidx (biblioitemnumber),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber),
UNIQUE barcode (barcode)
);
#
# Table structure for table 'issues'
#
CREATE TABLE issues (
borrowernumber int(11) DEFAULT '0' NOT NULL,
itemnumber int(11) DEFAULT '0' NOT NULL,
date_due date,
branchcode char(4),
issuingbranch char(18),
returndate date,
lastreneweddate date,
return char(4),
renewals tinyint(4),
timestamp timestamp(14),
KEY issuesborridx (borrowernumber),
KEY issuesitemidx (itemnumber),
KEY bordate (borrowernumber,timestamp)
);
#
# Table structure for table 'items'
#
CREATE TABLE items (
itemnumber int(11) DEFAULT '0' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
biblioitemnumber int(11) DEFAULT '0' NOT NULL,
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(8,2),
replacementprice decimal(8,2),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
paidfor text,
timestamp timestamp(14),
KEY itembarcodeidx (barcode),
KEY itembinoidx (biblioitemnumber),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber),
UNIQUE barcode (barcode)
);
#
# Table structure for table 'itemsprices'
#
CREATE TABLE itemsprices (
itemnumber int(11),
price1 decimal(28,6),
price2 decimal(28,6)
);
#
# Table structure for table 'itemtypes'
#
CREATE TABLE itemtypes (
itemtype varchar(4) DEFAULT '' NOT NULL,
description text,
loanlength smallint(6),
renewalsallowed smallint(6),
rentalcharge double(16,4),
UNIQUE itemtype (itemtype)
);
#
# Table structure for table 'multipart'
#
CREATE TABLE multipart (
itemnumber int(11) DEFAULT '0' NOT NULL,
other int(11) DEFAULT '0' NOT NULL
);
#
# Table structure for table 'multivolume'
#
CREATE TABLE multivolume (
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30) DEFAULT '' NOT NULL
);
#
# Table structure for table 'newitems'
#
CREATE TABLE newitems (
itemnumber int(11) DEFAULT '0' NOT NULL,
publishercode varchar(18),
biblionumber int(11) DEFAULT '0' NOT NULL,
multivolumepart varchar(30),
barcode varchar(9) DEFAULT '' NOT NULL,
dateaccessioned date,
booksellerid varchar(10),
homebranch varchar(4),
price decimal(28,6),
replacementprice decimal(28,6),
replacementpricedate date,
datelastborrowed date,
datelastseen date,
multivolume tinyint(1),
stack tinyint(1),
notforloan tinyint(1),
itemlost tinyint(1),
wthdrawn tinyint(1),
bulk varchar(30),
issues smallint(6),
renewals smallint(6),
reserves smallint(6),
restricted tinyint(1),
binding decimal(28,6),
itemnotes text,
holdingbranch varchar(4),
interim tinyint(1),
volume text,
number text,
classification varchar(12),
itemtype varchar(4),
isbn varchar(14),
issn varchar(9),
dewey double(16,4),
subclass char(3),
publicationyear smallint(6),
KEY itembarcodeidx (barcode),
KEY itembibnoidx (biblionumber),
PRIMARY KEY (itemnumber)
);
#
# Table structure for table 'printers'
#
CREATE TABLE printers (
printername char(40),
printqueue char(20),
printtype char(20)
);
#
# Table structure for table 'procedures'
#
CREATE TABLE procedures (
proccode varchar(4),
procdesc text,
proclevel smallint(6)
);
#
# Table structure for table 'publisher'
#
CREATE TABLE publisher (
publishercode varchar(18) DEFAULT '' NOT NULL,
publishername text NOT NULL
);
#
# Table structure for table 'reserveconstraints'
#
CREATE TABLE reserveconstraints (
borrowernumber int(11) DEFAULT '0' NOT NULL,
reservedate date DEFAULT '0000-00-00' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
biblioitemnumber int(11),
timestamp timestamp(14)
);
#
# Table structure for table 'reserves'
#
CREATE TABLE reserves (
borrowernumber int(11) DEFAULT '0' NOT NULL,
reservedate date DEFAULT '0000-00-00' NOT NULL,
biblionumber int(11) DEFAULT '0' NOT NULL,
constrainttype char(1),
branchcode varchar(4),
notificationdate date,
reminderdate date,
cancellationdate date,
reservenotes text,
priority smallint(6),
found char(1),
timestamp timestamp(14),
itemnumber int(11)
);
#
# Table structure for table 'searchstats'
#
CREATE TABLE searchstats (
time datetime,
searchstring text
);
#
# Table structure for table 'serialissues'
#
CREATE TABLE serialissues (
biblionumber int(11) DEFAULT '0' NOT NULL,
volume varchar(20) DEFAULT '' NOT NULL,
number varchar(20) DEFAULT '' NOT NULL,
ordernumber smallint(6),
issuedate varchar(20),
received varchar(18)
);
#
# Table structure for table 'statistics'
#
CREATE TABLE statistics (
datetime datetime DEFAULT '0000-00-00 00:00:00' NOT NULL,
branch varchar(4),
proccode varchar(4),
value double(16,4),
type varchar(16),
other text,
usercode varchar(10),
itemnumber int(11),
itemtype varchar(4),
borrowernumber int(11) default NULL,
KEY timeidx (datetime)
);
#
# Table structure for table 'stopwords'
#
CREATE TABLE stopwords (
word varchar(255)
);
#
# Table structure for table 'systempreferences'
#
CREATE TABLE systempreferences (
variable char(50) DEFAULT '' NOT NULL,
value char(200),
PRIMARY KEY (variable)
);
#
# Table structure for table 'users'
#
CREATE TABLE users (
usercode varchar(10),
username text,
password text,
level smallint(6)
);

947
safe-installer
View File

@ -1,947 +0,0 @@
#!/usr/bin/perl -w
# $Id$
# Copyright 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 vars qw( $answer $missing $status );
use vars '@CLEANUP'; # A stack of references-to-code. When this script
# exits, whether normally or abnormally, each
# bit of cleanup code is run to clean up. See
# also &cleanup, below.
use vars '%CACHE'; # Cached values from the previous run, used to
# supply defaults when the user runs the installer
# a second time.
use vars '%PROG'; # This hash maps internal names for programs to
# their full pathnames, e.g.
# $PROG{"perl"} eq "/usr/local/bin/perl"
use vars '@PROG_DEF'; # This contains declarations saying which external
# programs the installer needs to find.
use vars qw($KOHA_CONF);
# Location of koha.conf file
use vars qw(%PERL_MODULES);
# Installed perl modules. Actually, these are
# only the optional modules, since the
# installer dies if it can't find one or more
# required modules.
use vars qw($DB_NAME $DB_HOST $DB_USER $DB_PASSWD);
# Database name, host, user, and password for
# accessing the Koha database.
use vars qw($MYSQL_ADMIN $MYSQL_PASSWD);
# MySQL administrator name and password. Used
# to create the database and give the Koha
# user privileges on the Koha database.
use vars qw($USE_VHOSTS);
# True iff we'll be using virtual hosts
use vars qw($OPAC_HOST @OPAC_REALHOSTS $INTRA_HOST @INTRA_REALHOSTS);
# Web hosts: $OPAC_HOST and $INTRA_HOST are
# the (virtual) hosts on which the OPAC and
# intranet reside.
# @OPAC_REALHOSTS and @INTRA_REALHOSTS list
# the real hosts on which the $OPAC_HOST and
# $INTRA_HOST (virtual) hosts reside. They are
# arrays because the user might spread the
# load among several real hosts.
$SIG{'__DIE__'} = \&sig_DIE; # Clean up after we die
$SIG{'INT'} = \&sig_INT; # Clean up if ^C given
$| = 1; # Flush output immediately, in case the
# user is piping this script or something.
# XXX - Log everything that happens
### Phase 1: Gather information
# Warn the installer about potential nastiness, and give ver a chance
# to abort now.
$answer = &y_or_n(<<EOT, 1);
WARNING WARNING WARNING WARNING
This is an unstable version of Koha, blah blah blah unhappiness
blah blah nuclear war blah blah spouse will leave you blah blah
Are you sure you want to continue?
EOT
if (!$answer)
{
exit 0;
}
# XXX - Make sure we're in the right directory. Look for a few
# required files ("koha.mysql" seems like a good candidate). If they
# don't exist, try 'cd `dirname $0`' and try again.
# See if there's a cache file, and load it if the user'll allow us
if ( -f "installer.cache" )
{
$answer = &y_or_n(<<EOT, 1);
There appears to be a cache file left over from a previous
run of $0. Do you wish to reuse this information?
EOT
&load_cache if $answer;
}
# Figure out a default location for koha.conf. First, try the location
# specified in the previous run, then the value of the $KOHA_CONF
# environment variable (hey, it might be set), and finally
# /etc/koha.conf.
$KOHA_CONF = $CACHE{"koha_conf"} ||
$ENV{"KOHA_CONF"} ||
"/etc/koha.conf";
$CACHE{"koha_conf"} = $KOHA_CONF;
# If there's a /etc/koha.conf, ask whether the user wants installer to
# read it for hints.
if ( -r $KOHA_CONF)
{
$answer = &y_or_n(<<EOT, defined($CACHE{"hints_from_old_koha_conf"}) ? $CACHE{"hints_from_old_koha_conf"} : 1);
You already have a $KOHA_CONF file.
Shall I read it to get hints as to where to install Koha?
EOT
$CACHE{"hints_from_old_koha_conf"} = $answer;
if ($answer)
{
my $old_koha_conf;
$old_koha_conf = &read_koha_conf($CACHE{"koha_conf"});
# Read the existing config file
# Slurp the old config values into %CACHE, with a
# "conf_" prefix.
while (my ($key, $value) = each %{$old_koha_conf})
{
$CACHE{"conf_$key"} = $value;
}
}
# XXX - Ask whether the user wants a backup of the existing
# database.
}
delete $CACHE{"conf_pass"}; # Don't cache any passwords
print "\n* Looking for common programs.\n\n";
# Define the list of external programs we need to find
@PROG_DEF = (
# The bit on the left is the program as we'll refer to it
# internally, usually something like $PROG{"perl"}. On the
# right is the list of names under which it might be
# installed.
[ "stty" => "stty" ],
[ "chown" => "chown" ],
[ "chmod" => "chmod" ],
[ "perl" => "perl", "perl5" ],
[ "install" => "ginstall", "install" ],
[ "make" => "gmake", "make" ],
[ "mysql" => "mysql" ],
[ "mysqladmin" => "mysqladmin" ],
[ "mysqldump" => "mysqldump" ],
);
# First, we try to find the programs automatically on the user's
# $PATH. Later, we'll give ver a chance to override any and all of
# these paths, but presumably the automatic search will be correct
# 90+% of the time, so this reduces erosion on the user's <return>
# key.
foreach my $prog_def (@PROG_DEF)
{
my $prog = shift @{$prog_def};
my $fullpath; # Full path to program
next if !defined($prog);
printf "%-20s: ", $prog;
$fullpath = $CACHE{"prog_$prog"} || &find_program(@{$prog_def});
if (!defined($fullpath))
{
# Can't find this program
$missing = 1;
print "** Not found\n";
next;
}
$CACHE{"prog_$prog"} =
$PROG{$prog} = $fullpath;
print $fullpath, "\n";
}
if ($missing)
{
# One or more programs were not found. We've already printed
# an error message about this above.
print <<EOT;
WARNING:
Some programs could not be found.
EOT
} else {
# Ask the user
$answer = &y_or_n("Does this look okay?", 1);
$missing = 1 if !$answer;
}
if ($missing)
{
# Either some program could not be found, or else the user
# didn't like the paths. Either way, go through the list and
# ask.
foreach my $prog_def (@PROG_DEF)
{
my $prog = shift @{$prog_def};
my $fullpath; # Full path to program
$fullpath = &ask(<<EOT, $PROG{$prog});
Please enter the full pathname to $prog:
EOT
$CACHE{"prog_$prog"} = $fullpath;
}
}
# Check for required Perl modules
# XXX - Perhaps should cache $PERL5LIB as well
print "\nChecking for required Perl modules.\n";
$missing = 0;
# DBI
printf "%-20s: ", "DBI...";
if (eval { require DBI; })
{
print "Found\n";
} else {
print "Not found\n";
$missing = 1;
}
# DBD::mysql
printf "%-20s: ", "DBD::mysql...";
if (eval { require DBD::mysql; })
{
print "Found\n";
} else {
print "Not found\n";
$missing = 1;
}
# Date::Manip
printf "%-20s: ", "Date::Manip...";
if (eval { require Date::Manip; })
{
print "Found\n";
} else {
print "Not found\n";
$missing = 1;
}
if ($missing)
{
print <<EOT;
One or more required Perl modules appear to be missing. Please install
them, then run $0 again.
EOT
exit 1;
}
print "\nChecking for optional Perl modules.\n";
$missing = 0;
# Net::Z3950
printf "%-20s: ", "Net::Z3950...";
if (eval { require Net::Z3950; })
{
print "Found\n";
$PERL_MODULES{"Net::Z3950"} = 1;
} else {
print "Not found\n";
$missing = 1;
}
if ($missing)
{
print <<EOT;
One or more optional Perl modules appear to be missing. Koha may still
be installed, but some optional features may not be enabled.
EOT
$answer = &y_or_n(<<EOT, 0);
Do you wish to abort the installation?
EOT
}
print "\n* Configuring database\n";
# Get the database administrator's name
$MYSQL_ADMIN = &ask(<<EOT, $CACHE{"dba_user"});
Please enter the MySQL database administrator's name:
EOT
#'
$CACHE{"dba_user"} = $MYSQL_ADMIN;
# Get the database administrator's password
# This is NOT cached
push @CLEANUP, sub { system $PROG{"stty"}, "echo"; };
# Restore screen echo if we get interrupted
system $PROG{"stty"}, "-echo"; # Turn off screen echo
$MYSQL_PASSWD = &ask(<<EOT, "");
Please enter the MySQL database administrator's password. This will
not be written to any file, and is optional. If you leave this blank,
you will be prompted for it every time it is needed, in the
installation phase.
Database administrator password:
EOT
#'
system $PROG{"stty"}, "echo"; # Turn screen echo back on
print "\n"; # The user's \n, which wasn't displayed
# Get the database name
$DB_NAME = &ask(<<EOT, $CACHE{"db_name"} || $CACHE{"conf_database"});
Please enter the name of the Koha database:
EOT
$CACHE{"db_name"} = $DB_NAME;
# Get database host
$DB_HOST = &ask(<<EOT, $CACHE{"db_host"} || $CACHE{"conf_hostname"});
Please enter the hostname or IP address of the host on which the
database should be installed:
EOT
$CACHE{"db_host"} = $DB_HOST;
# Get the name of the Koha (database) user
$DB_USER = &ask(<<EOT, $CACHE{"db_user"} || $CACHE{"conf_user"});
Please enter the name of the Koha user:
EOT
$CACHE{"db_user"} = $DB_USER;
# Get the Koha database password
# The Koha password is not cached, since the installer cache file is
# world-readable (unless the user has an unusually restrictive umask,
# but we can't assume that).
# XXX - Actually, we might need up to three passwords: one for the
# intranet, one for the OPAC, and one for the database server. Or
# perhaps we need two or three Koha users; the point is to minimize
# the amount of damage that can be wrought if someone breaks in to a
# web or database server.
#
# The OPAC Koha user should be allowed to read anything, and update a
# few limited tables, like session IDs and suchlike, but should on no
# account be permitted to modify the catalogue.
#
# The intranet Koha user should have permission to read everything and
# write all sorts of things, including the catalogue, but should not
# be allowed to drop tables or do anything destructive to the database
# itself.
#
# The maintenance user should be allowed to do everything. Then again,
# perhaps the maintenance user can be installed manually by a clueful
# DBA.
system $PROG{"stty"}, "-echo"; # Turn off screen echo
$DB_PASSWD = &ask(<<EOT, $CACHE{"conf_pass"});
Please enter the Koha user's password:
EOT
#'
system $PROG{"stty"}, "echo"; # Turn screen echo back on
print "\n"; # The user's \n, which wasn't displayed
# XXX - Ask whether to install sample data. Default to no, especially
# if the user requested a backup, earlier.
# XXX - Ask whether to restore the database from a backup. Should take
# a glob pattern, and read each file in turn. Should default to the
# backup we made earlier.
print "\n* Web site configuration.\n";
# XXX - Get information about how to set up the web servers.
# Specifically:
# - Will you be using virtual hosts?
# - OPAC virtual host name?
# - OPAC real host name?
# Need to grant read-only authorization to Koha user
# from the real OPAC host. Perhaps have different
# passwords for intranet and OPAC access.
# - Intranet virtual host name?
# - Intranet real host name?
# Need to grant all access to Koha user from the real
# intranet host. Perhaps have different passwords for
# intranet and OPAC access.
# - Is the database server also running a web server?
# If so, then need to grant OPAC or intranet access to
# the database from "localhost".
# XXX - Try to guess this from $CACHE{conf_*}
# XXX - Ask whether one machine will be both the only OPAC server and
# the only intranet server. If yes, then a) we need to use virtual
# hosts (for now), and b) we probably want to use the same koha.conf
# file for both.
$USE_VHOSTS = &y_or_n(<<EOT, $CACHE{"use_vhosts"} || 1);
Will you be using virtual hosts for either the OPAC or intranet
site?
EOT
$CACHE{"use_vhosts"} = $USE_VHOSTS;
$OPAC_HOST = &ask(<<EOT, $CACHE{"opac_host"});
What is the externally-visible name of the host on which the OPAC web
site will reside?
EOT
$CACHE{"opac_host"} = $OPAC_HOST;
if ($USE_VHOSTS)
{
# XXX - Prompt for list of real hosts
@OPAC_REALHOSTS = ($OPAC_HOST); # XXX - Just temporary
} else {
@OPAC_REALHOSTS = ($OPAC_HOST);
}
$CACHE{"opac_realhosts"} = join(" ", @OPAC_REALHOSTS);
#$INSTALL_OPAC = &y_or_n("Do you wish to install the OPAC web site?", 1);
## XXX - Gather OPAC information
#$INSTALL_INTRANET = &y_or_n("Do you wish to install the intranet web site?",
# 1);
## XXX - Gather intranet information
# XXX - Get apache.conf file
# XXX - Find out where to install
# - OPAC HTML files
# - OPAC cgi-bin files
# - Intranet HTML files
# - Intranet cgi-bin files
# XXX - Try to guess this from $CACHE{conf_*}
# XXX - Get the user and group that should own these files. Try to
# guess this from the "User" and "Group" lines in apache.conf. If the
# user is found but the group isn't, use getgr*() and use the first
# group found there. In any case, ask the user to confirm.
# XXX - Get root URLs:
# - OPAC HTML
# - OPAC cgi-bin
# - Intranet HTML
# - Intranet cgi-bin
# XXX - Try to guess this from $CACHE{conf_*}
&save_cache; # Write the cache file for future use
### XXX - Phase 2: Generate config files
# XXX - Generate sample apache.conf section for OPAC and internal
# virtual hosts.
# Generate the configuration file that will be used by 'make'
&write_conf("Make.conf", undef,
"db_passwd" => $DB_PASSWD
);
# Generate koha.conf
# XXX - Ask whether to use the same koha.conf file for the intranet
# and OPAC sites.
&write_conf("koha.conf.new", "koha.conf.in",
"db_passwd" => $DB_PASSWD
);
### XXX - Phase 3: Install files
# XXX - Warn the user that the installation will reveal the DBA and
# Koha user's passwords (briefly) in the output of 'ps'. That for
# greater security, he should do things manually.
# XXX - Also perhaps set $ENV{MYSQL_PWD}
# XXX - Actually, this should just use 'make <whatever>' to do stuff.
# XXX - In each case, give user a chance to edit the file first.
# XXX - Make sure to convert #! line before installing any scripts
# XXX - When overwriting files, make sure to keep a backup
# XXX - Installing/upgrading database:
# - Get MySQL admin username and password
# - Get database hostname
# - See if the database exists already. If not, create it.
# - See if koha user has rights on the database. If not, add them.
# XXX - 'make install-db', if requested
$answer = &y_or_n(<<EOT, 1);
Would you like to create the Koha database now?
EOT
if ($answer)
{
$status = system $PROG{"make"}, "install-db";
if ($status != 0)
{
print <<EOT;
*** Error
The database installation appears to have failed. Please read any
error messages that may have been reported above, correct them, and
try again.
EOT
if (&y_or_n(<<EOT, 1))
Do you wish to abort the installation?
EOT
{
print "Exiting.\n";
&cleanup;
exit 1;
}
}
} else {
print <<EOT;
When you are ready, you can install the database by running
make install-db
EOT
}
&cleanup; # Clean up before exiting
########################################
# Utility functions
# readfile
# Read the contents of a file and return them. This is basically
# /bin/cat.
# In a scalar context, returns a string with the contents of the file.
# In array context, returns an array containing the chomp()ed strings
# comprising the file.
#
# Thus, if you just want to read the chomp()ed first line of a file,
# you can
# ($line) = &readfile("/my/file");
sub readfile
{
my $fname = shift;
my @lines;
open F, "< $fname" or die "Can't open $fname: $!";
@lines = <F>; # Slurp in the whole file
close F;
if (defined(wantarray) && wantarray)
{
# Array context. Return a list of lines
for (@lines)
{
chomp;
}
return @lines;
}
# Void or scalar context. Return the concatenation of the
# lines.
return join("", @lines);
}
# load_cache
# Read the cache file, and store cached values in %CACHE.
# The format of the cache file is:
# <variable><space><value>
# Note: there is only one space between the variable and its value.
# This allows us to have values with whitespace in them.
#
# Blank lines are ignored. Any line that begins with "#" is a comment.
# The value may contain escape sequences of the form "\xAB", where
# "AB" is a pair of hex digits representing the ASCII value of the
# real character.
sub load_cache
{
open CACHE, "< installer.cache" or do {
warn "Can't open cache file :$!";
return;
};
while (<CACHE>)
{
my $var;
my $value;
chomp;
next if /^\#/; # Ignore comments
next if /^\s*$/; # Ignore blank lines
if (!/^(\w+)\s(.*)/)
{
warn "Bad line in cache file, line $.:\n$_\n";
}
$var = $1;
$value = $2;
# Unescape special characters
$value =~ s/\\x([0-9a-f]{2})/chr(hex($1))/ge;
$CACHE{$var} = $value;
}
close CACHE;
}
# _sanitize
# Utility function used by &save_cache: escapes suspicious-looking
# characters in a string, and returns the cleaned-up string.
sub _sanitize
{
my $string = shift;
$string =~ s{[^-\+\w\d \t.;/\{\}\@]}{sprintf("\\x%02x", ord($&))}ge;
return $string;
}
# save_cache
# Save cacheable values to the cache file
sub save_cache
{
my $var; # Variable name
my $value; # Variable value
open CACHE, "> installer.cache" or do {
warn "Can't write to cache file: $!";
return;
};
# Write the keys.
while (($var, $value) = each %CACHE)
{
print CACHE "$var\t", &_sanitize($value), "\n";
}
close CACHE;
}
# find_program
# Find a program in $ENV{PATH}. Each argument is a variant name of the
# program to look for. That is,
# &find_program("bison", "yacc");
# will first look for "bison", and if that's not found, will look for
# "yacc".
# Returns the full pathname if found, or undef otherwise. If the
# program appears in multiple path directories, returns the first one.
sub find_program
{
my @path = split /:/, $ENV{"PATH"};
# The $prog loop is on the outside: if the caller calls
# &find_program("bison", "yacc"), that means that the caller
# would prefer to find "bison", but will settle for "yacc".
# Hence, we want to look for "bison" first.
foreach my $prog (@_)
{
foreach my $dir (@path)
{
# Make sure that what we've found is not only
# executable, but also a plain file
# (directories are also executable, you know).
if ( -f "$dir/$prog" && -x "$dir/$prog")
{
return "$dir/$prog";
}
}
}
return undef; # Didn't find it
}
# ask
# Ask the user a question, and return the result.
# If $default is undef, &ask will keep asking the question until it
# gets a nonempty answer.
# If $default is the empty string and the user just hits <return>,
# &ask will return the empty string.
# The remaining arguments, if any, are the list of acceptable answers.
# &ask will keep asking the question until it gets one of the
# acceptable answers. If the list is empty, any answer will do.
# NOTE: the list of acceptable answers is not displayed to the user.
# You need to make them part of the question.
sub ask
{
my $question = shift; # The question to ask
my $default = shift; # The return value if the user just hits
# <return>
my @answers = @_; # The list of acceptable responses
my $answer; # The user's answer
# Prettify whitespace at the end of the question. First, we
# remove the trailing newline that will have been left by
# <<EOT. Then we add a blank if there isn't any whitespace at
# the end of the question, simply because it looks prettier
# that way.
chomp $question;
$question .= " " unless $question =~ /\s$/;
while (1)
{
# Print the question and the default answer, if any
print $question;
if (defined($default) && $default ne "")
{
print "[$default] ";
}
# Read the answer
$answer = <STDIN>;
die "EOF on STDIN" if !defined($answer);
$answer =~ s/^\s+//gs; # Trim whitespace
$answer =~ s/\s+//gs;
if ($answer eq "")
{
# The user just hit <return>. See if that's okay
if (!defined($default))
{
print "Sorry, you must give an answer.\n\n";
redo;
}
# There's a default. Use it.
$answer = $default;
last;
} else {
# The user gave an answer. See if it's okay.
# If the caller didn't specify a list of
# acceptable answers, then all answers are
# okay.
last if $#answers < 0;
# Make sure the answer is on the list
for (@answers)
{
last if $answer eq $_;
}
print "Sorry, I don't understand that answer.\n\n";
}
}
return $answer;
}
# y_or_n
# Asks a yes-or-no question. If the user answers yes, returns true,
# otherwise returns false.
# The second argument, $default, is a boolean value. If not given, it
# defaults to true.
sub y_or_n
{
my $question = shift; # The question to ask
my $default = shift; # Default answer
my $def_prompt; # The "(Y/n)" thingy at the end.
my $answer;
$default = 1 unless defined($default); # True by default
chomp $question;
$question .= " " unless $question =~ /\s$/s;
if ($default)
{
$question .= "(Y/n)";
} else {
$question .= "(y/N)";
}
# Keep asking the question until we get an answer
while (1)
{
$answer = &ask($question, "");
return $default if $answer eq "";
if ($answer =~ /^y(es)?$/i)
{
return 1;
} elsif ($answer =~ /^no?$/) {
return 0;
}
print "Please answer yes or no.\n\n";
}
}
# read_koha_conf
# Reads the specified Koha config file. Returns a reference-to-hash
# whose keys are the configuration variables, and whose values are the
# configuration values (duh).
# Returns undef in case of error.
#
# Stolen from C4/Context.pm, but I'd like this script to be standalone.
sub read_koha_conf
{
my $fname = shift; # Config file to read
my $retval = {}; # Return value: ref-to-hash holding the
# configuration
open (CONF, $fname) or return undef;
while (<CONF>)
{
my $var; # Variable name
my $value; # Variable value
chomp;
s/#.*//; # Strip comments
next if /^\s*$/; # Ignore blank lines
# Look for a line of the form
# var = value
if (!/^\s*(\w+)\s*=\s*(.*?)\s*$/)
{
# FIXME - Complain about bogus line
next;
}
# Found a variable assignment
# FIXME - Ought to complain is this line sets a
# variable that was already set.
$var = $1;
$value = $2;
$retval->{$var} = $value;
}
close CONF;
return $retval;
}
# write_conf
# Very similar to what autoconf does with Makefile.in --> Makefile. So
# similar, in fact, that it should be trivial to make this work with
# autoconf.
#
# &write_conf takes a file name and an optional template file, and
# generates the file by replacing all sequences of the form "@var@" in
# the template with $CACHE{var}.
#
# If the template file name is omitted, it defaults to the output
# file, with ".in" appended.
sub write_conf
{
my $fname = shift; # Output file name
my $template = shift; # Template file name
my %extras = @_; # Additional key=>value pairs
push @CLEANUP, sub { unlink $fname };
# If we're interrupted while writing the
# output file, don't leave a partial one lying
# around
# Generate template file name
$template = $fname . ".in" unless defined $template;
# Generate the output file
open TMPL, "< $template" or die "Can't open $template: $!";
open OUT, "> $fname" or die "Can't write to $fname: $!";
chmod 0600, $fname; # Restrictive permissions
while (<TMPL>)
{
# Replace strings of the form "@var@" with the
# variable's value. Look first in %extras, then in
# %CACHE. Use the first one that's defined. If none of
# them are, use the empty string.
# We can't use
# $extras{$1} || $CACHE{$1}
# because "0" is a perfectly good substitution value,
# but would evaluate as false. And we need the empty
# string because if neither one is defined, the "perl
# -w" option would complain about us using an
# undefined value.
s{\@(\w+)\@}
{
if (defined($extras{$1}))
{
$extras{$1};
} elsif (defined($CACHE{$1}))
{
$CACHE{$1};
} else {
"";
}
}ge;
print OUT;
}
close OUT;
close TMPL;
pop @CLEANUP;
}
# cleanup
# Clean up after the script when it dies. Pops each bit of cleanup
# code from @CLEANUP in turn and executes it. This way, the cleanup
# functions are called in the reverse of the order in which they were
# added.
sub cleanup
{
my $code;
while ($code = pop @CLEANUP)
{
eval &$code;
}
}
# sig_DIE
# This is the $SIG{__DIE__} handler. It gets called when the script
# exits abnormally. It calls &cleanup to remove any temporary files
# and whatnot that may have been created.
sub sig_DIE
{
my $msg = shift; # die() message. Not currently used
return if !defined($^S); # Don't die before parsing is done
return if $^S; # Don't clean up if dying inside
# an eval
&cleanup();
print STDERR "\n", $msg;
die <<EOT;
*** FAILURE ***
The installer has failed. Please check any error messages that
may have been printed above, correct the problem(s), and try again.
EOT
}
# sig_INT
# SIGINT handler. Clean up and exit if the user cancels with ^C.
sub sig_INT
{
&cleanup();
print STDERR <<EOT;
*** CANCELLED ***
Configuration cancelled.
EOT
exit 1;
}

52
testKoha.pl
View File

@ -1,52 +0,0 @@
#!/usr/bin/perl -w
# $Id$
# 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 Test::Harness;
# please add many tests here
# Please make the test name the same as the module name where possible
my @tests=(
't/format.t',
't/Input.t',
't/koha.t',
't/output.t',
't/require.t',
't/Catalogue.t',
);
runtests (@tests);
exit;
# $Log$
# Revision 1.6 2002/08/14 18:12:51 tonnesen
# Added copyright statement to all .pl and .pm files
#
# Revision 1.5 2002/06/20 18:04:46 tonnesen
# Are we getting sick of merging yet? Not me!
#
# Revision 1.1.2.7 2002/06/20 15:19:33 amillar
# Test valid ISBN numbers in Input.pm
#
Write Preview
Loading…
Cancel
Save