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; ...@@ -63,6 +63,19 @@ my $dbname;
my $dbuser; my $dbuser;
my $dbpass; 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 # Parse command arguments. Once we return from getopts, all that should be
# left are the required arguments. # left are the required arguments.
......
...@@ -66,6 +66,13 @@ use libtestbed; ...@@ -66,6 +66,13 @@ use libtestbed;
# Protos # Protos
sub fatal($); 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 # Parse command arguments. Once we return from getopts, all that should be
...@@ -585,6 +592,12 @@ sub DeleteList(@) ...@@ -585,6 +592,12 @@ sub DeleteList(@)
system("$MMBINDIR/rmlist -a $listname") == 0 or system("$MMBINDIR/rmlist -a $listname") == 0 or
fatal("DeleteList: Could not delete mailing list!"); 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; return 0;
} }
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# EMULAB-COPYRIGHT # 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. # All rights reserved.
# #
use English; use English;
...@@ -52,6 +52,9 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'}; ...@@ -52,6 +52,9 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
# #
$| = 1; $| = 1;
# Protos
sub fatal($);
# Load the Testbed support stuff. # Load the Testbed support stuff.
use lib "@prefix@/lib"; use lib "@prefix@/lib";
use libtestbed; use libtestbed;
...@@ -110,8 +113,8 @@ if (system("egrep -q -s '^${listname}:' $aliasfile")) { ...@@ -110,8 +113,8 @@ if (system("egrep -q -s '^${listname}:' $aliasfile")) {
exit(0); exit(0);
sub fatal { sub fatal($) {
local($msg) = $_[0]; my ($msg) = @_;
SENDMAIL($TBOPS, "genelists.proxy failure", $msg); SENDMAIL($TBOPS, "genelists.proxy failure", $msg);
die("*** $0:\n". die("*** $0:\n".
......
...@@ -50,6 +50,20 @@ my $CI = "ci"; ...@@ -50,6 +50,20 @@ my $CI = "ci";
# #
$| = 1; $| = 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 # 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