From a56bd6b50abfb897c8f9ca60247b17a451f562b4 Mon Sep 17 00:00:00 2001
From: agc <agc>
Date: Fri, 5 Jun 1998 14:09:43 +0000
Subject: Use addnerd to add the user, rather than a custom Perl script.

---
 sysutils/amanda/scripts/createuser | 58 --------------------------------------
 1 file changed, 58 deletions(-)
 delete mode 100644 sysutils/amanda/scripts/createuser

(limited to 'sysutils/amanda')

diff --git a/sysutils/amanda/scripts/createuser b/sysutils/amanda/scripts/createuser
deleted file mode 100644
index 760f2681e65..00000000000
--- a/sysutils/amanda/scripts/createuser
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/usr/bin/perl
-#
-
-eval '(exit $?0)' && eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
-& eval 'exec /usr/bin/perl -S $0 $argv:q'
-if 0;
-
-if( $> ) {
-	print "\nYou must be root to run this step!\n\n";
-	exit 1;
-} 
-
-@ARGV = "backup" unless @ARGV;
-
-$backup = $ARGV[0];
-
-if( getpwnam( $backup ) ) {
-	( $null, $null, $newUID ) = getpwnam( $backup );
-	$addname = 0;
-} else {
-	$newUID = 70;
-	while( getpwuid( $newUID ) ) {
-		$newUID++;
-	}
-	$addname = 1;
-}
-
-if( getgrnam( $backup ) ) {
-	( $null, $null, $newGID ) = getgrnam( $backup );
-} else {
-	$newGID = 70;
-	while( getgrgid( $newGID ) ) {
-		$newGID++;
-	}
-	&append_file( "/etc/group", "${backup}:*:${newGID}:" );
-}
-
-print "Amanda user $backup using uid $newUID\n";
-print "Amanda user $backup using gid $newGID\n";
-
-if ($addname) {
-	system( "/usr/bin/chpass -l -a \"$backup:*************:${newUID}:${newGID}::0:0:Amanda backup user:$ENV{'PREFIX'}/$backup:/bin/sh\"" );
-}
-
-sub append_file {
-	local($file,@list) = @_;
-	local($LOCK_EX) = 2;
-	local($LOCK_NB) = 4;
-	local($LOCK_UN) = 8;
-
-	open(F, ">> $file") || die "$file: $!\n";
-	while( ! flock( F, $LOCK_EX | $LOCK_NB ) ) {
-		exit 1;
-	}
-	print F join( "\n", @list) . "\n";
-	close F;
-	flock( F, $LOCK_UN );
-}
-- 
cgit v1.2.3