Creating a user in Perl -
i trying create script these options, create user, drop user, create group, drop group. how stop running commands @ once?
#!/usr/bin/perl $opt = 0; &disp_menu; $opt = <>; print "you selected option "; print $opt; $user = `sudo adduser mjensen`; $group = `sudo groupadd group1`; $dgroup = `sudo groupdel group1 `; $duser = `sudo userdel mjensen`; sub disp_menu { print "main menu\n"; print "option 1 create group\n"; print "option 2 drop group\n"; print "option 3 create user\n"; print "option 4 drop user\n"; print "option 5 exit menu\n"; print "enter option => "; return;} if ($opt == 3) {print "$user"; } elsif ($opt == 1) {print "$group\n"; } elsif ($opt == 2) {print "$dgroup\n"; } elsif ($opt == 4) {print "$duser\n"; } elsif ($opt == 5) {print "you have exited program"; }
#!/usr/bin/perl $opt = 0; &disp_menu; $opt = <>; print "you selected option "; print $opt; if ($opt == 3) { $user = `sudo adduser mjensen`; if ( $? != -1 ) { print "user mjensen has been created\n"; } } elsif ($opt == 1) { $group = `sudo groupadd group1`; if ( $? != -1 ) { print "group group1 has been created\n"; } } elsif ($opt == 2) { $dgroup = `sudo groupdel group1`; if ( $? != -1 ) { print "group group1 has been dropped\n"; } } elsif ($opt == 4) { $duser = `sudo userdel mjensen`; if ( $? != -1 ) { print "user mjensen has been dropped\n"; } } elsif ($opt == 5) { print "you have exited program"; } sub disp_menu { print "main menu\n"; print "option 1 create group\n"; print "option 2 drop group\n"; print "option 3 create user\n"; print "option 4 drop user\n"; print "option 5 exit menu\n"; print "enter option => "; return; }
Comments
Post a Comment