Changeset 170 for server


Ignore:
Timestamp:
Feb 24, 2007, 12:50:05 AM (16 years ago)
Author:
jbarnold
Message:
added uid check to admof
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/accountadm/admof.in

    r124 r170  
    3030unless(($curuser) = ($ARGV[1] =~ /^([\w._-]+)\@ATHENA\.MIT\.EDU$/)) {
    3131  error("An internal error has occurred.\nContact scripts\@mit.edu for assistance.");
     32}
     33
     34my $uid = getpwnam $targetuser;
     35if($uid <= 110) {
     36  error();
    3237}
    3338
Note: See TracChangeset for help on using the changeset viewer.