Changeset 170 for server/common

Timestamp:

Feb 24, 2007, 12:50:05 AM (18 years ago)

Author:

jbarnold

Message:

added uid check to admof

File:

• server/common/oursrc/accountadm/admof.in (modified) (1 diff)

server/common/oursrc/accountadm/admof.in

@@ -30 +30 @@
 unless(($curuser) = ($ARGV[1] =~ /^([\w._-]+)\@ATHENA\.MIT\.EDU$/)) {
   error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
+}
+
+my $uid = getpwnam $targetuser;
+if($uid <= 110) {
+  error();
 }