call Perl Sub Routine through HTML

Hi I am trying to call a perl sub routine through HTML is that possible i.e

Onclick in html i execute a perl sub routine which will do so activity on solaris

IS THIS POSSIBLE !!!!

Find more posts tagged with

Comments

Aghosh

Hi all I am using the get and post method to get the variables name and last name i am able to get the second cgi but when i am checking the variables the "QUERY_STRING" is coming empty even though i can see the value in the url can pls some one advice why i am gettong the QUERY_STRING as empty

First CGI :

First Name:

Last Name:

Called CGI

sample :

local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}else {
$buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)

***********************************************
http://cms.digitas.com/iw-bin/iw_cgi_wrapper.cgi/linkuitility.ipl?first_name=wq&last_name=qwe

ISCBorisB

Hi all I am using the get and post method to get the variables name and last name i am able to get the second cgi but when i am checking the variables the "QUERY_STRING" is coming empty even though i can see the value in the url can pls some one advice why i am gettong the QUERY_STRING as empty

We do not have enough information from your post to answer. On a knee-jerk reflex though...

Instead of trying to reinvent this wheel, why don't you use CGI or TeamSite::CGI_lite Perl Modules?
It'll be much simpler to code now and m-u-u-ch simpler to modify and maintain in the future.

nipper

To follow on from Bo's post, CGIs are easy and common in TeamSite. But it does not even appear you are using TeamSite for this test, it is a basic "can I get a CGI working on Solaris" question

For that answer you need to start doing some debugging. This is pretty basic stuff

ISCBorisB

...This is pretty basic stuff

It may become non-trivial in a hurry if in addition to what one really needs he has to re-invent (some portion of) CGI.pm functionality as well.

Aghosh

Hi All,

Thanks for the reply i am attaching the main file with the fields , i am using cgi for the same. If you can review and see if you can see any issue on the same

I am using the below link :

http://cms.digitas.com/iw-bin/iw_cgi_wrapper.cgi/video_datacapture_callout.ipl

ISCBorisB

Hi All,

Thanks for the reply i am attaching the main file with the fields , i am using cgi for the same. If you can review and see if you can see any issue on the same

I am using the below link :

http://cms.digitas.com/iw-bin/iw_cgi_wrapper.cgi/video_datacapture_callout.ipl

All right. So, you've pasted some fragment of Stone Age, pre-FormAPI CGI Callout sample right
from the Forms Publisher Developer Guide. What kind of "issues" do you expect us to find with it?

You may want to take a look at [thread=27837]this[/thread] and [thread=27987]this[/thread] threads. They illustrate few aspects of FormAPI
"onCallout" Events usage that supersedes obsolete DCT callout URLs.

What is the problem you are trying to solve? Forget "How to do it?" question for a moment. Explain
what exactly do you want to do.

Aghosh

Hi,

What i want is to make a utility which can be integrated to teamsite so my plan was to make a cgi call out , which will have a single field call cms id , user will enter the cms id they want to search and click submit

On submit a new window will open again a cgi where i am capturing the id given by the user and use that id to search the files with in a perticular branch.

I am able to get the id in the send window but when i am trying to run a find and grep command it is giving me issue but in command line it works fine .

i want to execute this command in the send ipl file

find /default/main/bac_enterprise/WORKAREA/shared/ -type f -exec grep -l '7000087' {} \;

Adam Stoller

Hmm - have you tried using TeamSite Search?

ISCBorisB

i am trying to run a find and grep command it is giving me issue but in command line it works fine...

Note that 'system' function does not capture command's execution output. Perhaps you can try to modify it as follows.
Firstly, rigth before execution, log out the command you've built. Double-check that your command is really what you
expect it to be. Secondly, use qx, redirect STDERR to STDOUT and log out execution output as well.
Something Like this:

my $cmds="find // /| grep /-i libc/.so"; # Btw, that's very strange 'find' syntax. Perhaps you meant to escape slash? If so, it's - 'find \/ whatever', not 'find // whatever'
log_it($cmds);

#my $output = system("$cmds>log 2>$1"); Commented Out. Instead:
my $output = qx($cmds 2>$1);
log_it($output);

Adam Stoller

Note that 'system' function does not capture command's execution output. Perhaps you can try to modify it as follows.
Firstly, rigth before execution, log out the command you've built. Double-check that your command is really what you
expect it to be. Secondly, use qx, redirect STDERR to STDOUT and log out execution output as well.
Something Like this:

my $cmds="find // /| grep /-i libc/.so"; # Btw, that's very strange 'find' syntax. Perhaps you meant to escape slash? If so, it's - 'find \/ whatever', not 'find // whatever'
log_it($cmds);

#my $output = system("$cmds>log 2>$1"); Commented Out. Instead:
my $output = qx($cmds 2>$1);
log_it($output);

I believe that should be:

my $ouput = qx($cmds 2>&1);

ISCBorisB

I believe that should be:
my $ouput = qx($cmds 2>&1);

Yes, thank you! My bad, I've edited incorrect command from the posted code and have not noticed....