Commit 2370de25 authored by Robert Ricci's avatar Robert Ricci

Added admin permission check. Not really a dangerous script, since it

doesn't change anything, but could be a mild information leak.
parent 0ddfe310
......@@ -7,6 +7,11 @@ use lib '@prefix@/lib';
use libdb;
use English;
if (!TBAdmin($UID)) {
die("*** $0:\n".
" You must be a TB administrator to use this program\n");
}
my ($virtual,$id,$pideid,$members);
print << "END";
ID Project/Experiment Link/LAN Switches (number of members in parens)
......
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