I have a Perl script that displays html that allows people to upload
line-delimited text files, which the Perl script then reads with a
@records = ;
It's been working for years, until recently a Mac user tried it.
Apparently the Mac only puts \r (0x0d) at the end of each line, whereas
other p
I am outputting html pages via perl. I want to put a button on one of these
pages that, when clicked, pops up a "What would you like to do with this
file? Open from current location / Save to disk?" dialog box, without
affecting the contents of the page that the user is already on, i.e.
withou
Win32 Web -> Perl -> outputting HTML form -> posting back to another Perl
script.
I would like to combine the values collected with an existing PDF file into
a second, new PDF file.
Anyone know of and/or have experience with available modules that can do this?
Thanks,
Steve
I have searched ActiveState for info on this but can't find any. Hopefully
someone here can help.
I have three machines with AS Perl that work great, but one machine with
PPM problems (5.6.0 Build 613).
I'm leary of uninstalling my existing installation on this machine and then
reinstalling t
Outputting an HTML form from a Perl script, the user completes the form,
and clicks Submit which posts to a second Perl script.
Any way to tell the second script whether the browser being used has
JavaScript enabled?
Thanks,
Steve
___
Perl-Win32-We
Perl script start.pl outputs a form with action=end.pl
end.pl does crunching for a while before outputting html, jpegs, etc.
When the user clicks Submit in the start.pl form:
If the user is in Netscape, the cursor turns to an hourglass - visual
indication
If the user is in IE, no hourglass, l
I've done this for years:
print "Content-type: text/html\n\n";
print "";
...
print "";
Now I find I need to do a popup window on top of something I'm doing utilizing the
code above.
I realize I can do an "onLoad" within the body tag outputting JS, but that always
refers to a URL. I want to
Use Netscape 6, select View and set text size by percentage!
>Delivered-To: [EMAIL PROTECTED]
>From: AGaneshalingam <[EMAIL PROTECTED]>
>To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
>Subject: RE: OT RE: Web
>X-Mailer: Internet Mail Service (5.5.2653.19)
>X-SLUIDL: 2011A06C-4E
Is there a clean way, from within a Perl module, to update a files time. I
don't want to open it, read it, etc. I just want to "touch" it, set the
files access time to the system time at that moment.
Thanks.
Steve
___
Perl-Win32-Web mailing list
[EM
Two problems:
Problem 1. When I do a perl script with
use Mozilla::LDAP::Conn;
I get:
Can't locate loadable object for module Mozilla::LDAP::API in @INC (@INC
contains: C:/Perl/lib C:/Perl/site/lib .) at
C:/Perl/lib/Mozilla/LDAP/Utils.pm line 29
Compilation failed in require at C:/Perl/lib/M
When I do this:
@filelist = ;
$files = @filelist;
I get what I expect, but when I do this:
$FILE = "c:\\temp\\" . $VARIABLE . "*.txt";
@filelist = <$FILE>;
$files = @filelist;
it doesn't work. If I display $FILE I get what I expect, but I can't seem
to pass a variable into <>.
How do I dynam
I'm saving client info on my servers to files I create with Perl scripts using
filenames based on a combination of REMOTE_HOST and REMOTE_ADDR env vars.
I realize I could have used cookies, but I did not want to deal with browsers that
don't handle them and people that turn them off.
The probl
I seem to remember reading somewhere that there is a way to use Perl to
save a scripts' input parameters to a file and, conversely, to later
execute the script again using the parameters from the saved file.
I can't seem to find anything on this again.
Is this possible? Any ideas on where I ca
I got it to work, thanks to help from this group, but everything comes
across 'escaped' i.e.
my name
comes across as
my%20name
Is there an easy way to 'unescape' all of this?
Thanks!
Steve
___
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://
I'm saving cookies like this, which seems to be working fine:
sub SetCookie
{
my( $fn, $ln, $addr, $city, $state, $zip, $ctry, $phone, $email ) = @_;
$cookie = new CGI::Cookie( -name=>'myInfo',
-value=> { fn => $fn, ln => $ln, addr => $addr, city => $city, state =>
$state, zip => $
I will need to start communicating with a server via a non-standard port in
the next week or so, and in preparation, I stopped by the LWP reference to
see if anything about ports was mentioned. NOT!
And, there will be no URL for me to access, just an IP.
Can I use an IP/Port with LWP, i.e. '1.
$Bill / Brian,
I think both of you responded directly to me, instead of through the list
and, although you both had some nice code, I *think* (but could be wrong)
that they missed the point of the question.
Both of your solutions are opening files that are local. That was the whole
point of t
gt; http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
>___
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
Steve Sotis
eProcessingNetwork
http://www.eProcessingNetwor
Yes, this is Perl / Web related!
I want to allow people to specify the URL of an image on their server so
that I can serve the image for them through Perl scripts on one of my
servers, some of which are secure, and some of which are insecure and paranoid.
More often than not, the image URL spe
] * 16777216) +
(@current_ip[2] * 65536) + (@current_ip[1] * 256) + @current_ip[0];
and this
$long_current_ip = (@current_ip[3] << 24) + (@current_ip[2] << 16)
+ (@current_ip[1] << 8) + @current_ip[0];
are correct.
Steve
At 04:47 PM 1/19/01 -0600, you wr
Well, I looked there too, but there doesn't seem to be an inet_addr equiv,
so I did this:
$current_ip = $ENV{'REMOTE_ADDR'};
@current_ip = split( /\./, $current_ip );
$long_current_ip = (@current_ip[0] * 16777216) +
(@current_ip[1] * 65536) + (@current_ip[2] * 256) + @current_ip[3];
wh
winsock offers an inet_addr function which converts a dotted IP address to
an unsigned long.
Is there an equivalent Perl function in any library? A search of
ActiveState does not seem to turn up one.
TIA,
Steve
___
Perl-Win32-Web mailing list
[EMAI
Some of my perl programs are getting way too big.
Where can I find docs on how memory is handled when perl.exe loads a .pl file?
For instance, if I put "require" statements in the beginning of the .pl
file, are these brought in by perl.exe when the file is first executed?
Can I reduce memory r
I have years worth of Perl programming development being utilized by
customers over the Internet via standard browsers.
The idea of extending the same functionality to non-Internet users has
recently come up.
This would require distributing my software on a disk or CD, and then
people install
I'm doing the following
my $ua = new LWP::UserAgent;
my $remote_url = $SOME_URL;
my $request = new HTTP::Request('POST', $remote_url);
$request->content_type('application/x-www-form-urlencoded');
then I'm constructing a string:
In a reentrant Perl CGI script that outputs an HTML FORM, I'd like to have
multiple submit buttons with different labels, but I'd need to know which
button was clicked on when reentering.
I realize I can set each buttons' "name" attribute differently, but how do
I test which button was hit whe
I'm reading 32 bytes out of a file into a buffer, some of which are ASCII
text, some of which is binary/hex (0x1c, 0x1f).
I need to know the position of the different binary/hex data values within
the buffer.
These
$position = index( $Data, 034 );
$position = index( $Data, 037 );
and these
Anyone have an example of a Perl script that outputs HTML that allows a
user to click a button that will download a file to the user, i.e. user
clicks button, browsers 'Save As' dialog box appears, user traverses to
where he/she wants the file and clicks OK, and the web server sends the file.
How can I test if a string is a valid hex number or not, i.e. test if it
contains characters other than 0-9, a-f and A-F?
Thanks,
Steve
___
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
I'm familiar with this:
my $ua = new LWP::UserAgent;
my $remote_url = "http://www.domain.com";
my $request = new HTTP::Request('POST', $remote_url);
$request->content_type('application/x-www-form-urlencoded');
$request->content( $stg );
my $respons
30 matches
Mail list logo
