All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

Commit 1d4b5916 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Add prototypes for perl 5.8.

parent a504eda0
......@@ -63,6 +63,19 @@ my $dbname;
my $dbuser;
my $dbpass;
# Protos
sub FlysprayUserid($);
sub FlysprayProjectid($);
sub FlysprayGroupid($$);
sub NewFlySprayGroup($$$$);
sub AddUser(@);
sub DelUser(@);
sub AddProject(@);
sub AddGroup(@);
sub SetGroups(@);
sub xLogin(@);
sub fatal($);
#
# Parse command arguments. Once we return from getopts, all that should be
# left are the required arguments.
......
......@@ -66,6 +66,13 @@ use libtestbed;
# Protos
sub fatal($);
sub AddList(@);
sub SetListMembers(@);
sub ModifyMember(@);
sub SetAdminPassword(@);
sub DeleteList(@);
sub ListMembership(@);
sub xLogin(@);
#
# Parse command arguments. Once we return from getopts, all that should be
......@@ -585,6 +592,12 @@ sub DeleteList(@)
system("$MMBINDIR/rmlist -a $listname") == 0 or
fatal("DeleteList: Could not delete mailing list!");
}
# Regen the aliases. We use an external script for this.
$EUID = $UID = 0;
system("$GENALIASES") == 0 or
fatal("AddList: Could not generate a new aliases file!");
return 0;
}
......
......@@ -2,7 +2,7 @@
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2002 University of Utah and the Flux Group.
# Copyright (c) 2000-2002, 2005 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -52,6 +52,9 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
#
$| = 1;
# Protos
sub fatal($);
# Load the Testbed support stuff.
use lib "@prefix@/lib";
use libtestbed;
......@@ -110,8 +113,8 @@ if (system("egrep -q -s '^${listname}:' $aliasfile")) {
exit(0);
sub fatal {
local($msg) = $_[0];
sub fatal($) {
my ($msg) = @_;
SENDMAIL($TBOPS, "genelists.proxy failure", $msg);
die("*** $0:\n".
......
......@@ -50,6 +50,20 @@ my $CI = "ci";
#
$| = 1;
# Protos
sub AddWikiUser(@);
sub DelWikiUser(@);
sub AddWikiProject(@);
sub AddWikiGroup(@);
sub FixWikiProject(@);
sub FixWikiUser(@);
sub FixWikiGroup(@);
sub SetWikiGroups(@);
sub CI($$);
sub WikixLogin(@);
sub WikiRemap(@);
sub fatal($);
#
# Untaint the path
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment