Commit 1d4b5916 authored by Leigh Stoller's avatar Leigh 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