mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-01 22:05:08 +00:00
2680038293
Use new INSTALL_ aliases Clean up creation of majordom user and group Fix problem where the local host was set to 'thud.cdrom.com' in everyone's config by default.
51 lines
1.0 KiB
Perl
51 lines
1.0 KiB
Perl
#!/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;
|
|
}
|
|
|
|
if( getpwnam( "majordom" ) ) {
|
|
( $null, $null, $mjUID ) = getpwnam( "majordom" );
|
|
} else {
|
|
$mjUID = 54;
|
|
while( getpwuid( $mjUID ) ) {
|
|
$mjUID++;
|
|
}
|
|
}
|
|
|
|
if( getgrnam( "majordom" ) ) {
|
|
( $null, $null, $mjGID ) = getgrnam( "majordom" );
|
|
} else {
|
|
$mjGID = 54;
|
|
while( getgrgid( $mjGID ) ) {
|
|
$mjGID++;
|
|
}
|
|
&append_file( "/etc/group", "majordom:*:$mjGID:" );
|
|
}
|
|
|
|
print "majordom user using uid $mjUID\n";
|
|
print "majordom user using gid $mjGID\n";
|
|
|
|
system( "/usr/bin/chpass -a \"majordom:*:$mjUID:$mjGID::0:0:Majordomo pseudo-user:$ENV{'PREFIX'}/majordomo:/nonexistent\"" );
|
|
|
|
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 );
|
|
}
|