antovinraj has asked for the wisdom of the Perl Monks concerning the following question:
Hi All,
I want to access all the changes submitted in perforce and to display in the web page for a particular user. CGI Script:
When we execute the script in the browser it is giving output as "256The active user is: www-data". Please provide your inputs. Thank You Antoine.
I want to access all the changes submitted in perforce and to display in the web page for a particular user. CGI Script:
post.cgi:#!/usr/bin/perl -wT use CGI; $cgi = CGI->new; print $cgi->header; print <<EndOfHTML; <form action="post.cgi" method="POST"> <table> <tr><td>Perforce User</td> <td><select size="1" name="user"> <option name="antoine">antoine</option></select> </td></tr> <tr> <td>Start Date</td><td><input name=startdate></td> </tr><tr> <td>End Date</td><td><input name=enddate></td> </tr><tr> <td colspan=2 align=\"center\"><input type=\"submit\" value=\"Sub +mit\"></td> </tr></table></form>"; EndOfHTML
#!/usr/bin/perl -w use CGI; $ENV{ 'PATH' } = '/bin:/usr/bin:/usr/local/bin'; delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV' }; print header; my %form; foreach my $p (param()) { $form{$p} = param($p); } my $user = $form{'user'}; my $output = system ("sudo -i -u avinodh p4 changes -u $user > /tmp/$u +ser"); print $output; print "The active user is: ", `whoami`; print end_html;
When we execute the script in the browser it is giving output as "256The active user is: www-data". Please provide your inputs. Thank You Antoine.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: How to execute a shell command from a CGI script
by hippo (Bishop) on Aug 21, 2014 at 10:16 UTC | |
Holy Security Hole Batman!
by blue_cowdawg (Monsignor) on Aug 21, 2014 at 16:22 UTC | |
Re: How to execute a shell command from a CGI script
by Anonymous Monk on Aug 21, 2014 at 06:48 UTC | |
by antovinraj (Initiate) on Aug 21, 2014 at 06:51 UTC | |
by choroba (Cardinal) on Aug 21, 2014 at 07:52 UTC | |
by marto (Cardinal) on Aug 21, 2014 at 07:54 UTC | |
Re: How to execute a shell command from a CGI script
by CountZero (Bishop) on Aug 22, 2014 at 06:20 UTC |
Back to
Seekers of Perl Wisdom