procmail or perl to drop dups?
Greetings; Has anyone developed any method to drop messages that are cross-posted to both [EMAIL PROTECTED] and [EMAIL PROTECTED]? Care to share? Thanks, Dennis -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
$ENV{'HTTP_USER_AGENT'
Hi there,
I have a problem in detecting any kind of environment
variables.
I always get a premature script error , when I launch sth like
this.
#!C:/Perl/bin/perl.exe -w
use diagnostics;
use strict;
use CGI;
$browser = $ENV{'HTTP_USER_AGENT'};
if ($browser =~ /Mozilla/) {
#
# Netscape
#
} else {
#
# Non Netscape
#
}
I run a apache 1.3.22 with activ perl build518
what else do I have to say?
I have no Idea...
in my apache cgi is set up and i can run basic scripts from the
prompt.
who knows what I have to do?
cheers.
bernd
__
Beginnen Sie das neue Jahr gut informiert: Zeitschriften-Abos zum Sparpreis!
http://www.lycos.de/webguides/entertainment/weihnachten/abo.html
250 Farb-Visitenkarten GRATIS*. In einem Wert von EUR 99,00!
http://www.vistaprint.de/vp/splash/lycosde.asp
Jetzt eigene Domains für 1,23 Euro/Monat
http://lycos.de.domainnames.com/default.asp?caller=lycos_d_footer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
FormMail Spam Hole
If you have time, please read the following article. If you use FormMail.cgi, then let me suggest that it's required reading. http://www.newsbytes.com/news/02/174174.html For beginning Perl/CGI programmers, this is good information to have. When I first started using CGIs, I used FormMail frequently, and I still have a few sites that employ a more feature-rich hack of the program called BFormMail. It's not necessarily just the script that is the problem; it is also how it is installed. If you choose to use this freeware CGI rather than writing your own code, make sure you run it SUID (on UNIX/Linux systems). If that sounds intimidating, it's not. It's a relatively painless process: 1. Log on to your UNIX web hosting account with your secure shell. (You have SSH access, right?) :-) 2. Find the directory where you have the script (probably cgi-bin, although if you can run scripts in another directory, that may frustrate some newer crackers). 3. Change the permissions of the directory to SUID: chmod 4711 4. Change the permissions of the CGI script to SUID (from within the cgi directory): chmod 4711 FormMail.cgi 5. Change the shebang line (line 1) of your FormMail script: Old way: #!/usr/bin/perl New way: #!/usr/bin/perl -U This tells your script that it will run the script as the authorized user, and any attempts to run it by an outside entity will be denied. Not due to any security built into the script, but rather the existing security mechanisms on *NIX. - Scot Robnett inSite Internet Solutions Square West Center 454 West Jackson Street Woodstock, IL 60098 (815)206-2907 office (815)342-6480 mobile [EMAIL PROTECTED] http://www.insiteful.tv --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.317 / Virus Database: 176 - Release Date: 1/21/2002 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Renaming files with Perl
Hello, I posted a question about this a couple days ago and only got 2 responses, but neither of them worked for him. So I figured I'd start new since he told me the EXACT format he would like the files to be in. My friend wants to rename a dat file as he calls it. (message.dat?) He would like to rename them in this exact format: the word "mess", current date (2 character format) then the extension .html. So if he would run this today, the renamed file would be: mess020802.html Any ideas on this? He's really bugging me about it. :) Troy -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: $ENV{'HTTP_USER_AGENT'
Bernd Lach wrote:
>Hi there,
>
>I have a problem in detecting any kind of environment
>variables.
>
>I always get a premature script error , when I launch sth like
>this.
>
>
>#!C:/Perl/bin/perl.exe -w
>use diagnostics;
>use strict;
>
>use CGI;
>
>$browser = $ENV{'HTTP_USER_AGENT'};
>
>if ($browser =~ /Mozilla/) {
> #
> # Netscape
> #
>} else {
> #
> # Non Netscape
> #
>}
>
>
>I run a apache 1.3.22 with activ perl build518
>what else do I have to say?
>
>I have no Idea...
>in my apache cgi is set up and i can run basic scripts from the
>prompt.
>
>who knows what I have to do?
>
>cheers.
>bernd
>
Just add:
print "Content-type: text/html\n\n"; before you print anything else
and on the other hand:
I recomend not to use $ENV{'HTTP_USER_AGENT'} if using CGI module
use user_agent() method instead:
my $q = new CGI;
my $uagent = $q->user_agent();
eGardz! ;-)
--
The Power to Serve!
Re: Renaming files with Perl
On Fri, 8 Feb 2002 06:48:56 -0800, Troy May <[EMAIL PROTECTED]> wrote:
> Hello,
>
> I posted a question about this a couple days ago and only got 2
> responses, but neither of them worked for him. So I figured I'd start
> new since he told me the EXACT format he would like the files to be
> in. My friend wants to rename a dat file as he calls it.
> (message.dat?) He would like to rename them in this exact format: the
> word "mess", current date (2 character format) then the extension
> .html. So if he would run this today, the renamed file would be:
> mess020802.html
>
> Any ideas on this? He's really bugging me about it. :)
#!/usr/bin/perl -w
use strict;
my $file = 'message.dat';
my ($d,$m,$y)=(localtime)[3,4,5];
my $newname = sprintf('mess%02i%02i%02i.html', $d, ++$m, ($y+1900)%100);
print "$file => $newname\n";
rename($file, $newname)
or warn "Could not rename '$file' to '$newname': $!\n";
__END__
--
briac
<< dynamic .sig on strike, we apologize for the inconvenience >>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Reading a big text file
Hi all, I want to read a text file line by line and to make some changes in some lines. Which method do you recommend? To store the file in an array, then to insert the changed value in that array, and then to write that array to the file, or to use a temporary file to store each line from the source file and twhen I want to modify a line, I have just to insert it in the temporary file. I ask this because I don't know if using the first method it will eat my whole memory. Thanks! Teddy, My dear email address is [EMAIL PROTECTED] _ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Problem with a simple script
Hi all,
I tried to make a simple script that for the moment needs only to read the
content of a .dbx file.
I used:
#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
#here I printed a simple HTML header.
open (DAT, "$file");
while () {
print "$_";
}
# here the HTML footer.
I think this should print the content of the file on the screen.
But it prints only a line of text.
I think I know which could be the problem but I don't know the solution.
The file is a dbx one and it is not 100% text only.
I want to read all the file and to extract the text.
The line printed on the screen is:
ÏþÅýtofãÑšNÀO£ ÔðäÀ RTâ >l ð“ €÷ ‰ œÜ ð8p‹
Ô*qLçÐPl Ž L
Thank you for help.
Teddy,
My dear email address is [EMAIL PROTECTED]
_
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: Problem with cgi scripts
--- Charles Waterman <[EMAIL PROTECTED]> wrote:
> When I try to run a CGI script on my webhost server with "use CGI
> qw/:standard/;" it does not work. What up with that
"use CGI qw/:standard/;" is perfectly valid syntax (and even good practice). However,
"it does
not work" does not give us much to work with.
1. What error messages are you receiving?
2. Do you have access to your error logs?
3. Is the code short enough that you can post it here?
4. Have you tried "use CGI::Carps qw/fatalsToBrowser/;"?
The last tip is useful if you don't have access to the logs. It will attempt to send
the error
messages to your browser so you can see what's going on.
Cheers,
Curtis "Ovid" Poe
=
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
__
Do You Yahoo!?
Send FREE Valentine eCards with Yahoo! Greetings!
http://greetings.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Problem with cgi scripts
When I try to run a CGI script on my webhost server with "use CGI qw/:standard/;" it does not work. What up with that -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Reading a big text file
On Fri, 8 Feb 2002, Octavian Rasnita wrote: > To store the file in an array, then to insert the changed value in that > array, and then to write that array to the file, or to use a temporary file > to store each line from the source file and twhen I want to modify a line, I > have just to insert it in the temporary file. I recommend the latter, using a temp file to write your changes out to. Reading a file into an array will eat up memory if it's a big file. -- Brett http://www.chapelperilous.net/ Q: Why do WASPs play golf ? A: So they can dress like pimps. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Image Galleries On-the-Fly
Hello, All: I'm hoping to build a CGI script that: 1. creates a thumbnail index of .jpg files in a directory, and 2. serves full-size images wrapped in an HTML template, on-the-fly. I recall a similar thread a few weeks ago on this list but have misplaced the series of messages that transpired (and I can't find the [EMAIL PROTECTED] arhive). Could somebody please tell me where to find the archive? -- Eric P. Los Gatos, CA -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Image Galleries On-the-Fly
http://archive.develooper.com/beginners-cgi%40perl.org/ http://lists.perl.org At Friday, 8 February 2002, Eric Pretorious <[EMAIL PROTECTED]> wrote: >Hello, All: > >I'm hoping to build a CGI script that: > >1. creates a thumbnail index of .jpg files in a directory, and >2. serves full-size images > >.wrapped in an HTML template, on-the-fly. > >I recall a similar thread a few weeks ago on this list but have misplaced >the series of messages that transpired (and I can't find the >[EMAIL PROTECTED] arhive). > >Could somebody please tell me where to find the archive? > >-- >Eric P. >Los Gatos, CA > >-- >To unsubscribe, e-mail: [EMAIL PROTECTED] >For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Image Galleries On-the-Fly
On Fri, 8 Feb 2002, Eric Pretorious wrote: > I'm hoping to build a CGI script that: > > 1. creates a thumbnail index of .jpg files in a directory, and > 2. serves full-size images > > wrapped in an HTML template, on-the-fly. I found the Apache::Album modlue and read the readme.txt file but still need some guidance on a few items: 1. Is there a module like Apache::Album that can be configured to wrap every response in an HTML template? 2. Should I split the thumbnail/index-creation and full-sized image response between two modules? 3. Is there a module that will add 'previous' and 'next' links to each full-sized image so that users can view the entire series of images without having to go back to the index after every image? 3. How can I set-up Apache to dynamically recognize users' photo directories. i.e., Add users to the system without adjusting httpd.conf for each new user? e.g., in httpd.conf: # Would this work? instead of spec'ing: ad nauseum. 4. Does Apache::Album cache the thumbnails or does it create then anew every time? -- Eric P. Los Gatos, CA -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Image Galleries On-the-Fly
> "Eric" == Eric Pretorious <[EMAIL PROTECTED]> writes: Eric> I'm hoping to build a CGI script that: Eric> 1. creates a thumbnail index of .jpg files in a directory, and Eric> 2. serves full-size images Eric> ...wrapped in an HTML template, on-the-fly. google for: site:stonehenge.com "Stonehenge::Pictures" -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <[EMAIL PROTECTED]> http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: beginners-cgi Digest 8 Feb 2002 17:29:24 -0000 Issue 165
I want to change the string "d:\orant\oracle" to "d:\\orant\\oracle" Anyone know how to do this? Thanks, allen > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]] > Sent: Friday, February 08, 2002 9:29 AM > To: [EMAIL PROTECTED] > Subject: beginners-cgi Digest 8 Feb 2002 17:29:24 - Issue 165 > > << File: ATT1194029.txt >> << Message: Multiple Print "Location:$link"; > >> << Message: To write a script that reads numbers from STDIN and print > on STDOUT. >> << Message: Re: To write a script that reads numbers from > STDIN and print on STDOUT. >> << Message: Re: To write a script that > reads numbers from STDIN and print on STDOUT. >> << Message: regular > expressions >> << Message: Re: regular expressions >> << Message: > multipart/x-mixed-replace and image/gif >>
RE: beginners-cgi Digest 8 Feb 2002 17:29:24 -0000 Issue 165
On Fri, 8 Feb 2002, Allen Wang wrote: > I want to change the string "d:\orant\oracle" to "d:\\orant\\oracle" > > Anyone know how to do this? $string =~ s|\\||g; (\ is used to escape metacharacters in a regexp, so you need to escape \ also). -- Brett http://www.chapelperilous.net/ Mathematicians practice absolute freedom. -- Henry Adams -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: beginners-cgi Digest 8 Feb 2002 17:29:24 -0000 Issue 165
--- Allen Wang <[EMAIL PROTECTED]> wrote:
> I want to change the string "d:\orant\oracle" to "d:\\orant\\oracle"
>
> Anyone know how to do this?
>
>
> Thanks,
> allen
I'm not sure exactly what this stemmed from, so my comment may be out of place, but
Perl is
portable and will let you use the forward slash in file paths. With an absolute path
it's not as
useful, but a relative path such as "../images/foo.jpg" could be just the same on a
Windows box as
a Linux box as a Mac Box...
With that in mind:
$path =~ s{\\}{/}g;
Cheers,
Curtis "Ovid" Poe
=
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
__
Do You Yahoo!?
Send FREE Valentine eCards with Yahoo! Greetings!
http://greetings.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: beginners-cgi Digest 8 Feb 2002 17:29:24 -0000 Issue 165
I am not sure that this applies to command lines - if I put a file
path with / in a variable, then pass that variable to a command line
tool, I think that fails. So I constantly have to put these kinds
of variables in \\ form rather than s# before calling the CLT. Actually
what I do is to help with porting is set a variable to / or \\ based
on what OS I am in, use that variable as a directory/file separator,
then use [\\/] in regexes that parse paths. Hopefully there is
a better way?
The same would probably be true for environment variables, which
looks like what this Oracle thing is for.
At Friday, 8 February 2002, Curtis Poe <[EMAIL PROTECTED]> wrote:
>--- Allen Wang <[EMAIL PROTECTED]> wrote:
>> I want to change the string "d:\orant\oracle" to "d:\\orant\\oracle"
>>
>> Anyone know how to do this?
>>
>>
>> Thanks,
>> allen
>
>I'm not sure exactly what this stemmed from, so my comment may be out
>of place, but Perl is
>portable and will let you use the forward slash in file paths.
With an
>absolute path it's not as
>useful, but a relative path such as "../images/foo.jpg" could be just
>the same on a Windows box as
>a Linux box as a Mac Box...
>
>With that in mind:
>
>$path =~ s{\\}{/}g;
>
>Cheers,
>Curtis "Ovid" Poe
>
>=
>"Ovid" on http://www.perlmonks.org/
>Someone asked me how to count to 10 in Perl:
>push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
>shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @A
>
>__
>Do You Yahoo!?
>Send FREE Valentine eCards with Yahoo! Greetings!
>http://greetings.yahoo.com
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
image button submit?
Is there a way to use an image button in CGI.pm to submit? Thanks, Josiah -Original Message- From: Al Hospers [mailto:[EMAIL PROTECTED]] Sent: Thursday, February 07, 2002 8:42 PM To: 'Josiah Altschuler'; [EMAIL PROTECTED] Subject: RE: Passing a hash through a URL > I have a question about passing data through URL's. I'm > passing hashes in a > CGI script, but sometimes when I click on a link that passes > a larger hash, > nothing happens. I don't get any message. I'm guessing > there is a limit to > the amount of data I can pass through a URL? If this is the > case, are there > any ways to fix this problem? I assume by "passing data through URL's" you mean using GET. there is a limit, I don't remember exactly what it is. if you use POST there is effectively no limit. hth Al Hospers CamberSoft, Inc. alcambersoftcom http://www.cambersoft.com Shockwave and Director development, CD-ROM, HTML, CGI scripting, and Graphic Design. A famous linguist once said: "There is no language wherein a double positive can form a negative." YEAH, RIGHT -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: image button submit?
On Fri, 8 Feb 2002, Josiah Altschuler wrote: > Is there a way to use an image button in CGI.pm to submit? Sure: print image_button(-name=>'name', -src=>'path/to/img'); will produce: This is documented in the CGI.pm documentation, accessible via perldoc. -- Brett http://www.chapelperilous.net/ BOFH excuse #393: Interferance from the Van Allen Belt. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: $ENV{'HTTP_USER_AGENT'
If you're trying to view your results in a browser, you need to generate
HTTP headers.
-Original Message-
From: Bernd Lach [mailto:[EMAIL PROTECTED]]
Sent: None
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: $ENV{'HTTP_USER_AGENT'
Hi there,
I have a problem in detecting any kind of environment
variables.
I always get a premature script error , when I launch sth like
this.
#!C:/Perl/bin/perl.exe -w
use diagnostics;
use strict;
use CGI;
$browser = $ENV{'HTTP_USER_AGENT'};
if ($browser =~ /Mozilla/) {
#
# Netscape
#
} else {
#
# Non Netscape
#
}
I run a apache 1.3.22 with activ perl build518
what else do I have to say?
I have no Idea...
in my apache cgi is set up and i can run basic scripts from the
prompt.
who knows what I have to do?
cheers.
bernd
__
Beginnen Sie das neue Jahr gut informiert: Zeitschriften-Abos zum Sparpreis!
http://www.lycos.de/webguides/entertainment/weihnachten/abo.html
250 Farb-Visitenkarten GRATIS*. In einem Wert von EUR 99,00!
http://www.vistaprint.de/vp/splash/lycosde.asp
Jetzt eigene Domains für 1,23 Euro/Monat
http://lycos.de.domainnames.com/default.asp?caller=lycos_d_footer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: procmail or perl to drop dups?
On Fri, 8 Feb 2002, Dennis G. Wicks wrote: > Has anyone developed any method to drop messages that > are cross-posted to both [EMAIL PROTECTED] and > [EMAIL PROTECTED]? Here's the procmail recipe I use for duplicates: :0 Whc: msgid.lock | formail -D 8192 msgid.cache :0 a: DUPLICATES -- Brett http://www.chapelperilous.net/ A king's castle is his home. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: $ENV{'HTTP_USER_AGENT'
On , Bernd Lach said:
>#!C:/Perl/bin/perl.exe -w
>use diagnostics;
>use strict;
You're using strict and -w, good.
>use CGI;
>
>$browser = $ENV{'HTTP_USER_AGENT'};
Oops. You didn't declare $browser.
my $browser = $ENV{HTTP_USER_AGENT};
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
what does y/// stand for? why, yansliterate of course.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
