Any perl folks can help with some translation?

[Jeremy Chapman]

I've got a 2rd party API written in perl. We want to use it by converting
to a c# .net assembly. Essentially it does HTTP posts to a web page to
send/receive data. I've never done perl, and am hoping someone can help
with conversion, particularly around the setup of the $UA variable and doing
the post.

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;
use HTTP::Cookies;
use HTTP::Request:: Common qw(POST);
use strict;

#Setup package Variables
my ($COOKIE_JAR, $UA, $WEBBASE, $DIR, $DEBUG);
my ($Messages, $Tid, $Result, $Filename) = ("", "", "", "");

#Setup package Constants
my ($RESPONSE, $TMPFILE) = ("response.tmp" , "temp.tmp") ;

use vars qw ($NOT_IMPLEMENT ED $ERROR $VALID $SUCCESS);
($NOT_IMPLEMENT ED, $ERROR, $VALID, $SUCCESS) = (-2, -1, 0, 1);
1;
sub init
{
$WEBBASE = "https://localhost/test";
my ($timeout);
($WEBBASE, $timeout, $DIR, $DEBUG) = @_;
my ($cookiefile) = "cookies.tx t";
if (-d $DIR)
{
$COOKIE_JAR = HTTP::Cookies->new(File =$DIR . $cookiefile,
AutoSave =1,
ignore_discard =1);
$UA = new LWP::UserAgent;
$UA->agent("TestPer l 1.0");
$UA->from("TestAPI" );
$UA->timeout($timeo ut);
$UA->cookie_jar($CO OKIE_JAR);
$COOKIE_JAR->save();
return $SUCCESS;
}
else
{
$Messages = "$DIR is not a valid directory";
return $ERROR;
}
}

sub login
{
my ($uid, $pw) = @_;
my $request = POST $WEBBASE, [ 'username' =$uid,
'password' =$pw,
'ExternalAction ' ='AsignOn'];
my $retVal = processRequest( $request);
if ($retVal == $SUCCESS)
{#valid response
if ($Result ne "SUCCESS")
{
$retVal = $VALID;
}
}
else
{
$retVal = $ERROR;
}
return $retVal;
}

[Nicholas Paldino [.NET/C# MVP]]

Jeremy,

I don't know PERL, but it looks to me like you would want to use the
HttpWebRequest and HttpWebResponse classes in order to perform this
request/response. It shouldn't be too hard to configure the properties from
the values in this script.

Hope this helps.

--
- Nicholas Paldino [.NET/C# MVP]
- mv*@spam.guard. caspershouse.co m

"Jeremy Chapman" <please@Idontli kespamwrote in message
news:O0******** *****@TK2MSFTNG P03.phx.gbl...

I've got a 2rd party API written in perl. We want to use it by converting
to a c# .net assembly. Essentially it does HTTP posts to a web page to
send/receive data. I've never done perl, and am hoping someone can help
with conversion, particularly around the setup of the $UA variable and
doing the post.

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;
use HTTP::Cookies;
use HTTP::Request:: Common qw(POST);
use strict;

#Setup package Variables
my ($COOKIE_JAR, $UA, $WEBBASE, $DIR, $DEBUG);
my ($Messages, $Tid, $Result, $Filename) = ("", "", "", "");

#Setup package Constants
my ($RESPONSE, $TMPFILE) = ("response.tmp" , "temp.tmp") ;

use vars qw ($NOT_IMPLEMENT ED $ERROR $VALID $SUCCESS);
($NOT_IMPLEMENT ED, $ERROR, $VALID, $SUCCESS) = (-2, -1, 0, 1);
1;
sub init
{
$WEBBASE = "https://localhost/test";
my ($timeout);
($WEBBASE, $timeout, $DIR, $DEBUG) = @_;
my ($cookiefile) = "cookies.tx t";
if (-d $DIR)
{
$COOKIE_JAR = HTTP::Cookies->new(File =$DIR . $cookiefile,
AutoSave =1,
ignore_discard =1);
$UA = new LWP::UserAgent;
$UA->agent("TestPer l 1.0");
$UA->from("TestAPI" );
$UA->timeout($timeo ut);
$UA->cookie_jar($CO OKIE_JAR);
$COOKIE_JAR->save();
return $SUCCESS;
}
else
{
$Messages = "$DIR is not a valid directory";
return $ERROR;
}
}

sub login
{
my ($uid, $pw) = @_;
my $request = POST $WEBBASE, [ 'username' =$uid,
'password' =$pw,
'ExternalAction ' ='AsignOn'];
my $retVal = processRequest( $request);
if ($retVal == $SUCCESS)
{#valid response
if ($Result ne "SUCCESS")
{
$retVal = $VALID;
}
}
else
{
$retVal = $ERROR;
}
return $retVal;
}

[Jeremy Chapman]

I've found the HttpWebRequest and response classes, but I'm not sure what
the POST $WEBBASE, [ 'username' =$uid,'password ' =>
$pw,'ExternalAc tion' ='AsignOn']; statement does to the request. Also I
don't know what the $UA->from("TestAPI" ); line sets either.

"Nicholas Paldino [.NET/C# MVP]" <mv*@spam.guard .caspershouse.c omwrote in
message news:uL******** ******@TK2MSFTN GP04.phx.gbl...

Jeremy,

I don't know PERL, but it looks to me like you would want to use the
HttpWebRequest and HttpWebResponse classes in order to perform this
request/response. It shouldn't be too hard to configure the properties
from the values in this script.

Hope this helps.

--
- Nicholas Paldino [.NET/C# MVP]
- mv*@spam.guard. caspershouse.co m

"Jeremy Chapman" <please@Idontli kespamwrote in message
news:O0******** *****@TK2MSFTNG P03.phx.gbl...

>I've got a 2rd party API written in perl. We want to use it by
converting to a c# .net assembly. Essentially it does HTTP posts to a
web page to send/receive data. I've never done perl, and am hoping
someone can help with conversion, particularly around the setup of the
$UA variable and doing the post.

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;
use HTTP::Cookies;
use HTTP::Request:: Common qw(POST);
use strict;

#Setup package Variables
my ($COOKIE_JAR, $UA, $WEBBASE, $DIR, $DEBUG);
my ($Messages, $Tid, $Result, $Filename) = ("", "", "", "");

#Setup package Constants
my ($RESPONSE, $TMPFILE) = ("response.tmp" , "temp.tmp") ;

use vars qw ($NOT_IMPLEMENT ED $ERROR $VALID $SUCCESS);
($NOT_IMPLEMEN TED, $ERROR, $VALID, $SUCCESS) = (-2, -1, 0, 1);
1;
sub init
{
$WEBBASE = "https://localhost/test";
my ($timeout);
($WEBBASE, $timeout, $DIR, $DEBUG) = @_;
my ($cookiefile) = "cookies.tx t";
if (-d $DIR)
{
$COOKIE_JAR = HTTP::Cookies->new(File =$DIR . $cookiefile,
AutoSave =1,
ignore_discard =1);
$UA = new LWP::UserAgent;
$UA->agent("TestPer l 1.0");
$UA->from("TestAPI" );
$UA->timeout($timeo ut);
$UA->cookie_jar($CO OKIE_JAR);
$COOKIE_JAR->save();
return $SUCCESS;
}
else
{
$Messages = "$DIR is not a valid directory";
return $ERROR;
}
}

sub login
{
my ($uid, $pw) = @_;
my $request = POST $WEBBASE, [ 'username' =$uid,
'password' =$pw,
'ExternalAction ' ='AsignOn'];
my $retVal = processRequest( $request);
if ($retVal == $SUCCESS)
{#valid response
if ($Result ne "SUCCESS")
{
$retVal = $VALID;
}
}
else
{
$retVal = $ERROR;
}
return $retVal;
}

[Nicholas Paldino [.NET/C# MVP]]

Jeremy,

If I had to guess, username and password would be set on the Credentials
property of the HttpWebRequest.

The $UA->from("TestAPI" ) call sets the From header, which you can set
through the Headers collection.

I was able to figure that out from the following document on Goggle:

http://kobesearch.cpan.org/htdocs/li...UserAgent.html

I basically searched for "LWP::UserAgent ".

As for the external action, I'm not so sure, but you should be able to
find some documentation for the libraries that script imports and figure out
what it does.
--
- Nicholas Paldino [.NET/C# MVP]
- mv*@spam.guard. caspershouse.co m
"Jeremy Chapman" <please@Idontli kespamwrote in message
news:uJ******** ******@TK2MSFTN GP04.phx.gbl...

I've found the HttpWebRequest and response classes, but I'm not sure what
the POST $WEBBASE, [ 'username' =$uid,'password ' =>
$pw,'ExternalAc tion' ='AsignOn']; statement does to the request. Also I
don't know what the $UA->from("TestAPI" ); line sets either.

"Nicholas Paldino [.NET/C# MVP]" <mv*@spam.guard .caspershouse.c omwrote
in message news:uL******** ******@TK2MSFTN GP04.phx.gbl...

>Jeremy,

I don't know PERL, but it looks to me like you would want to use the
HttpWebReque st and HttpWebResponse classes in order to perform this
request/response. It shouldn't be too hard to configure the properties
from the values in this script.

Hope this helps.

--
- Nicholas Paldino [.NET/C# MVP]
- mv*@spam.guard. caspershouse.co m

"Jeremy Chapman" <please@Idontli kespamwrote in message
news:O0******* ******@TK2MSFTN GP03.phx.gbl...

>>I've got a 2rd party API written in perl. We want to use it by
converting to a c# .net assembly. Essentially it does HTTP posts to a
web page to send/receive data. I've never done perl, and am hoping
someone can help with conversion, particularly around the setup of the
$UA variable and doing the post.

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Status;
use HTTP::Cookies;
use HTTP::Request:: Common qw(POST);
use strict;

#Setup package Variables
my ($COOKIE_JAR, $UA, $WEBBASE, $DIR, $DEBUG);
my ($Messages, $Tid, $Result, $Filename) = ("", "", "", "");

#Setup package Constants
my ($RESPONSE, $TMPFILE) = ("response.tmp" , "temp.tmp") ;

use vars qw ($NOT_IMPLEMENT ED $ERROR $VALID $SUCCESS);
($NOT_IMPLEME NTED, $ERROR, $VALID, $SUCCESS) = (-2, -1, 0, 1);
1;
sub init
{
$WEBBASE = "https://localhost/test";
my ($timeout);
($WEBBASE, $timeout, $DIR, $DEBUG) = @_;
my ($cookiefile) = "cookies.tx t";
if (-d $DIR)
{
$COOKIE_JAR = HTTP::Cookies->new(File =$DIR . $cookiefile,
AutoSave =1,
ignore_discard =1);
$UA = new LWP::UserAgent;
$UA->agent("TestPer l 1.0");
$UA->from("TestAPI" );
$UA->timeout($timeo ut);
$UA->cookie_jar($CO OKIE_JAR);
$COOKIE_JAR->save();
return $SUCCESS;
}
else
{
$Messages = "$DIR is not a valid directory";
return $ERROR;
}
}

sub login
{
my ($uid, $pw) = @_;
my $request = POST $WEBBASE, [ 'username' =$uid,
'password' =$pw,
'ExternalAction ' ='AsignOn'];
my $retVal = processRequest( $request);
if ($retVal == $SUCCESS)
{#valid response
if ($Result ne "SUCCESS")
{
$retVal = $VALID;
}
}
else
{
$retVal = $ERROR;
}
return $retVal;
}