Or if md5.pm already exists on his machine he could place at the top
of his script:

use lib '/insert/path/to/md5.pm/here';

However I agree that the most likely problem is simply that md5.pm
has not been installed at all on the machine.


--- In perl-beginner@y..., "Andrew Plumb" <techplumb@y...> wrote:
> install this module:
>
> http://www.cpan.org/authors/id/G/GA/GAAS/Digest-MD5-2.14.tar.gz
>
> it contains md5.pm .... maybe something in your mail client includes
> a module which requires md5.
>
> techplumb.
>
> ----- Original Message -----
> From: Evan James Dembskey <evan@t...>
> To: Perl-Beginner <perl-beginner@y...>
> Sent: Friday, August 03, 2001 7:30 PM
> Subject: [PBML] MD5.pm
>
>
> > Hi,
> >
> >
> > I am busy writing a small mail client using Mail::POP3Client.
However,
> > whenever I try to execute my script I get this error:
> >
> > Can't locate MD5.pm in @INC (@INC contains:
> > /usr/local/lib/perl5/alpha-dec_osf/5.00401 /usr/local/lib/perl5
> > /usr/local/lib/perl5/si
> >
> > What does this mean, and how can I fix it?
> >
> > I am running:
> >
> > {trm6}{evan}>perl -V
> > Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration:
> >   Platform:
> >     osname=dec_osf, osvers=4.0, archname=alpha-dec_osf
> >    uname='osf1 osfwork199 v4.0 878 alpha '
> >    hint=recommended, useposix=true, d_sigaction=define
> >      bincompat3=y useperlio= d_sfio=
> >   Compiler:
> >     cc='cc', optimize='-O4', gccversion=
> >   cppflags='-std -D_INTRINSICS -D__LANGUAGE_C__'
> >     ccflags ='-std -D_INTRINSICS -D__LANGUAGE_C__'
> >      stdchar='unsigned char', d_stdstdio=define, usevfork=false
> >      voidflags=15, castflags=0, d_casti32=define, d_castneg=define
> >      intsize=4, alignbytes=8, usemymalloc=y, randbits=15
> >   Linker and Libraries:
> >     ld='ld', ldflags =' -L/usr/local/lib'
> >
libpth=/usr/local/lib /usr/shlib /shlib /lib /usr/lib /usr/ccs/lib
> >     libs=-lnet -ldbm -ldb -lm
> >     libc=/usr/shlib/libc.so, so=so
> >     useshrplib=true, libperl=libperl.so
> >   Dynamic Linking:
> >     dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=,
> > cdlflags='  -Wl,-rpath,/usr/local/lib/perl5/alpha-
dec_osf/5.00401/CORE'
> >     cccdlflags='-call_shared', lddlflags='-shared -
expect_unresolved
> > "*" -O4 -msym -s -L/usr/local/lib'
> >
> >
> > Characteristics of this binary (from libperl):
> >   Built under dec_osf
> >   Compiled at Apr 22 1998 12:31:11
> >   @INC:
> >     /usr/local/lib/perl5/alpha-dec_osf/5.00401
> >     /usr/local/lib/perl5
> >     /usr/local/lib/perl5/site_perl/alpha-dec_osf
> >     /usr/local/lib/perl5/site_perl
> >
> >
> > Regards,
> >
> > Evan
> >
> >
> >
> >
> >
> > Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
> >
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com

Hi,
Can anyone please tell me how to access and parse the
HTTP header from any browser using Perl?

Thanks,
Jhilmil.

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/

that's pretty vague...give an example of what you want to accomplish.

-----Original Message-----
From: JHILMIL JAIN [mailto:jhilmiljain@...]
Sent: Friday, August 03, 2001 4:49 PM
To: perl-beginner@yahoogroups.com
Subject: [PBML] HTTP Header


Hi,
Can anyone please tell me how to access and parse the
HTTP header from any browser using Perl?

Thanks,
Jhilmil.

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail
http://personal.mail.yahoo.com/




Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/

----- Original Message -----
From: "JHILMIL JAIN" <jhilmiljain@...>
> Hi,
> Can anyone please tell me how to access and parse the
> HTTP header from any browser using Perl?

To access HTTP Header is easy. All the CGI environment
variables (%ENV) that start with a "HTTP_" are browser HTTP
header. For example, $ENV{"HTTP_REFERER"} is the value of
the "Referer: " header.

Mostly you don't have to parse it.

Best regards,
imacat ^_*'
imacat@...

<<Woman's Voice>> News: http://www.wov.idv.tw/
Tavern IMACAT's: http://www.imacat.idv.tw/
Previous NTU Palm BBS Les board: telnet 140.112.1.6

--- In perl-beginner@y..., JHILMIL JAIN <jhilmiljain@y...> wrote:
\> I want to get information about which user is using my
> application and his ip address + his email address if
> possible.
>

It is often impossible to read a user's identity and email address
from his http transmission. After all, the user may not wish you to
know this information.

It is always, however, possible to know the user's IP address. The
following script shows how to do it when using the Apache webserver.
You can see this script in action at
http://www.jonathanmark.com/ipreader.pl

The script will return the user's login id if the user has
authenticated himself to the webserver. Most websites do not require
authentication, however.

You can find out more about the CGI module, which is built in to
modern versions of Perl, at
http://stein.cshl.org/WWW/software/CGI/cgi_docs.html

####################################################
use strict;
use LWP;
use HTTP::Request::Common;

use constant ALX_ENTER => 'http://www.alxnet.com';
use constant ALX_REFERER => 'http://www.alxnet.com';


my $ua = LWP::UserAgent->new;
my $newagent = 'enter_alxnet/1.0 (' . $ua->agent . ')';
$ua->agent($newagent);

my $request = POST (ALX_ENTER, Content => [email
=> 'jonathansamuel@...', passwd => 'mangohouse426'], Referer =>
ALX_REFERER);
my $response = $ua->request($request)->as_string;
print $response;

Here is the right one.

use CGI;
use strict;
my $q = new CGI;
print $q->header, $q->start_html('IP Address Reader');
print $q->h2("Your browser's IP address is " . $q->remote_host());
print $q->h2($q->remote_user() . " is logged in.") if $q->remote_user
();
print $q->end_html();

I'm running RH 7.1.  The "installed" version of Perl was 5.6.0 for i386
placed in /usr/bin.  I installed Bundle::CPAN which then prompted to upgrade
my version of Perl to match my machine.  So now I have 5.6.1 for i586 placed
in /usr/local/bin.

Am I going to have any problems here?  Do I need to remove the other Perl
and if so, how?  When I install new modules and the source is complied will
it be placed in the correct local?

Thanks
Frank

----- Original Message -----
From: "JHILMIL JAIN" <jhilmiljain@...>
> I want to get information about which user is using my
> application and his ip address + his email address if
> possible.

Basically, this violates the user privacy. (or it will be
very easy for spammers and others to collect email
addresses) The browsers won't send users' email addresses,
unless you told the users to submit themself.

You could try membership system instead. You could ask them
to register their infomation to gain the priviledge to
access your services. However, you'll also have to prepair a
Privacy Policy first to told the users what they are
submitting, and what their submitted infomation will be used
for, before they submit their infomation.

Best regards,
imacat ^_*'
imacat@...

<<Woman's Voice>> News: http://www.wov.idv.tw/
Tavern IMACAT's: http://www.imacat.idv.tw/
Previous NTU Palm BBS Les board: telnet 140.112.1.6

Hi,

Thanks. I have installed the module from
http://www.cpan.org/authors/id/G/GA/GAAS/Digest-MD5-2.14.tar.gz but now I
get:

	 Can't find loadable object for module Digest::MD5 in @INC
(/usr/local/lib/perl5/alpha-dec_osf/5.00401 /usr/local/lib/perl5 /usr/loc0

How do I fic this problem?


Regards,

Evan


> install this module:
>
> http://www.cpan.org/authors/id/G/GA/GAAS/Digest-MD5-2.14.tar.gz
>
> it contains md5.pm .... maybe something in your mail client includes
> a module which requires md5.
>
> techplumb.
>
> ----- Original Message -----
> From: Evan James Dembskey <evan@...>

> Subject: [PBML] MD5.pm
>
>
> > Hi,
> >
> >
> > I am busy writing a small mail client using Mail::POP3Client. However,
> > whenever I try to execute my script I get this error:
> >
> > Can't locate MD5.pm in @INC (@INC contains:
> > /usr/local/lib/perl5/alpha-dec_osf/5.00401 /usr/local/lib/perl5
> > /usr/local/lib/perl5/si
> >
> > What does this mean, and how can I fix it?

Hello everybody,
where can I fins a program that will check my perl scripts in my
computer and tell me (well ...show me) where I have done mistakes (in
what line). I am using windows 98...
It is rahter inportant for me because I don't want to harm my server
witch is many times down allready...
Thanks ,

I know of a syntax check built in perl

	 ie. perl -c myfile.pl

or do this at the top of ur perlscript

#!/perl/bin -w


and you will see warnings as ur script runs...

- Olly

-----Original Message-----
From: rebelx@... [mailto:rebelx@...]
Sent: 06 August 2001 10:43
To: perl-beginner@yahoogroups.com
Subject: [PBML] A program that check my scripts?


Hello everybody,
where can I fins a program that will check my perl scripts in my
computer and tell me (well ...show me) where I have done mistakes (in
what line). I am using windows 98...
It is rahter inportant for me because I don't want to harm my server
witch is many times down allready...
Thanks ,





Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

Hello,

      I am working in QA-Web based products.  I wish to know the
POTENTIAL of PERL as far as QA activities are concerned. How can I
use perl for testing web-based products?

Thanks in advance.

Rajendra.

??
Sorry, I'm no expert.....
I think MD5.pm requires the Digest module. Not sure if
this will solve it though..... give it a try....
unless advised otherwise by someone on this list who IS
an expert in perl stuff...

http://www.cpan.org/authors/id/G/GA/GAAS/Digest-1.00.tar.gz

Anyone else have ideas ?



----- Original Message -----
From: Evan James Dembskey <evan@...>
To: <perl-beginner@yahoogroups.com>
Sent: Monday, August 06, 2001 6:00 PM
Subject: RE: [PBML] MD5.pm


> Hi,
>
> Thanks. I have installed the module from
> http://www.cpan.org/authors/id/G/GA/GAAS/Digest-MD5-2.14.tar.gz but now I
> get:
>
> Can't find loadable object for module Digest::MD5 in @INC
> (/usr/local/lib/perl5/alpha-dec_osf/5.00401 /usr/local/lib/perl5 /usr/loc0
>
> How do I fic this problem?
>
>
> Regards,
>
> Evan
>
>
> > install this module:
> >
> > http://www.cpan.org/authors/id/G/GA/GAAS/Digest-MD5-2.14.tar.gz
> >
> > it contains md5.pm .... maybe something in your mail client includes
> > a module which requires md5.
> >
> > techplumb.
> >
> > ----- Original Message -----
> > From: Evan James Dembskey <evan@...>
>
> > Subject: [PBML] MD5.pm
> >
> >
> > > Hi,
> > >
> > >
> > > I am busy writing a small mail client using Mail::POP3Client. However,
> > > whenever I try to execute my script I get this error:
> > >
> > > Can't locate MD5.pm in @INC (@INC contains:
> > > /usr/local/lib/perl5/alpha-dec_osf/5.00401 /usr/local/lib/perl5
> > > /usr/local/lib/perl5/si
> > >
> > > What does this mean, and how can I fix it?
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

Hi,


Thanks again. I have installed the digest module, and now I get:


	 Can't locate object method "hexhash" via package "MD5" at
/usr/local/lib/perl5/site_perl/Mail/POP3Client.pm line 384, <GEN0> chunk


Heheh! What now?


> I think MD5.pm requires the Digest module. Not sure if
> this will solve it though..... give it a try....
> unless advised otherwise by someone on this list who IS
> an expert in perl stuff...
>
> http://www.cpan.org/authors/id/G/GA/GAAS/Digest-1.00.tar.gz



Regards,

Evan

http://www.cpan.org/authors/id/G/GA/GAAS/Digest-HMAC-1.01.tar.gz

?


----- Original Message -----
From: Evan James Dembskey <evan@...>
To: <perl-beginner@yahoogroups.com>
Sent: Monday, August 06, 2001 7:30 PM
Subject: RE: [PBML] MD5.pm


> Hi,
>
>
> Thanks again. I have installed the digest module, and now I get:
>
>
> Can't locate object method "hexhash" via package "MD5" at
> /usr/local/lib/perl5/site_perl/Mail/POP3Client.pm line 384, <GEN0> chunk
>
>
> Heheh! What now?
>
>
> > I think MD5.pm requires the Digest module. Not sure if
> > this will solve it though..... give it a try....
> > unless advised otherwise by someone on this list who IS
> > an expert in perl stuff...
> >
> > http://www.cpan.org/authors/id/G/GA/GAAS/Digest-1.00.tar.gz
>
>
>
> Regards,
>
> Evan
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

> http://www.cpan.org/authors/id/G/GA/GAAS/Digest-HMAC-1.01.tar.gz
>
> ?


	 Added that and had to add Digest-SHA1-2.00.tar.gz too, and I still
	 get:



	 Can't locate object method "hexhash" via package "MD5" at
/usr/local/lib/perl5/site_perl/Mail/POP3Client.pm line 384, <GEN0> chunk .


Regards,

Evan

well, I'm out of ideas then.... anyone else ??


I'm sure when I installed it on my Linux system
a while ago, I didn't have any probs...

what functions are you calling ?

techplumb.


----- Original Message -----
From: Evan James Dembskey <evan@...>

> > http://www.cpan.org/authors/id/G/GA/GAAS/Digest-HMAC-1.01.tar.gz
> >
> > ?
>
>
> Added that and had to add Digest-SHA1-2.00.tar.gz too, and I still
> get:
>
>
>
> Can't locate object method "hexhash" via package "MD5" at
> /usr/local/lib/perl5/site_perl/Mail/POP3Client.pm line 384, <GEN0> chunk .
>
>
> Regards,
>
> Evan



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

I was unable to find any binaries for Perl/Tk for windows. Is
there such a thing out there?


Chuck Roberts
Gilson Graphics
http://www.gilsongfx.com

http://www.cpan.org/authors/id/GAAS/MD5-2.02.tar.gz

From the README:

This module is depreciated.  Please use Digest::MD5 instead.

This module (MD5.pm) is just a thin wrapper around the Digest::MD5
module.  It is provided so that legacy code that rely on the old
interface continue to work with the speed benefit of the new module.

You will need perl version 5.004 or better to install this module.
The Digest::MD5 module must be installed.



AP> well, I'm out of ideas then.... anyone else ??


AP> I'm sure when I installed it on my Linux system
AP> a while ago, I didn't have any probs...

AP> what functions are you calling ?

AP> techplumb.


AP> ----- Original Message -----
AP> From: Evan James Dembskey <evan@...>

>> > http://www.cpan.org/authors/id/G/GA/GAAS/Digest-HMAC-1.01.tar.gz
>> >
>> > ?
>>
>>
>> Added that and had to add Digest-SHA1-2.00.tar.gz too, and I still
>> get:
>>
>>
>>
>> Can't locate object method "hexhash" via package "MD5" at
>> /usr/local/lib/perl5/site_perl/Mail/POP3Client.pm line 384, <GEN0> chunk .
>>
>>
>> Regards,
>>
>> Evan




AP> _________________________________________________________

AP> Do You Yahoo!?

AP> Get your free @yahoo.com address at http://mail.yahoo.com







AP> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

ryc>      I am working in QA-Web based products.  I wish to know the
ryc> POTENTIAL of PERL as far as QA activities are concerned. How can I
ryc> use perl for testing web-based products?

There  was  a  (slightly  OT) thread on the mod_perl mailing
list a little while ago about exactly that sort of thing.

Have a look through the thread here:

http://forum.swarthmore.edu/epigone/modperl/stermphoique

it might give you some idea about what is possible.

hth,
daniel

There are binaries available at Activestate.com or just use PPM to install.

- Eric

> -----Original Message-----
> From: Chuck Roberts [SMTP:croberts@...]
> Sent: Monday, August 06, 2001 8:29 AM
> To: perl-beginner@yahoogroups.com
> Subject: [PBML] Perl/tk for Win 2000
>
> I was unable to find any binaries for Perl/Tk for windows. Is
> there such a thing out there?
>
>
> Chuck Roberts
> Gilson Graphics
> http://www.gilsongfx.com
>
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>

It's funny that you ask that at this time.  At work we are migrating from
Perl 5.005 to 5.6.1, so for some time we will have both installations on 1
server.

As far as we know/believe/wax philosophically (mind you we are starting the
migration this week so I may have to revise my answer when it is all over
;-) ) each installation of Perl will be total separate.  Everything hinges
upon which Perl interpreter you call.  In your case when you call
/usr/bin/perl you will get the 5.6.0 installation and if you call
/usr/local/bin/perl you will get the 5.6.1 installation.  When installing
something from CPAN you will need to make sure you are calling the correct
Perl interpreter.  If you are used to typing "cpan" at the prompt then you
will need to that somewhere the cpan command has been set up to be script
for: "perl -MCPAN -e shell".  Of course in your case you will want to make
sure that it is pointing to the correct interpreter.

When we are done with our migration we plan on renaming the old Perl
interpreter and setting up a symbolic link to the new interpreter so that we
should not have any problems.  I would recommend at least doing this.  That
way you know that you are always using the correct one.

Hope that helps,

Erik Tank
602-817-4705
erik.tank@...


-----Original Message-----
From: Frank J. Schmuck [mailto:fschmuck@...]
Sent: Sunday, August 05, 2001 6:11 PM
To: perl-beginner@yahoogroups.com
Subject: [PBML] Two Perls on Same Machine


I'm running RH 7.1.  The "installed" version of Perl was 5.6.0 for i386
placed in /usr/bin.  I installed Bundle::CPAN which then prompted to upgrade
my version of Perl to match my machine.  So now I have 5.6.1 for i586 placed
in /usr/local/bin.

Am I going to have any problems here?  Do I need to remove the other Perl
and if so, how?  When I install new modules and the source is complied will
it be placed in the correct local?

Thanks
Frank





Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

-----Original Message-----
From: Samir Sudrik [mailto:samir_zs@...]
Sent: Monday, August 06, 2001 12:28 AM
To: perl-beginner@yahoogroups.com
Subject: [PBML] Need some help on Mail module

Hello Friends,

 

I am working on email code. I have mail server ip address. I was trying to use Mail::Sender, since I have to send some attachment through mail. But that server is not supporting Mail::Sender.

 

Actually, I am getting error for MIME::Base64 module. But hosting providers are not ready to install that module.

 

Following is the list of the modules they are having. Can any one of these module can be used to send mail with attachment.

 

Or else guide me.

 

Please reply ASAP. 

 

<... snip ...>

I'm having problems getting a form mail script I wrote
to work for a unix based server. Suggestions?


__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/

sure, plenty.  what does the script look like?  (and for that matter, what
is it not doing)

-----Original Message-----
From: thomas bernard [mailto:speyearts@...]
Sent: Monday, August 06, 2001 12:43 PM
To: perl-beginner@yahoogroups.com
Subject: [PBML] having problems with form mail for unix


I'm having problems getting a form mail script I wrote
to work for a unix based server. Suggestions?


__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/




Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/

It wasn't working at all when I tested it. It's just
giving me a server 500 error. I did chmod 755 on it
already.
#!/usr/bin/perl
&parsedata;
&sendemail;
&printthanks;
sub parsedata
{
  read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
  @in = split(/&/, $in);

  foreach $i (0 .. $#in)
  {
   $in[$i] =~ s/\+/ /g;
   $in[$i] =~ s/%(..)/pack("c",hex($1))/ge;
   ($key, $val) = split(/=/,$in[$i],2);
   $in{$key} .= '\0' if (defined($in{$key}));
   $in{$key} .= $val;
  }
}
{
  open (SENDMAIL, "| /usr/bin/sendmail -t -n");
  print SENDMAIL <<EOM


To:
From:
Reply-to:
Subject: Email from the mail form
fullname = $in{'full_name'}

EOM

}
sub printthanks
{

  print "Content-type: text/html \n\n";
  print <<"EOM";

<html>
<head>
<title>Thanks for Submitting the Form</title>
</head>
<body bgcolor="#ffffff">
<h2>Thank you for answering our form</h2>
You should receive a response shortly.
</body>
</html>
EOM

  print "";

}


The sole reason I wrote the script above was because I
couldn't get the script below to work?


#!/usr/bin/perl

require "../subparseform.lib/subparseform.lib";
&Parse_Form;
print "Content-type:text/html\n\n";

$to = $formdata{'to'};
$from = $formdata{'from'};

$subject = $formdata{'subject'};
$contents = $formdata{'contents'};

open (MAIL, "|/usr/lib/sendmail -t") || &ErrorMessage;

print MAIL "To: $to \nFrom: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "$contents\n";

close (MAIL);

print "Thanks for your comments.";

sub ErrorMessage {
         print "<P>The server has a problem. Aborting
script. \n";
         exit;
}

I was hoping to make the first script work by not
having to require the subparseform.lib....Now if I can
get either script to work I will feel happy. I'm still
new at this but am trying. Any help would be great.



__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/

well, if that's the actual script, you never named the "sendemail"
subroutine...that could cause a problem.


<snip>
sub parsedata <---okay, fine
{
  read(STDIN, $in, $ENV{'CONTENT_LENGTH'});
  @in = split(/&/, $in);

  foreach $i (0 .. $#in)
  {
   $in[$i] =~ s/\+/ /g;
   $in[$i] =~ s/%(..)/pack("c",hex($1))/ge;
   ($key, $val) = split(/=/,$in[$i],2);
   $in{$key} .= '\0' if (defined($in{$key}));
   $in{$key} .= $val;
  }
}     <------"sub sendemail" should come after this, I think
{
  open (SENDMAIL, "| /usr/bin/sendmail -t -n");
  print SENDMAIL <<EOM


To:
From:
Reply-to:
Subject: Email from the mail form
fullname = $in{'full_name'}

EOM

}

</snip>

Hi,
Can anyone tell me how to get the pid of a browser?

Also, if I open 2 windows of netscape with the same
url ..eg - www.abc.com
will both have different pids?

-Jhilmil.

__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/

----- Original Message -----
From: "thomas bernard" <speyearts@...>
> It wasn't working at all when I tested it. It's just
> giving me a server 500 error. I did chmod 755 on it
> already.

Well, the output of STDERR (or say, error messages) will be
written to error_log. Have you checked it?


Best regards,
imacat ^_*'
imacat@...