Re: MiniMate Install Aborts

[Stefan Hornburg <racke@linuxia.de>]

Dave/WebMaster <ddave@ddave.com> writes:

[...]

> Think there is something buggy in the 'install' script?

Yeah, I have to admit that it is (hopefully was) a rather
nasty hack. Attached is the current version. Please try
it out and report the result.

Thanks !

Racke

-- 
LinuXia - Solutions of Cool Competence - Internetprogramming and more
D-30163 Hannover, Waldstraße 4, 0511-3941290 (http://www.linuxia.de/)
Wir realisieren Onlineshops mit Minivend (http://www.minivend.com)
und MiniMate (http://www.linuxia.de/minimate/).

#! /usr/bin/perl -w
# installer script for MiniMate

# Copyright (C) 1999 Stefan Hornburg

# Author: Stefan Hornburg <racke@linuxia.de>
# Maintainer: Stefan Hornburg <racke@linuxia.de>

# This file 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, or (at your option) any
# later version.

# This file 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 file; see the file COPYING.  If not, write to the Free
# Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.

use strict;

# use provided installation directory
# or the default directory

my $MVROOT = shift || $ENV{'HOME'} . '/mvend';

# check for a MiniVend configuration file
# in this directory

unless (-f "$MVROOT/minivend.cfg")
  {
	die ("Couldn't find MiniVend configuration file within $MVROOT.\n");
  }

# use interpreter executing this script for further processing
# and make it independent from special shell semantics

foreach my $cmd ("echo $MVROOT | $^X Makefile.PL", 'make', 'make install')
  {
    open (PIPE, "$cmd |") || die ("$0: Couldn't execute $cmd: $!\n");
    while (<PIPE>)
      {
        print;
      }
    close (PIPE) || die ("$0: Error(s) executing $cmd\n");
  }