[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]

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`;