[13438] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 848 Volume: 9

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 19 14:07:24 1999

Date: Sun, 19 Sep 1999 11:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <937764310-v9-i848@ruby.oce.orst.edu>
Content-Type: text

Perl-Users Digest           Sun, 19 Sep 1999     Volume: 9 Number: 848

Today's topics:
    Re: A Search Engine (Kragen Sitaker)
        another db_file problem... <dheera@usa.net>
        builtin.pm <jimi@inf.bme.hu>
    Re: builtin.pm <elaine@chaos.wustl.edu>
    Re: CGI script for remote server <uri@sysarch.com>
    Re: CONTEST: Range Searching (Yitzchak Scott-Thoennes)
    Re: CONTEST: Range Searching (Kragen Sitaker)
    Re: Converting time() to real date (Philip 'Yes, that's my address' Newton)
    Re: CRAP Software <ltl@rgsun40.viasystems.com>
    Re: CRAP Software <sjohns17@uic.edu>
    Re: CRAP Software <uri@sysarch.com>
    Re: CRAP Software <flavell@mail.cern.ch>
    Re: CRAP Software <neil@pacifier.com>
    Re: freq count on log files? (Kragen Sitaker)
    Re: Good way to learn PERL (David Salvador Flores)
        grab password protected web pages <chris@optionsanalysis.com>
    Re: grab password protected web pages (Kragen Sitaker)
    Re: How to  chown and chmod <elaine@chaos.wustl.edu>
    Re: How to test for file Perl <uri@sysarch.com>
    Re: Humour Impairment [Was: CRAP Software] <elaine@chaos.wustl.edu>
    Re: Perl Challenge (Kragen Sitaker)
    Re: Perl Module for MS Access? <chrisnet01@yahoo.com>
    Re: Programmer Needed <uri@sysarch.com>
    Re: Reading files on a remote server ???????? <sjohns17@uic.edu>
    Re: Reading files on a remote server ???????? (Kragen Sitaker)
    Re: Search Engine <meridamx@enol.com>
    Re: Some e-mails get sent, some don't <uri@sysarch.com>
    Re: Some e-mails get sent, some don't (Kragen Sitaker)
        Super EASY DB websited with PERL <yurdead@imp.net>
    Re: Super EASY DB websited with PERL <elaine@chaos.wustl.edu>
        Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Sun, 19 Sep 1999 16:50:24 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: A Search Engine
Message-Id: <kv8F3.20203$N77.1599215@typ11.nn.bcandid.com>

In article <7s1uqo$1gp$1@news.vsnl.net.in>,
Pawan Bhati <pawanbhati@hotmail.com> wrote:
>Can anyone please help me build a small search engine for my site in perl.
>My website is on Webjump & I have tried many free search scripts but all
>fail to work.
>Somebady pleaze help me !!

How much are you offering per hour?
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 16:47:02 GMT
From: Dheera <dheera@usa.net>
Subject: another db_file problem...
Message-Id: <7s3423$tu4$1@nnrp1.deja.com>

Hi,
Sorry for all the DB_File q's i'm sending... but has anyone had any
problems with DB_File when trying to set ffactor?

I did this:

 ...
$DB_HASH->{'ffactor'}=4;
 ...

and my database seemed to have corrupted while it was writing. It only
wrote some key/value pairs and didn't write others. The tie succeeded.

I don't have this problem if I don't set it. But if I set ffactor then
the database doesn't work properly...

Thanks,
Dheera Venkatraman
dheera@usa.net


Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.


------------------------------

Date: Sun, 19 Sep 1999 17:58:28 +0200
From: rauznitz balazs <jimi@inf.bme.hu>
Subject: builtin.pm
Message-Id: <Pine.GSO.4.00.9909191755190.4346-100000@kempelen.iit.bme.hu>


Hi,

Does anyone have this module ? I've been searching it for a week on CPAN
and other places, but all I have is the docs and some broken links to
download it :( This is the worst situation: you know that there's a cool
package out there but cannot get to it ;)

Thanks for your help:

Balazs



------------------------------

Date: Sun, 19 Sep 1999 13:38:54 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: builtin.pm
Message-Id: <37E51F36.6EF43760@chaos.wustl.edu>

rauznitz balazs wrote:

> Does anyone have this module ? I've been searching it for a week on CPAN

http://search.cpan.org/search?mode=module&query=builtin

:)

e.


------------------------------

Date: 19 Sep 1999 11:37:50 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: CGI script for remote server
Message-Id: <x7yae29ak1.fsf@home.sysarch.com>

>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:

  JS> ), I would recommend using the correct size of cross-head
  JS> screwdriver for this as although it looks like you can undo the

phillips head screwdriver. give the inventor his due.

  JS> (Continued page 94.)

i can't wait to read the next installment. it feels like reading
dickens when he was serialized in the papers.

  >> I want remote users to use my Fortran/C application in the web
  >> server, they can submit the input file by my homepage, and my CGI
  >> script receive this input file, execute the Fortran application
  >> program, and then output the result to the users.

i wonder if there is a fortran cgi library? some nutcase probably did
one.

uri


-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.


------------------------------

Date: Sun, 19 Sep 1999 05:15:22 GMT
From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
Subject: Re: CONTEST: Range Searching
Message-Id: <qFH53gzkgOGL092yn@efn.org>

Posted and mailed.

In article <1dy873h.1oek316ilsakgN@imac.loc>, kpreid@ibm.net (Kevin Reid) wrote:
>foreach $IN (@ARGV) {
>  open IN or die "Can't open $IN: $!";
>
>  LINE: while (push(@lindex, tell IN), defined($_ = <IN>)) {
>    shift @lindex if $#lindex > $opt_B;
>    if (/$pat/o) {
>      print "---\n" if $noncontiguous;
>
>      seek(IN, $lindex[0], 0);
>      for (my $i = 0; $i < $opt_A + @lindex; $i++) {

Needs some work in this loop.  If the pattern recurs within $opt_A
lines, you won't catch it.

>        my $y = <IN>; last if !defined $y;
>        print(($opt_m ? ($i == $#lindex ? '+ ' : '  ') : '') . $y);
>      }
>      @lindex = ();
>      $noncontiguous = 0;
>    } else {$noncontiguous = 1}
>  }

Better clear @lindex here, or you might use positions from one file to
seek in the next.

>}


------------------------------

Date: Sun, 19 Sep 1999 16:47:05 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: CONTEST: Range Searching
Message-Id: <ds8F3.20201$N77.1597842@typ11.nn.bcandid.com>

In article <37E3AFC7.9D9BB420@mediaone.net>,
Steven Tolkin  <tolkin@mediaone.net> wrote:
>* reusability: Does the code reuse existing modules?  Presumably these
>are "battle tested".  Does the code contribute a new module that could
>be reused by others?

Reusing existing modules is a stupid criterion.  Reuse is a means, not
an end.  It is a means to shorter, more reliable, faster programs.
Treating it as an end in itself will give us longer, less reliable,
slower programs.

Reusability is an impossible criterion; it does not inhere in the
reused code itself, but in the relationship between the code and its
reusers.  It is impossible to evaluate reusability in the absence of
potential reusers.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 16:59:34 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Converting time() to real date
Message-Id: <37e511d5.33776225@news.nikoma.de>

On 19 Sep 1999 11:44:52 -0000, Jonathan Stowe
<gellyfish@gellyfish.com> wrote:

>But the lookup table isnt that hard to make:
>
>for(0 .. 2147483648)

1) ITYM 2147483647 (2**31-1, not 2**31).

2) Don't do this on early perls unless you have a *lot* of memory, as
they allocate an array of size 2**31 for this (don't know how big that
would be, but my guess is at least 2 GB * sizeof(int) * [some Perl
overhead]... that's a lot of gigs). Later perl5's turn this into a
counting loop.

Cheers,
Philip
-- 
Philip Newton <nospam.newton@gmx.net>


------------------------------

Date: 19 Sep 1999 14:09:27 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: CRAP Software
Message-Id: <7s2qqn$8eu$1@rguxd.viasystems.com>

Abigail <abigail@delanet.com> wrote:
:>George is a Kiboist?

Not in my dictionary nor the allegedly multilingual one I tried
online.  Kibitzer?

-- 
// Lee.Lindley   /// Programmer shortage?  What programmer shortage?
// @bigfoot.com  ///  Only *cheap* programmers are in short supply.
////////////////////    50 cent beers are in short supply too.


------------------------------

Date: Sun, 19 Sep 1999 00:56:14 -0500
From: Seth David Johnson <sjohns17@uic.edu>
Subject: Re: CRAP Software
Message-Id: <Pine.A41.4.10.9909190040040.1008306-100000@tigger.cc.uic.edu>

On 19 Sep 1999, lt lindley wrote:

> Kenny Gardner <Kenny@gapdev.com> wrote:
> [snip]
> :>Now, why is CRAP software allowed to show up on the Perl Site if CRAP
> :>software is not to be used?
> 
> Just because some people who post here turn their noses up at
> something, that doesn't mean it can't be used.  That CRAP has
> served lots of clueless people well over the years.  It works
> (after a fashion). The fact that it is inefficient, inelegant,
> incomplete and opens them up to security violations is beside
> the point.  Without that CRAP, they may have never gotten off
> the ground with their web dreams.

Bravo. By the way, you could s/CRAP/NT/, s/CRAP/Lotus Notes/, or
whatever, and it would also apply. Even if one finds certain products
abhorrent, one should remember that not everyone is a Perl/*nix expert,
nor can everyone pay for programmers.

Some people just want something that works, will probably never (knock
on wood) have to worry about the product's security flaws, and will
probably treat whatever they are running as a "black box" as long as it
runs. Sure, the working directory path might be hard-coded into the
program, but the program will probably be sitting there for eternity
anyway. :)

And remember, while you may not do this for "serious" projects, think of
all the quick-and-dirty-and-probably-slightly-buggy-in-certain-contexts
Perl scripts you've written for one-shot tasks.

Or is it just me? ;)

-Seth



------------------------------

Date: 19 Sep 1999 11:32:15 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: CRAP Software
Message-Id: <x71zbuapds.fsf@home.sysarch.com>

>>>>> "JS" == Jonathan Stowe <gellyfish@gellyfish.com> writes:

  JS> On 19 Sep 1999 00:57:55 GMT lt lindley wrote:
  >> 
  >> a slightly irrational
  >> loathing of George Reese, 

  JS> Oh no you said it now - he'll be back ...

he does seem to scan for his name. but it may be a few weeks before he
stick his nose in again. he seems to like getting it bloody.

  >> Hell, I'm not even sure most of them (us?)
  >> like each other much.

  JS> Actually compared to most large disparate groups of people the regulars
  JS> in this group are (IMO) relatively likeable - mind that could say more
  JS> about me than the others though ..

i hate you! i hate you! i hate you!

  >> Double entendres are encouraged. 

  JS> 'A young woman walks into a bar and asks the barman for a double
  JS> entendre so he gave her one'

one what?

uri

-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.


------------------------------

Date: Sun, 19 Sep 1999 17:44:02 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: CRAP Software
Message-Id: <Pine.HPP.3.95a.990919174057.4640G-100000@hpplus03.cern.ch>

On 19 Sep 1999, lt lindley wrote:

> Abigail <abigail@delanet.com> wrote:
> :>George is a Kiboist?
> 
> Not in my dictionary nor the allegedly multilingual one I tried
> online.  

Sigh.  The best jokes fall flat on those who lack the sociousenetic
background.

http://www.kibo.com/main.shtml is vaguely anent.



------------------------------

Date: 19 Sep 1999 10:18:59 PST
From: Neil <neil@pacifier.com>
Subject: Re: CRAP Software
Message-Id: <37e51b03.0@news.pacifier.com>


>   JS> 'A young woman walks into a bar and asks the barman for a double
>   JS> entendre so he gave her one'

> one what?

I think the idea is that she asked for a *double* but only got *one*.

Neil


------------------------------

Date: Sun, 19 Sep 1999 17:31:23 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: freq count on log files?
Message-Id: <L59F3.20239$N77.1604708@typ11.nn.bcandid.com>

In article <7s1h68$tv1$1@nnrp1.deja.com>,  <donturn@fis.utoronto.ca> wrote:
>Hi, I'm trying to write a quickie server log analyzer to just count the
>frequencies of IP addresses in the log file. I'd like to write to a file
>that lists the Ip address and then the total for each IP.

perl -ane '$_{$F[0]}++;END{print map{"$_\t$_{$_}\n"} keys %_}'

Or, for sorted output, you might try

perl -ane '$_{$F[0]}++;END{print reverse sort map{sprintf "%8d  %s\n", $_{$_}, $_  } keys %_}'
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: 19 Sep 1999 15:33:34 GMT
From: dsf3g@node9.unix.Virginia.EDU (David Salvador Flores)
Subject: Re: Good way to learn PERL
Message-Id: <7s2voe$r5a$1@murdoch.acc.Virginia.EDU>

In article <7r98j0$er$1@f1.andara.com>,
Jim Carison <matthew357@hotmail.com> wrote:
>Hello. I am fairly new to PERL and CGI. Although I understand enough to make
>small scripts that do a little bit of stuff, I am interested in making my
>skills good enough to use on the commercial level. If you can give me any
>information as to how I can learn PERL much better without a lot of upfront
>costs (like IT schools) but things like webpages or good books.
>
>

I started with Perl For Dummies, but quickly grew weary of its glacial
pace. I should probably have started with Learning Perl. The nice thing
about Perl For Dummies is that it came with a CD-ROM including Perl, CPAN
and a bunch of other stuff. It pretty much got me up and running. After
that it didn't take me long to chuck it. Learning Perl gets old quick,
too, and so after that I bought Programming Perl.

Since I was mostly interested in Web stuff (though my first dozen
programs/scripts were command-line affairs on Win 95 and Unix) I soon
bought Leaning CGI in a Week (helpful) and when I discovered GCI.pm I
bought the Official Guide to CGI.pm (sure it's one the .net, but its nice
to have a bound copy too.)

What helped me the most, as far as CGI goes, was the fact that our network
administrators had set up routines that would install simple CGI scripts
(like a guestbook program). I had those installed on my account and then
took them apart to figure them out. That's the *only* way I managed to
learn CGI, since UVA (1) offered no help to the average user and (2)
incroporated CGI-wrap which requires special funky pathnames to make your
scripts work.

If you can get your hands on some working scripts and take them apart
you'll be light-years ahead.


-Dave



------------------------------

Date: Sun, 19 Sep 1999 10:43:58 -0500
From: chris mclean <chris@optionsanalysis.com>
Subject: grab password protected web pages
Message-Id: <F4C8F68D0BE950E5.98C00D5D89D65048.5DB1D20046919AF0@lp.airnews.net>

Hi,

I use the following perl script to grab web pages:

=================================================
#!/usr/bin/perl

use Socket;
$server = "cnn.com";
$port = 80;

$server_addr =(gethostbyname($server))[4];
$server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
$proto = (getprotobyname('tcp'))[2];
socket(MYSOCK, PF_INET, SOCK_STREAM, $proto)|| die "Failed to initialize socket: $!\n";
connect(MYSOCK, $server_struct) || die "Failed to connect() to server: $!\n";

select(MYSOCK);
$| = 1;
select(STDOUT);
print MYSOCK "GET /US/9909/18/mayor.quits.ap/ HTTP/1.0\n\n";

while (<MYSOCK>) {
        print;
}
close(MYSOCK);

==============================================
Does anyone know how to modify this program to grab
password protected web pages?

Thank you VERY MUCH!

Chris
--
http://Optionsanalysis.com - Web based Options Programs

If you can't hear me, it's because I'm in parentheses.  -- Steven Wright




------------------------------

Date: Sun, 19 Sep 1999 17:13:09 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: grab password protected web pages
Message-Id: <FQ8F3.20218$N77.1602246@typ11.nn.bcandid.com>

In article <F4C8F68D0BE950E5.98C00D5D89D65048.5DB1D20046919AF0@lp.airnews.net>,
chris mclean  <chris@optionsanalysis.com> wrote:
>print MYSOCK "GET /US/9909/18/mayor.quits.ap/ HTTP/1.0\n\n";
>Does anyone know how to modify this program to grab
>password protected web pages?

Add the appropriate Authorization: line to the header of your request.
See RFC 2617.

I think you can also use libwww-perl, aka LWP.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 13:48:47 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: How to  chown and chmod
Message-Id: <37E52186.BA480246@chaos.wustl.edu>

Abigail wrote:
> {} Is there anything that I can put at the end of my result.cgi that will
> {} give me ownership of the result.txt that the script generates, and also
> {} chmod it to 755?
> 
> No [1]. And yes. Why you cannot do the first is a question for a unix group.
> How to do the latter is explained in the manual, in the section about chmod.

Don't forget to mention File::chmod darling. :)

http://search.cpan.org/doc/PINYAN/File-chmod-0.31/chmod.pm

e.


------------------------------

Date: 19 Sep 1999 11:27:49 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: How to test for file Perl
Message-Id: <x74sgqapl6.fsf@home.sysarch.com>

>>>>> "WB" == Warren Bell <resource@ERASEjps.net> writes:

  WB> quick question: what is the context of this program? will it be running
  WB> more than one copy at a time (like cgi programs
  WB> can do)? or is it just a simple file munging program you use by itself?
  WB>                   uri

  WB> I have a script that restarts my PPP connection. I have various fake CGI
  WB> scripts and fake services in inetd that trigger this script when they
  WB> detect a port scan or CGI tampering. This restarts PPP so I connect with
  WB> a different IP. (the trouble makers then can't find me) But port scans
  WB> trigger a few of these scripts at once so I'm trying to have the PPP
  WB> script create a lockfile.  Then, the perl scripts check for this
  WB> lockfile first. If its there, they exit. If it's not, they run the PPP
  WB> script.

so you could have a race condition as multiple of your fake scripts
could trigger your ppp. but you really need a lock file which is simple
to manage and is in the faq. testing for the file's existance is not
critical as you can just open the file for writing and then the first to
lock it wins. it doesn't matter if the file isn't there yet. if the file
is locked already, then the script should exit. there are variations on
this theme but you do have to be aware of races since you have multiple
processes contending for the same resource (the right to start ppp).

and if you are a senior programmer, i am surprised you have never heard
or worked with race conditions. they are a critical problem with many
complex systems and a difficult bug to figure out unless you understand
the issues well.

uri

-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.


------------------------------

Date: Sun, 19 Sep 1999 13:36:54 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Humour Impairment [Was: CRAP Software]
Message-Id: <37E51EBD.9E97C7FB@chaos.wustl.edu>

Uri Guttman wrote:
>   >> Double entendres are encouraged. 
>   JS> 'A young woman walks into a bar and asks the barman for a double
>   JS> entendre so he gave her one'
> 
> one what?

/me *smacks* head. You guys are hopeless. 

:)

e.


------------------------------

Date: Sun, 19 Sep 1999 17:00:06 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Perl Challenge
Message-Id: <qE8F3.20207$N77.1600752@typ11.nn.bcandid.com>

In article <7s2nhd$m3s$1@nnrp1.deja.com>,  <makau@multimania.com> wrote:
>Damn, seems I am far newbier than I ever thought :-)

I don't think of myself as an expert, but I didn't have any trouble
understanding your code.

Newbieism is a temporary state if you're aware of it.

>Or maybe this newgroup should have been named
>"comp.lang.experts.perl.misc" (in which case a
>"comp.lang.newbies.perl.misc" would have been welcome).

The trouble with newbies groups and lists is that the people who are
able to answer the questions correctly do not subscribe.  Accordingly,
newbies go to the experts' group for help.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 14:45:04 +0100
From: "Chris" <chrisnet01@yahoo.com>
Subject: Re: Perl Module for MS Access?
Message-Id: <7s2pe5$tc6$1@dvorak.ednet.co.uk>

I am worried about the limitations in your IT department!

If I understand your limitations properly then using the FileSystem Object
to write to a text file or whatever may be a solution. This is an ASP
solution which I do not believe requires much other than to allow the file
to be written to. A good example of its use is in "Professional ASP 2.0! by
Wrox Press.

the code will look like this, sort of!

function WriteToLogFile(strFeedback)
  On Error Resume Next
 WriteToLogFile = False
 set objFSO = createobject("Scripting.FileSystemObject")
 set objLogFile = objFSO.OpenTextFile("C:\somefile.txt", 8)
 objLogFile.WriteLine(strFeedback)
 objLogFile.Close
 WriteToLogFile = True
   end function

This particular solution is just a copy of the Wrox book and is a function
included in an include statement at the start of the asp form which handles
processing the form, ie:

<!-- #include file="..\lib\functions.inc" -->

then you simply call the WriteToLogFile function with the feedback from the
form as the argument to it.

I hope I am on the right track here!

--
Chris
-----------------------------------------------------
'Never expect something for nothing and don't trust men with beards.'
  -  My Gran.





------------------------------

Date: 19 Sep 1999 11:40:52 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Programmer Needed
Message-Id: <x7vh969aez.fsf@home.sysarch.com>

>>>>> "DW" == Danum Web <webmaster@danum.com> writes:

  DW> Experienced programmer URGENTLY needed for several projects.
  DW> Must have experience of all of the following:
  DW> Perl, Mod Perl, C++, MySQL, Java, HTTP Sockets.

what is an http socket? and where can i get one?

:-)

uri

-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.


------------------------------

Date: Sun, 19 Sep 1999 00:57:48 -0500
From: Seth David Johnson <sjohns17@uic.edu>
Subject: Re: Reading files on a remote server ????????
Message-Id: <Pine.A41.4.10.9909190056570.1008306-100000@tigger.cc.uic.edu>

On Mon, 13 Sep 1999, Stewart Pitt wrote:

>  Does any one know if using perl whether or not I can execute a script on
> one
>  server and open a file to read or write on another server connected only by
> the internet?????

As opposed to a string and two paper cups? I'm confused...

-Seth



------------------------------

Date: Sun, 19 Sep 1999 16:39:52 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Reading files on a remote server ????????
Message-Id: <sl8F3.20197$N77.1598342@typ11.nn.bcandid.com>

In article <7riipu$hl5$1@news.eisa.net.au>,
Stewart Pitt <stewart@xcs.com.au> wrote:
> Does any one know if using perl whether or not I can execute a script on
>one
> server and open a file to read or write on another server connected only by
>the internet?????

Yes.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 11:22:51 -0600
From: "Chuck Burgess" <meridamx@enol.com>
Subject: Re: Search Engine
Message-Id: <7s36hn$947$1@news.inquo.net>

The reason they probably fail to work is because of the information you
provide. It's one thing to provide questionable material (like passwords and
serial numbers), but then to have the nerve to ask (even in a private email)
someone to help you do something because:

1) You don't know how to do it yourself
2) You're not interested in taking the time to learn

YOU WROTE:
>hey Thanks very much for the nice information but I'm still unable to
>configure that so called simple script.
>Plz do u mind giving me your two minutes and giving me a >configured
script.
>my site to be indexed is http://pawan.webjump.com/ & there are no
>subdirectories to be indexed.
>PLZ HELP ME , I shall be very greatfull to you.
>Thankx in advance
>Pawan
>pawanbhati@hotmail.com

For the rest of you, I am not trying to air dirty laundry on this post, I
just want the rest of you to know what you are getting into. If you
subscribe to his philosophy, feel free to help him. If you would rather not
be involved in something of this nature, here's your warning.

Chuck
------------------------------------------
"Create like a God, command like a King, work like a Slave." - Brancusi


Pawan Bhati wrote in message <7s1v8e$1ks$1@news.vsnl.net.in>...
>
>Can anyone please help me build a small search engine for my site in perl.
>My website is on Webjump & I have tried many free search scripts but all
>fail to work.
>Somebady pleaze help me !!
>
> Pawan
> pawanbhati@hotmail.com
>
>
>




------------------------------

Date: 19 Sep 1999 11:49:17 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Some e-mails get sent, some don't
Message-Id: <x7so4a9a0y.fsf@home.sysarch.com>

>>>>> "BM" == Bill Moseley <moseley@best.com> writes:

  BM> Bart Lateur (bart.lateur@skynet.be) seems to say...
  >> Randal L. Schwartz wrote:
  >> 
  >> >Greg> if(!open(M,"|mail $addr"){
  >> >
  >> >Danger, Will Robinson!
  >> Can'ts you quote a command line parameter? Like:
  >> 
  >> $addr =~ s/'/\\'/g;
  >> if(!open(M,"|mail '$addr'"){

  BM> I wonder that too.  But I also wonder if someone could use LWP and 
  BM> create a POST that includes, say ^U to empty the line buffer.  Is that a 
  BM> possibility?

that would only work for an interactive shell which this surely is
not. you would need to be on that system and fake the shell into
thinking there is a human typing by using pseudo-ttys or something like
that. so i doubt there is a way for a cracker to exploit that avenue of
thought.

uri

-- 
Uri Guttman  -----------------  SYStems ARCHitecture and Software Engineering
uri@sysarch.com  ---------------------------  Perl, Internet, UNIX Consulting
Have Perl, Will Travel  -----------------------------  http://www.sysarch.com
The Best Search Engine on the Net -------------  http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.


------------------------------

Date: Sun, 19 Sep 1999 17:08:08 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Some e-mails get sent, some don't
Message-Id: <YL8F3.20213$N77.1601740@typ11.nn.bcandid.com>

In article <37e9c65e.2389512@news.skynet.be>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>Can'ts you quote a command line parameter? Like:
>
>	if(!open(M,"|mail '$addr'"){
>
>although I guess you must escape single quotes (does that work? I have
>too little experience with those shells...)
>
>	$addr =~ s/'/\\'/g;

Don't allow everything not explicitly forbidden.  Forbid everything not
explicitly allowed.  And it probably doesn't have to work for "fred and
barney"@redcat.com; if someone has chosen such an obnoxious email
address, they deserve to have things break.  (They are not being
conservative in what they send.)

Something like tr/-A-Za-z@.1-9//cd is quite sufficient.
-- 
<kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
Sun Sep 19 1999
50 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>


------------------------------

Date: Sun, 19 Sep 1999 13:24:30 -0400
From: "You're Dead" <yurdead@imp.net>
Subject: Super EASY DB websited with PERL
Message-Id: <909F3.1841$OT2.57911@wbnws01.ne.mediaone.net>

Sorry - this is actually a posting to stop child pornography on the web but
please read it anyway.
I don't know who else is aware of this, but there exists a news group,
alt.binaries.pictures.asparagus, that openly promotes and purveys child
pornography. There are pictures of children on this news group ranging from
12 yrs all the way down to 4 yrs. of age who have clearly been forced into
perverted and  homosexual situations and photographed. It boggles my mind
that we as a society can let this happen. It is clearly a sign of our
ignorant and devastating times when we allow this level of pathetic
depravity
that irreparably harms children to go on right in front of our faces without
any action taken toward it. What the hell have we become? Is this what you
call freedom of expression? I am so sick of hearing ass holes whine about
their personal freedoms. Freedom is something that comes with responsibility
and as such is earned. People who propagate sexual perversion toward
children have NO RIGHT TO FREEDOM.
We have forgotten what true freedom really is. I believe we will have to
re-learn that in a very very difficult way.
Write your fucking senators, send threatening emails, do Something NOW!!!!!!




------------------------------

Date: Sun, 19 Sep 1999 13:41:22 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Super EASY DB websited with PERL
Message-Id: <37E51FCA.B7954991@chaos.wustl.edu>

You're Dead wrote:
> 
> Sorry - this is actually a posting to stop child pornography on the web but
> please read it anyway.

Please don't do this. While I am sure it is distasteful to any civilised
human being, this is not the appropriate place to curry support for its eradication.

e.


------------------------------

Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V9 Issue 848
*************************************


home help back first fref pref prev next nref lref last post