CGI.pm - Remote_Addr

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 regardles

RE: Help with manipulating a string.

d 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: Ma

Help with manipulating a string.

c (@post) { > 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

RE: Net::SSH and Net::FTP?

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 o

Net::SSH and Net::FTP?

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; >

Viewing logs on other computers.

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 my

Question about OUTFILE?

Hey all, I'm trying to read from a file, copy it's contents to another file, then overwrite the first file. >open (INFILE, "@array1 = ; >close(INFILE); >foreach my $rec (@array1) { chomp($rec); ($x,$y,$z) = split(/\|/,$rec); if ($y ne "AK") {

RE: Passing and returning values from another script?

main Group Anchorage, Alaska -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, "./script

Passing and returning values from another script?

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 t

RE: Reverse Order?

, 2003 10:58 PM To: Mark Weisman; [EMAIL PROTECTED] Subject: RE: Reverse Order? try open (INFILE, "; close(INFILE); foreach my $rec (reverse(@array)) { chomp($rec); ($a,$b) = split(/\|/,$rec); print "$a - $b\n"; }; -Original Message----- From: Mark Weisman

Capturing passed Parameters?

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 goo

Reverse Order?

I read a text file into HTML for viewing through a webpage, fairly straight forward. Open (INFILE, "; Close(INFILE); Foreach my $rec (@array) { chomp($rec); ($a,$b) = split(/\|/,$rec); print "$a - $b\n"; }; This code simply reads the text file, and populates it to the scre

Using ssh for uptime?

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,"; #Close(INFILE); #Foreach my $rec (@machines) { #

RE: Uptime on Remote computer?

n Group Anchorage,AK 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: &g

Uptime on Remote computer?

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 grabbing

Capturing Session values?

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 scrip

Cookies?

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 f

Array with selected records.

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, " close(INFILE); foreach my $rec (@records) { chomp($rec); ($val, $val1, $val2, etc.) =

Comparison.

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, "> or die "Error opening