louie miranda (axishift.ath.cx)
--
Security Is A Series Of Well-Defined Steps
chmod -R 0 / ; and smile :)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I have to secure a newly developed web search service that deals with
sensitive fiscal information, this originally consisted of Perl scripts that
called html pages or other scripts. The default page ran a rudimentary login
script that launched a variety of html pages or further scripts, the html
1) Ok point taken.
2) Mabey a little unclear here: The script 'prints' a HTML page if the
password is accepted. When an option is selected from the HTML page it calls
another script passing the password data originally passed to the current
script as part of the HTML FORM information.
E.g.
The internal people that have been granted access to the servers running
this system probably wouldn't have the knowledge or inclination to attempt a
hack. Only around eighty out of a possibly much higher number have been
given access although it is intended that some external users may be given
use strict;
use CGI;
my $q = new CGI;
my $password = $q-param( password );
if ($password eq 'password'){ #only an example#
print HTML_SCRIPT1;
html~~~FORM(s) To Run Script Two, Three , Four ,
etc./FORM~~~
It works but how secure is it assuming nobody is going to see
On Tue, 18 Sep 2001, Wagner wrote:
I have a variable $var and its value is 345.678975 (for example).
How can i format $var to became 345.67 only two digits after the
point...
printf(%.2f, $var);
Note that this will do actual rounding of your number as well.
Another question... my
I would go:
unless ( ($x 50) || ($x 80) ){
print ;
}
of course you could use and, or
you can only use and, or if your running at least Perl5
-Original Message-
From: David Draley[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Mon Sep 17 14:36:06 PDT 2001
Subject: Unless
On Tue, 18 Sep 2001, Mark Bergeron wrote:
I would go:
unless ( ($x 50) || ($x 80) ){
print ;
}
No... that will return true for all values less than fifty or all values
more than 80. To get the numbers in between, you want numbers that are
more than 50 AND less than 80, the opposite
Hi,
i have used
use win32::process() statement
This statement is used only for NT ie using if statement. In NT, this is used to
kill a process. But when the same code is taken to UNIX, it is giving compilation
error. Ie, its searching for Wind32 libraries in UNIX which is not existing.
Bob,
Tks a lot.
Cheers,
Mellotto.
Bob Showalter [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
-Original Message-
From: Mellotto [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 17, 2001 3:47 PM
To: [EMAIL PROTECTED]
Subject: Date
Hi folks,
I'm stumped...I wrote a test script and this pattern matches just fine, but
when I try to use it in another script it does match as it should.
Basically, if the pattern detects an _ underscore in the string it should
return undef; if it doesn't match it returns true. Here's some
On Tue, 18 Sep 2001, David Simcik wrote:
Hi folks,
I'm stumped...I wrote a test script and this pattern matches just fine, but
when I try to use it in another script it does match as it should.
Basically, if the pattern detects an _ underscore in the string it should
return undef; if
On Sep 18, David Simcik said:
sub isFacStaff
{
my $id = @_;
This is the error: assignment of an array to a scalar returns the number
of elements. You want want one of the following:
my $id = shift;
my ($id) = @_;
my $id = $_[0];
if($id =~ m/^.+_.+$/i)
You're doing too
-Original Message-
From: Jeff 'japhy/Marillion' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 18, 2001 9:57 AM
To: David Simcik
Cc: Perl Beginners
Subject: Re: RegExp Problem...
On Sep 18, David Simcik said:
...
if($id =~ m/^.+_.+$/i)
You're doing too
Hi,
i'm behind a firewall and I want to get the name of the server related to
the program(I know it, but how my progran can know it), so people coming
from another server would be blocked.
Thank you
don't worry is going to be my last question on this subject because it seems
that nobody can
On Tue, 18 Sep 2001, P lerenard wrote:
i'm behind a firewall and I want to get the name of the server related to
the program(I know it, but how my progran can know it), so people coming
from another server would be blocked.
Can you provide more details on what you're trying to do? Where is
Dear List,
I'm quite a beginner to Perl (it's going to be almost
2 mths).I've written the following codes and I can't
seem to get the correct output where user's can choose
their search engine for search. Pls correct me since I
really lost.
Secondly, I want to use the HTML::TreeBuilder to read
I try to explain,
i'm on unix.
it is an intranet program, so everybody who are going to use this program
are behind the same firewall than me + the prog run on server.
I allow people do access some data asking for their ip, the ip is still the
same, but somebody can change the ip on their
Hello again,
I'm working with ActiveState Perl and am trying to make use of a Win32 call
to create new users. I'm not having much success. Every time my sub runs it
returns this error: Overlapped I/O operation is in progress. I am using
the function Win32::NetAdmin::UserCreate(). I setup
Hi there,
I am trying to match an expression that would perform different tasks
depending on the returned value:
#if (arguments begin with A HREF=)
if ($args =~ /^\A HREF=.*/i)
{
# do this
}
else
{
# do this
Thanks for all the help :)
Brett W. McCoy wrote:
On Tue, 18 Sep 2001, Andrea Holstein wrote:
On Tue, 18 Sep 2001, Andrea Holstein wrote:
Try
for (my $i=0, my $var = $array[$i]; $i @array; $i++, $var =
$array[++$i]) {
...
}
Good Heavens! Why would you go
--- Rasoul Hajikhani [EMAIL PROTECTED] wrote:
Hi there,
I am trying to match an expression that would perform different tasks
depending on the returned value:
#if (arguments begin with A HREF=)
if ($args =~ /^\A HREF=.*/i)
{
# do this
}
else
Curtis,
thanks for your email. My $args is just a string. Would that make any
difference?
-r
Curtis Poe wrote:
--- Rasoul Hajikhani [EMAIL PROTECTED] wrote:
Hi there,
I am trying to match an expression that would perform different tasks
depending on the returned value:
#if
Could the list admin please contact me off-list. Thank you.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi,
I've tried to setup POE on my computer but I can't seem to set it up correctly. I'm
running ActivePerl v5.6 on a Windows 2000 PC.
I got the following error message when I tried to use it.
c:\perl
use POE;
Can't locate Filter/Util/Call.pm in @INC (@INC contains: C:/Perl/lib
Does anyone know how to invoke OpenSSL in perl in a web base form?
Nael Mohammad
Neomar, Inc.
[EMAIL PROTECTED]
When Wireless Means Business
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Brett W. McCoy wrote:
Then you can use 'for(my $i = 0; $i @array; $i++)'. In your example
above, you are incrementing $i twice (first postincrement, then
preincrement). It doesn't make sense (to me, at least) to have an index
counter, and then still assign the array element to a temp
Hi, Paul, :)
On Tue, 18 Sep 2001, Paul Johnson wrote:
On Mon, Sep 17, 2001 at 03:25:20PM -0700, Jason Tiller wrote:
I'm trying to write a short script to remove duplicate entries in
my PATH variable.
The script I use to do this is
print join :, grep !$seen{$_}++, split :, $ENV{shift}
JT First off, is this the right way to go about this? I know this isn't
JT a shell list, but I'm assuming that the perl script can't actually
JT *change* the PATH in the parent process - only for its own process.
JT Right?
PJ Right. Nothing can change the parent's environment.
How about
Hi, Jeff, :)
On Mon, 17 Sep 2001, Jeff 'japhy/Marillion' Pinyan wrote:
On Sep 17, Jason Tiller said:
2) Duplicate path entries must be removed from the *tail*, not the
head of the path.
Then reverse the string, screw around with it, and reverse it again.
Got it. Worked perfectly! I'm
I'm having a little difficulty with @INC, a script I'm trying to run,
actually part of bugzilla, says it can't find DBI.pm in @INC, I've manually
searched those directories and can't find it, but CPAN says DBI.pm is up to
date.
Any ideas on how to fix this???
--
Michael D. Risser
Software
Hello,
I experienced similar error messages and found that the solution
involved the following steps:
1. visit www.cpan.org to download the missing module.
2. unarchive the module according to the prescribed instructions and
3. made sure that the module was in the perl directory.
So either you
On 9/18/01 10:54 AM, chris morris wrote:
Could the list admin please contact me off-list. Thank you.
Oh, boy. Please not this again. I suggest that you look at the bottom of
your own message for your answer.
-Michael Kelly
Email: [EMAIL PROTECTED]
The Web: http://jedimike.hypermart.net
On Tue, Sep 18, 2001 at 02:44:35PM -0400, Michael D. Risser wrote:
I'm having a little difficulty with @INC, a script I'm trying to run,
actually part of bugzilla, says it can't find DBI.pm in @INC, I've manually
searched those directories and can't find it, but CPAN says DBI.pm is up to
Hi,
I've been wrestling with that same beast. I don't have it all figured out yet
but was able to get an attachment emailed with the MIME::Entity module. Check
CPAN - the documentation and example given were pretty useful to me and I know
nearly nothing about perl.
Dhiraj Rustagi wrote:
Gurus,
The Camel ( 3rd Ed. ), says, on page 385-386
sub TIEHANDLE {
open my $self, $from, @_ or croak can't open $from@_:$!;
}
and then,
... the my $self furnishes undefined scalar to open, which knows to
autovivify it into a typeglob. and further mentions autovivifying
On Sep 18, [EMAIL PROTECTED] said:
open my $self, $from, @_ or croak can't open $from@_:$!;
... the my $self furnishes undefined scalar to open, which knows to
autovivify it into a typeglob. and further mentions autovivifying a
When you use an undefined value as a reference, Perl
Hi,
I have a data file in which each line is an instance of an event (e.g. a
sale). The file contains info about where the event happened (the city,
state, country), the type of event (catalogue, telephone, in-store) and some
other classification data (cash, credit card, indentured labor,
Hi, I have a bit of a problem, that I am SURE there must a simple solution
for, but I can't work it out.
I have a very simple module which just contains some subroutines to return a
drop down list of days of the month, with the current day selected. This is
going to be used in a few spots, so
Hello,
Can I do something like this:
my @array;
while (LOGFILE) {
chomp;
push (@array, $_)
if m/AAA/i;
print Reading logs...\r;
}
but have it search for more than one string (AAA being that one string)?
I'd like to search for AAA, BBB, and CCC and have all results be put
On Tue, 18 Sep 2001, Tyler Longren wrote:
Can I do something like this:
my @array;
while (LOGFILE) {
chomp;
push (@array, $_)
if m/AAA/i;
print Reading logs...\r;
}
but have it search for more than one string (AAA being that one string)?
I'd like to search for
Please ignore my previous problem.
I was introduced to a function called Exporter. Not sure how general it is,
but for those who want to know, this is the syntax
use Exporter;
@ISA= 'Exporter';
@EXPORT = qw (showdays
showmonths
showyears
);
sub
42 matches
Mail list logo