This might be a little off-topic and/or a double post of which I'm
really sorry, but my mail server has done bad things to me lately. I'm
trying to pull a remote_addr with CGI.pm, however, the machine I'm doing
it on is behind a firewall. The Remote_addr keeps showing the firewall
address
and the text file I'm posting it all too, I know that this
is more html than PERL, but how do I remove the CRLF, and just have the
^M again? Help.
In Service,
Mark
-Original Message-
From: James Edward Gray II [mailto:[EMAIL PROTECTED]
Sent: Wednesday, December 10, 2003 5:36 AM
To: Mark Weisman
) {
chomp($rec)
(Unknown here) = split(/\^M/,$rec);
print whatever I need printed\n;
};
I'm not sure as to how to declare it, or if there is another way?
In Service,
Mark Weisman
-Original Message-
From: Pandey Rajeev-A19514 [mailto:[EMAIL PROTECTED]
Sent: Tuesday, December 09
Thanks for the reply Dan, the two remote servers do not have FTP running
on them, so they must initialize the FTP connection. I've now built the
scripts on their ends, I'm working on an SSH script that will login to
them and launch the scripts on each server. Got the traffic direction
thing going
I would like to use SSH to login to a remote system, then using FTP,
upload a file from the remote machine to another machine which will
display the data. If I can automate this process, I think I'll be in
great shape, tell me does this code seem like it would work for this?
use Net::SSH::Perl;
I've got several BSD boxes running in my organization, and I'd like to
make a singular interface into them for viewing the logs. That's all I
want to do, I don't want to give permissions to the users of this
interface to do anything else, just review the logs. I've got my scripts
working fine on
Hey all,
I'm trying to read from a file, copy it's contents to another file,
then overwrite the first file.
open (INFILE, myfirstfile.txt) || die Error opening
myfirstfile.$!,stopped;
@array1 = INFILE;
close(INFILE);
foreach my $rec (@array1) {
chomp($rec);
($x,$y,$z) =
I would like to encrypt textbox provided passwords. I have
a script that I found on the web, and it asks that I call the script and
provide the word afterwards (i.e. ./scriptname.pl password). The script then
provides me the encrypted password to the screen. I am wondering how I can pass
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Friday, October 24, 2003 12:08 AM
To: Mark Weisman; [EMAIL PROTECTED]
Subject: RE: Passing and returning values from another script?
I'm not sure but
open (SCRIPT, ./scriptname.pl password|);
my $output = join
John,
I may be a little old fashioned, however, the code below seems to work
OK.
open(INFILE, mytextfile.txt) || die Error opening
mytextfile.txt.$!,stopped;
@info = INFILE;
close(INFILE);
Sincerely in Christ,
Mark-Nathaniel Weisman
President / Owner
Outland Domain Group Consulting
Anchorage
How do you capture passed parameters in Perl on Windows? In regular perl
its:
$variable = param('passed');
However, when I tried to run that under windows, it dies a horrible
death? I've looked through perl.org for more information about
converting over my unix scripts to windows, any other
, 2003 10:58 PM
To: Mark Weisman; [EMAIL PROTECTED]
Subject: RE: Reverse Order?
try
open (INFILE, filename.txt) || die Error opening
filename.txt.$!,stopped; @array = INFILE; close(INFILE); foreach my
$rec (reverse(@array)) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print i
I read a text file into HTML for viewing through a webpage, fairly
straight forward.
Open (INFILE, filename.txt) || die Error opening
filename.txt.$!,stopped;
@array = INFILE;
Close(INFILE);
Foreach my $rec (@array) {
chomp($rec);
($a,$b) = split(/\|/,$rec);
print i$a -
I've got a script that I'm working on that will use SSH to check the
uptime on servers within my domain. However, I'm unsure of how exactly
to do this this is what I have so far.
##!/usr/bin/perl
#My (@machines,$host,$user,$pass)
#Open(INFILE,machines.txt)
# or die Error opening
USA
http://www.outlander.us
[EMAIL PROTECTED]
-Original Message-
From: Morten Liebach [mailto:[EMAIL PROTECTED]]
Sent: Sunday, August 11, 2002 6:00 PM
To: [EMAIL PROTECTED]
Subject: Re: Uptime on Remote computer?
On 2002-08-11 13:19:13 -0800, Mark Weisman wrote:
Hello List:
What
Hello List:
What is the command structure to grab an uptime request from a remote
computer? I have several systems in my organization that I would like to
grab the uptime for, then post them to a dynamic web page. The web page
I've already got done, I just need the command structure for
I'd like to be able to capture some remote information when a user logs
into and uses a CGI script, but I'm not sure I understand how?
I can do it using an echo and cat as in:
#!/usr/local/sh
Echo REMOTE_ADDR = $REMOTE_ADDR
Cat
But what I can't do is put that with in a standard perl script.
Hello all,
I'm really lost, I'm trying to create a cookie that can acquire the
session id for the user, (so I can ensure that they did or did not
submit and entry). However, I'm not sure I'm doing it right (and it
doesn't work). Can you look below and tell me what I did wrong.
Called directly
Hello all:
Hey I'm wanting to populate an array with only select records, but I'm
not sure how (more importantly when) to use a comparison piece. Please
help me if you can:
Open (INFILE, something.txt)
Or die Error opening something.txt. $!, stopped;
@records = INFILE
close(INFILE);
Hey all,
I'm trying to open a text file, collect the file into an array called
@records. Then I'm going to write the data back out to another text file
based on a variable such as:
$sfield and $var are fed from an HTML doc.
If ($sfield == 1) {
open (INFILE, mytext.txt)
or die Error
20 matches
Mail list logo