[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha koha.upgrade,1.1.2.10,1.1.2.11 installer.pl,1.2.2.5
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha koha.upgrade,1.1.2.10,1.1.2.11 installer.pl,1.2.2.55,1.2.2.56 |
Date: |
Tue, 09 Jul 2002 13:16:43 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv7575
Modified Files:
Tag: rel-1-2
koha.upgrade installer.pl
Log Message:
Added warnings if the version to be installed has 'RC' in ther version.
Index: koha.upgrade
===================================================================
RCS file: /cvsroot/koha/koha/koha.upgrade,v
retrieving revision 1.1.2.10
retrieving revision 1.1.2.11
diff -C2 -r1.1.2.10 -r1.1.2.11
*** koha.upgrade 9 Jul 2002 19:39:23 -0000 1.1.2.10
--- koha.upgrade 9 Jul 2002 20:16:41 -0000 1.1.2.11
***************
*** 43,46 ****
--- 43,77 ----
my $newversion=`cat koha.version`;
chomp $newversion;
+ if ($newversion =~ /RC/) {
+ print qq|
+ =====================
+ = RELEASE CANDIDATE =
+ =====================
+
+ WARNING WARNING WARNING WARNING WARNING
+
+ You are about to install Koha version $newversion. This version of Koha is a
+ release candidate. It is not intended to be installed on production systems.
+ It is being released so that users can test it before we release a final
+ version.
+
+ |;
+ print "Are you sure you want to install Koha $newversion? (Y/[N]): ";
+
+ my $answer = <STDIN>;
+ chomp $answer;
+
+ if ($answer eq "Y" || $answer eq "y") {
+ print "Great! continuing setup... \n";
+ } else {
+ print qq|
+
+ Watch for announcements of Koha releases on the Koha mailing list or the Koha
+ web site (http://www.koha.org/).
+
+ |;
+ exit;
+ };
+ }
print qq|
Index: installer.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer.pl,v
retrieving revision 1.2.2.55
retrieving revision 1.2.2.56
diff -C2 -r1.2.2.55 -r1.2.2.56
*** installer.pl 9 Jul 2002 19:45:02 -0000 1.2.2.55
--- installer.pl 9 Jul 2002 20:16:41 -0000 1.2.2.56
***************
*** 16,19 ****
--- 16,52 ----
chomp $kohaversion;
+
+ if ($kohaversion =~ /RC/) {
+ print qq|
+ =====================
+ = RELEASE CANDIDATE =
+ =====================
+
+ WARNING WARNING WARNING WARNING WARNING
+
+ You are about to install Koha version $kohaversion. This version of Koha is a
+ release candidate. It is not intended to be installed on production systems.
+ It is being released so that users can test it before we release a final
+ version.
+
+ |;
+ print "Are you sure you want to install Koha $kohaversion? (Y/[N]): ";
+
+ my $answer = <STDIN>;
+ chomp $answer;
+
+ if ($answer eq "Y" || $answer eq "y") {
+ print "Great! continuing setup... \n";
+ } else {
+ print qq|
+
+ Watch for announcements of Koha releases on the Koha mailing list or the Koha
+ web site (http://www.koha.org/).
+
+ |;
+ exit;
+ };
+ }
+
if (-e "/etc/koha.conf") {
my $installedversion=`grep kohaversion= /etc/koha.conf`;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha koha.upgrade,1.1.2.10,1.1.2.11 installer.pl,1.2.2.55,1.2.2.56,
Steve Tonnesen <=