Re: obtain web page contents with perl through a proxy server

Here is a simple example from one of my scripts. You can use the method of mirror, getstore, use LWP::Simple; if(is_success(getstore(http://$sitename/wsp/scripts/$cgiscript/data.txt,/$pkg::cgiroot/$pkg::cgidir/admin/scripts/$cgiscript/data.txt;))){ print STDERR \n Transfered

client side password protection

I've come up with a system that is pretty hard to crack I think. I used flash to read a txt file that is created by a perl script. Perl makes a jumbled array of letters and numbers and directory info and puts it into a txt file. With flash you can't see the source code. In fact the

eegads! File::Copy not copying

Everything was perfect in my little program. I gave it a test run today. My file which copies some demofiles is sending blank empty files. I've used -e to make sure it exists and checked the return value on the copy(). Both check out fine. But the files have no content. Any suggestions?

Re: eegads! File::Copy not copying

. Patricia Hinman wrote: Everything was perfect in my little program. I gave it a test run today. My file which copies some demofiles is sending blank empty files. I've used -e to make sure it exists and checked the return value on the copy(). Both check out fine. But the files have

Re: eegads! File::Copy not copying

I combed the file and found an open statement in the wrong place. Thankyou everyone for all your help. It is appreciated! __ Do you Yahoo!? Yahoo! Shopping - Send Flowers for Valentine's Day http://shopping.yahoo.com -- To unsubscribe, e-mail:

RE: crypt() unix function, what about windows cryption? .htpasswd file

Hinman; [EMAIL PROTECTED] Subject: RE: crypt() unix function, what about windows cryption? .htpasswd file On Thu, 13 Feb 2003 20:57:05 -0800 (PST), Patricia Hinman [EMAIL PROTECTED] wrote: OOPS mistake corrected I did

RE: crypt() unix function, what about windows cryption? .htpasswd file

There are measures that can be taken to make it harder for someone to get the source, but there is no way to prevent it. There is also little reason to, that I can see, most things that are done with javascript are relatively simple anyways, and since it is an open language so someone could

creating my own library

I would like to pack some modules with my program. I've learned about use lib qw(/mydirto/mylibrary/); for simple modules. Now I have an module that has several directories (Crypt::OpenPGP). The program can't find the module in the library when I simply upload it to the server. I've

Re: Wiggins, password encryption, .htpasswd file

--- Wiggins d'Anconia [EMAIL PROTECTED] wrote: Always group reply so that the rest of the list can help and be helped by the discussion. Sorry if I sent email to your address. It wasn't intentional. I'm new to encryption. When I think of Crypt I think graveyard. And so far I've found no info

crypt() unix function, what about windows cryption? .htpasswd file

OOPS mistake corrected I did stumble across a method call to a cryption() ---wrong crypt() is the method -- I have just discovered it is a unix function. It doesn't decrypt. One must always crypt user input then check for equality. if (crypt ($guess, $pass) eq $pass) { # guess

httaccess login - redirect to login script

I've been reading about htaccess files, directives, pros and con's. This redirects pages to another page in the .htaccess file. Redirect /location/from/root/file.ext http://www.othersite.com/new/file/location.xyz My question is do I need to use a Redirect to make the browser go to my login

installing Crypt::Serpent ?

I want to learn about encryption. I've browsed CPAN and thought I would give this a try: http://search.cpan.org/author/JHUGHES/Crypt-Serpent-1.01/ I used CPAN to install it and my perl version is 5.8 for win32. A little script I wrote couldn't find the module so I proceeded to install it

installing Crypt::Twofish error

I'm not having much luck so far installing encryption modules. I'm on a win98 box with perl 5.8 and have tried to install Crypt::Serpent and Crypt::Twofish. When I run makefile.pl for Twofish it reports : Searching for uint*_t ... specified COMMAND Search directory bad. This is suppose to be

unloading zip files with perl install script

Does anyone know how to use a zip utility in an installation script. I would like to create an installation script for a program I've written. My only hurdle is learning how to unpack the zip file. I've heard of gunzip, can I use that with perl?

perl command line not working

I've intstalled the binary distribution for Win32 of Perl 5.8.0 and Apache 2.0.43, together with mod_perl-1.99_08-dev. I have 2 questions. 1. Why does Apache start up while booting? 2. Why can't I use perl at msdos prompt? This is in my path variables: PATH=C:\Perl\bin\;

command line ok now thanks

I'm not sure what I did to fix it. I took out a call to a file (not a directory) from the path variable. Now all is fine. Thankyou for responding. __ Do you Yahoo!? Yahoo! Mail Plus - Powerful. Affordable. Sign up now.

using taint and File::Find error

I'm writing a CGI script that allows a user to create directories and upload an html file. I'm using this at the beginning of the script #!C:\Perl\bin\perl.exe -w -T #!/usr/bin/perl use strict; BEGIN{open(STDERR, ./err.txt);} the htmldir is read from a txt file and untainted like this:

taint, safe, mkpath trouble

I'm trying to use taint, strict and Safe in all my files. I'm new to the Safe module and unsure about this code. #!C:\Perl\bin\perl.exe -w -T #!/usr/bin/perl -w -T use strict; if($q-param(add_a_dir)){ my$newdir = $q-param(add_a_dir); $newdir =~ s/[^\w\-\.]//g; $dirext .= $newdir;

setting up mysql and DBI package on win98

I have set up mysql application server on my pc, and added a class path to the bin. When I use the Mysql Manager Tools Query it throws a 10050 connection failure message. I'm using the word localhost for the server name and 127.0.0.1 for host. And have installed perl 5.8, and used cpan to

creating a mysql table with perl

Hi everyone, I know it's Christmas eve, and I should be enjoying myself, but that's about all that's here tonight, (myself). So I thought I would jump into mysql and learn the basics. I've found lot's of info for people who enter data on the command line, but I would like to use a script to

Embarassing new line char

Hi everyone, I have a \n character in my program that won't go away. portion of program: open(CAP, ./captions.txt)|| push(@message, Couldn't open the captions.txt file for writing, $!); chomp(@captions); for(my$i=0;$i@caption;$i++){ $_ = $caption[$i];s/\n//g; #going to extremes!!!

flat file db (do I need mysql?)

Hi everyone, I just wrote a script that reads yahoo directories, and writes to a temp txt file the portion of direcetories it's currently working with. Then copies that temp file to a completed log file, and grabs the next subcatagory to work with. It continues till no more urls are given to

Re: remove duplicate lines

I wanted to do this without completely loading the page into an array and then checking for duplicates. So I just inserted some flags into my while statement. #!/usr/bin/perl -w $dupli_file = STDIN; chomp ($dupli_file ); $res_file = STDIN; chomp ($res_file ); open (DUPLI, ./$dupli_file) or die

sort arrays by size

I jimmy rigged some code to sort the arrays by size and keep the text arrays that relate the the number arrays in the same order. By combining the number and text arrays. Then using the sort on the the number array and reverse function, so the highest is first. Then I search for the number

Including Every Option/Need a genius

I'm creating code that takes a list of attributes and puts together each possible attribute with the item. This is a matter of not knowing where to increase the indexes at. And not knowing how to assign the indexes. #!C:\Perl\bin\perl.exe BEGIN{open(STDERR,./err.txt);} use CGI param, header;

Re: Including Every Option/Need a genius

== @color){$size++;$color=0; if($size == @size){$type++;$size=0;} } }#end of for }#end of sub #** foreach $_ (@fullname){print \n; print $_BR} #** --- Patricia Hinman [EMAIL PROTECTED] wrote: I'm creating code that takes a list

sort arrays by size

Does anyone know of a routine that will sort arrays by size. I need to sort any number of given arrays, and operate on the largest to the smallest. I've just recently learned of the @nums = sort{$a=$b} @numbers; hope the answer for arrays is as simple. Thanks Tricia [EMAIL PROTECTED]