CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [Laurent_R] Creating Users/Groups: Edit Log



stevenj0728
New User

Dec 9, 2012, 10:21 AM


Views: 1202
Re: [Laurent_R] Creating Users/Groups

It seems that everything works. The program complains about the break in case statement being unquoted. How can I loop this application so that after completing a task except exiting it will prompt the menu again?


#!/usr/bin/perl -w

#use strict;
use warnings;
use Switch;



print "\n Maintenance Tasks Menu \n
1 - Create UNIX Group
2 - Drop UNIX Group
3 - Create User
4 - Drop User
5 - Exit
\n
Please enter the task number you wish execute \n" ;


my $user_input = <> ;
chomp ($user_input) ;
switch($user_input)
{
case 1 { print "Enter group name to create\n";
my $user_input = <>;
chomp ($user_input);
system("groupadd $user_input"); break; }
case 2 { print "Enter group name to delete\n";
my $user_input = <>;
chomp ($user_input);
system("groupdel $user_input"); break; }
case 3 { print "Enter user name to create\n";
my $user_input = <>;
chomp ($user_input);
system("useradd $user_input"); break; }
case 4 { print "Enter user name to delete\n";
my $user_input = <>;
chomp ($user_input);
system("userdel $user_input"); break; }
case 5 { print "You are now exiting the application\n";
exit; break;}

else { print "Invalid task number, please try again\n"; }
}


(This post was edited by stevenj0728 on Dec 9, 2012, 11:26 AM)


Edit Log:
Post edited by stevenj0728 (New User) on Dec 9, 2012, 11:26 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives