diff -urN BUILD/orginal/configure.pl BUILD/BackupPC-2.1.0/configure.pl --- BackupPC-2.1.0/configure.pl 2004-06-20 04:28:08.000000000 +0200 +++ BackupPC-2.1.0/configure.pl 2004-11-27 23:29:05.343933152 +0100 @@ -1,4 +1,4 @@ -#!/bin/perl +#!/usr/bin/perl #============================================================= -*-perl-*- # # configure.pl: Configuration and installation program for BackupPC @@ -248,20 +248,18 @@ EOF my($name, $passwd, $Uid, $Gid); -while ( 1 ) { - $Conf{BackupPCUser} = prompt("--> BackupPC should run as user", - $Conf{BackupPCUser} || "backuppc", - "username"); - ($name, $passwd, $Uid, $Gid) = getpwnam($Conf{BackupPCUser}); - last if ( $name ne "" ); +#while ( 1 ) { + $Conf{BackupPCUser} = "backuppc"; + $name = "backuppc"; $passwd = ""; $Uid = "150"; $Gid = "150"; + # last if ( $name ne "" ); print <", $dest) || die("can't open $dest for writing\n"); @@ -724,7 +722,7 @@ close(OUT); if ( !defined($oldConf) ) { die("can't chmod 0640 mode $dest\n") unless chmod(0640, $dest); - die("can't chown $Uid, $Gid $dest\n") unless chown($Uid, $Gid, $dest); +# die("can't chown $Uid, $Gid $dest\n") unless chown($Uid, $Gid, $dest); } if ( $Conf{CgiDir} ne "" ) { @@ -829,7 +827,7 @@ close(PROG); close(OUT); } - die("can't chown $uid, $gid $dest") unless chown($uid, $gid, $dest); +# die("can't chown $uid, $gid $dest") unless chown($uid, $gid, $dest); die("can't chmod $mode $dest") unless chmod($mode, $dest); }