[Kick-developers] CVS: kick install.pl,1.1,1.2

[Michael R. <mr...@us...>]

Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10041

Modified Files:
	install.pl 
Log Message:

Datenbank abfragen und differenzierte Vorbereitung der Datenbank
Unterschiedliche Syntax für MS Access und MySql


Index: install.pl
===================================================================
RCS file: /cvsroot/kick/kick/install.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** install.pl	3 Oct 2001 22:49:54 -0000	1.1
--- install.pl	19 Mar 2002 09:07:55 -0000	1.2
***************
*** 25,28 ****
--- 25,37 ----
  $target =~ s/\/$//;
  
+ # Datenbank abfragen
+ 
+ do {
+     print "Datenbank (mdb|mysql) [mdb] : ";
+     $in = <>;
+     chomp ($in);
+ } while ($in !~ /^\s*(|mdb|mysql)\s*$/i);
+ my $db = $in ne "" ? $1 : 'mdb';
+ 
  # Zielverzeichnis vorbereiten
  
***************
*** 58,63 ****
  # Datenbank vorbereiten
  
! if (!(-e "kick.mdb")) {
!     rename "kick.tmpl.mdb", "kick.mdb";
  }
  
--- 67,95 ----
  # Datenbank vorbereiten
  
! if ($db =~ /mdb/i) {
! 
!     print "Initialisiere MS Access Datenbank.\n";
! 
!     print `perl std driver = ODBC`;
!     print `perl std database = Microsoft Access Driver (*.mdb);dbq=kick.mdb`;
!     print `perl std autocommit = `;
!     print `perl std user = `;
!     print `perl std password = `;
! 
!     if (!(-e "kick.mdb")) {
!         CopyFile ("kick.tmpl.mdb", "kick.mdb");
!         CopyFile ("init.masql", "init.sql");
!     }
! }
! elsif ($db =~ /mysql/i) {
!     print "Initialisiere MySql Datenbank.\n";
! 
!     print `perl std driver = mysql`;
!     print `perl std database = kick:localhost`;
!     print `perl std autocommit = 1`;
!     print `perl std user = admin`;
!     print `perl std password = sa`;
! 
!     CopyFile ("init.mysql", "init.sql");
  }