Bullock, Howard A. wrote:
> I have just looked through the documentation for HTTP and LWP but can not
> find a way to interrogate the client for version etc. I would think that
> that data would be in the header of the request.
>
> use HTTP::Daemon;
> use HTTP::Status;
> my $d = HTTP::Daemon->new
> How do I get the details of "HTTP::Headers=HASH(0x1c5d150)"?
What does Data::Dumper say?
use Data::Dumper;
print Dumper $r->headers;
Or just look at the keys:
foreach my $key ( keys %{$r->headers} ) {
print "$key => ", $r->headers->{$key}, "\n";
}
__
Got it!
while (my $r = $c->get_request)
{
print "protocol: " . $r->protocol . "\n";
print "headers: " . $r->headers->{'user-agent'} . "\n";
print "headers: " . $r->headers->{'accept-language'} . "\n";
print "headers: " . $r->headers->{'connection'} . "\n";
I have just looked through the documentation for HTTP and LWP but can not
find a way to interrogate the client for version etc. I would think that
that data would be in the header of the request.
use HTTP::Daemon;
use HTTP::Status;
my $d = HTTP::Daemon->new( LocalPort => 8080);
print "Please
Bullock, Howard A. wrote:
> I am writing in the hope that someone can give me some pointers, code
> snippets, or constructive discussion. My goal is to build an HTTP Win32
> single function service that will monitor a specified port for one URL
> request, gather client/browser info, build and retu
I am writing in the hope that someone can give me some pointers, code
snippets, or constructive discussion. My goal is to build an HTTP Win32
single function service that will monitor a specified port for one URL
request, gather client/browser info, build and return a proxy configuration
script t
I've gotten the attached file to work successfully on my development
machine, however after attempting to run it on another of our environments,
I get the error below during compilation... I'm using the same version of
perl, with the same @LIB paths... Any ideas?
Thanks,
Chris
D:\AribaSpst\Buy
$Bill Luebkert wrote:
> Lawrence Lordanich (x11486) wrote:
>
>> I think I have a real problem here.
>> Does Perl provide a way to work with signed ints? Here is my code:
>>
>>
>>open( BIN, "< $file" ); binmode BIN;
>>while( read(BIN, $buf, 16) )
>> {
>>
>> my @arr = unpack( 'C
On Mon, 26 Aug 2002 [EMAIL PROTECTED] wrote:
> I'm trying to test to make sure my web site is up by connecting to the
> admin web page of my application. The admin web page is an ASP page and
> whenever I set it up using:
>
> use HTTP::Request;
> use LWP::UserAgent;
>
> $filename = D:\\temp\\ms
Lawrence Lordanich (x11486) wrote:
> I think I have a real problem here.
> Does Perl provide a way to work with signed ints? Here is my code:
>
>
>open( BIN, "< $file" ); binmode BIN;
>while( read(BIN, $buf, 16) )
> {
>
> my @arr = unpack( '', $buf );
>
>
I think I have a real problem here.
Does Perl provide a way to work with signed ints? Here is my
code:
open( BIN, "< $file" ); binmode BIN;
while( read(BIN, $buf, 16) )
{
my @arr =
unpack( '', $buf );
my $val1 =
($arr[0] << 8) | $arr[1];
$val2
Many of the MS Windows screen savers have an option to specify a corner of
the screen that you can leave the mouse pointer in, and the screen saver
will never come on. Click the "settings" button, "General" tab.
I just tried it on mine. Doesn't seem to work. Wonderful, advise that
doesn't wor
- Original Message -
From: "Morse, Richard E." <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, August 27, 2002 3:34 AM
Subject: Installing PDF-API2?
> Hi! I'm trying to install the PDF-API2 ppm (btw: will that be updated
> soon?), but I get an error: "no suitable installatio
At 15:22 2002-08-26 -0400, Gan Uesli Starling wrote:
>REASON: Have a MySQL DB & a Perl script which querries
>it ever 2 minutes for new entry. When it sees a new
>entry, Perl calls up MSIE on Win95 to display said
>new entry. But alas, all is wasted if the screen saver
>is hiding it.
Outside of t
I need a Perl sub to trigger the screen saver on Win32.
I don't need to kill the screen saver, or turn it off,
or mess with the Registry. I only want it to work as if
the mouse were moved, or a key were pressed, so that
the screen saver goes away for its regular interval.
REASON: Have a MySQL DB
All,
Today I received unsubscription emails from activestate from all my
subscribed mailing lists. I just wondered if anybody else has had these in
the past.
Wondered if it was a glitch or if somebody is playing silly beggars,
Regards
Marty
___
Perl-
Hi! I'm trying to install the PDF-API2 ppm (btw: will that be updated
soon?), but I get an error: "no suitable installation target found for
package PDF-API2". What does this mean?
Thanks,
Ricky
-
Richard MorseSystem Admin
> > the "real/regular" program will then use for input. It asks the user
> > only two short text questions. Of course any of us would be quite happy
>
> You could check out Win32::GUI (see HTML under .../html/lib/win32) or maybe
> use Tk as an alternative GUI interface - except it may not be ins
[EMAIL PROTECTED] wrote:
>
> I'm trying to test to make sure my web site is up by connecting to the
> admin web page of my application. The admin web page is an ASP page and
> whenever I set it up using:
>
> use HTTP::Request;
> use LWP::UserAgent;
>
> $filename = D:\\temp\\msi.html";
>
> $u
One thing to check is does the ASP have any "browser type" logic in it? You
can manually set the "browser type" for the LWP but it doesn't "default" to
a Netscape or IE types. If the ASP has specific logic for version 4+
browsers then it may not be setup to handle "non-4+" browsers.
-Zac
Chad,
Believe it or not, including the HTML doc is quite easy but not well
documented. All you have to do is place it in the correct directory before
you create your tar file. You can even use pod style docs, inherit the
Active State Style sheets and create the html file from your makefile.pl.
I
I'm trying to test to make sure my web site is up by connecting to the
admin web page of my application. The admin web page is an ASP page and
whenever I set it up using:
use HTTP::Request;
use LWP::UserAgent;
$filename = D:\\temp\\msi.html";
$ua = LWP::UserAgent->new;
$url = "http://webserve
Well, there is the
Win32::Console that you have with AS Perl. Just about everything you would
want to do is there. Building a Console wrapper around Win32::Console to
single out what functions you will be using often (and for building basic
interfaces) would be a day project...
HTH
Joe
Personally, I like Process::Info.
Clear and to the point as to what it does.
Just my two copper into the basket
Joe
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Thomas R Wyant_III
Sent: Monday, August 26, 2002 7:56 AM
To: [EMAIL PROTECTED]
Subject: P
24 matches
Mail list logo
