Pattern matching

[B. Fongo]

Hi

I'm writing a script that will connect to an ftp server (Redhat mirror), 
and download new versions of all packages that are on my machine. First 
of all, the script collects information about all the packages installed 
on my machine in an array (installed_packages). Then its goes on to get 
a list of all packages in a direcory on the ftp server and store it in 
an array (@remote_packages).

The next step is for me to select those packages from @remote_packages 
if  found in @installed_packages and newer that the one in 
@installed_packages.

for instance:

@remote_packages = qw(perl-5.8.0-88.3.i386.rpm  samba-2.2.7-5.7.0.i386.rpm);
@installed_packages = qw(perl-5.8.0-80.3.i386.rpm 
samba-2.2.7-5.8.0.i386.rpm);

In this example, the remote package perl is newer, so it should be 
stored in a third array; to be download. The below isn't complete, and 
I'm not sure of  how to get the pattern matching correctly.

==

sub select_newer {
my (@remote_packages, @installed_packages);
(@remote_packages, @installed_packages) = @_;
foreach (@installed_packages){
 my $i = grep {$_} @remote_packages && ;
}
I'll appreciate any help

Babs

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

[REBUILT] Re: Beta Testing a Robot

[Casey West]

It was Thursday, December 04, 2003 when Chuck Fox took the soap box, saying:
: Casey,
: 
: I would like to chime in on the side of sending the search results 
: directly to the poster.  In most cases, the poster is at the mercy of 
: the search engine they choose. Whereas, you have the advantage of  
: knowing where to search.  Please do not abandon this work.  A digest -- 
: to which, one may subscribe -- of this activity may also prove useful in 
: the long run to the lurkers like myself.

Fear not!  I've received a lot of good feedback, and here are the
results.

  http://bfr.caseywest.com

The First Response System is no longer going to the mailing list.
It's also not going to the OP.  If you notice, the new footer on all
the list postings points to a redirection URL.

  http://learn.perl.org/first-response

You can subscribe to the RSS feed.

  http://bfr.caseywest.com/index.rdf

Your can search the site and read all the archives if you like, as
well.  We'll see how this approach works out.  I've yet to get the FAQ
updated, but I will.

: Thanks for the cool and interesting approach to getting an answer out to 
: the questioner.

I hope it works. The goal is to be helpful, after all. :-)

: -- 
: To unsubscribe, e-mail: [EMAIL PROTECTED]
: For additional commands, e-mail: [EMAIL PROTECTED]
:  

Aah, there it is.

  Casey West

-- 
Usenet is like Tetris for people who still remember how to read. 
  -- Button from the Computer Museum, Boston, MA


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Beta Testing a Robot

[Chuck Fox]

Casey,

I would like to chime in on the side of sending the search results 
directly to the poster.  In most cases, the poster is at the mercy of 
the search engine they choose. Whereas, you have the advantage of  
knowing where to search.  Please do not abandon this work.  A digest -- 
to which, one may subscribe -- of this activity may also prove useful in 
the long run to the lurkers like myself.

Thanks for the cool and interesting approach to getting an answer out to 
the questioner.

Chuck

[EMAIL PROTECTED] wrote:

It was Wednesday, December 03, 2003 when Casey West took the soap box, saying:
: I'm beta-testing a robot that searches Google when new questions are
: posed to the beginners' lists.  I have no idea if it will be useful.
: :-)
: 
: I'm going to watch it closely and hope it is.  I'll remove it if I
: find that it does a bad job.

Thank you for your timely and useful responses, they're under
consideration.  Until a decision has been reached (and re-coded), the
bot will be temporarily suspended.
 Casey West

 



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Beta Testing a Robot

[Casey West]

It was Wednesday, December 03, 2003 when Casey West took the soap box, saying:
: I'm beta-testing a robot that searches Google when new questions are
: posed to the beginners' lists.  I have no idea if it will be useful.
: :-)
: 
: I'm going to watch it closely and hope it is.  I'll remove it if I
: find that it does a bad job.

Thank you for your timely and useful responses, they're under
consideration.  Until a decision has been reached (and re-coded), the
bot will be temporarily suspended.

  Casey West

-- 
"I'm just glad it'll be Clark Gable who's falling on his face and not
Gary Cooper."
 -- Gary Cooper on his decision not to take the leading role in "Gone
With The Wind."


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: Passing the hash

[drieux]

On Dec 4, 2003, at 12:21 PM, Jonathan Mangin wrote:
[..]
This is a pretty old book and I'm wondering if there's a
newer, better way? I wish to be able to achieve what would
be the results of this (if it were possible):
if ($CGI->param("Screen3")) {
   showmeScreen3($CGI, %widgets);
}
...
but, of course, %widgets doesn't exist at compile time.
Something I read in perlreftut made me think I might be
able to use a reference here. Possible?
Alternatively, is there syntax that allows passing a hash
using a hidden input variable? i.e.:

[..]

I think you might want to re-think your basic 'interface'
and then you might find that 'dispatchers' are your friend.
First the Interface, then the dispatcher.

Let's put in something like

	

Then you could go with a dispatcher of the form

my %process = (
Screen1 => \&showScreen1,
Screen2 => \&showScreen2,
Screen3 => \&showScreen3,
);
	...

	my $screen = $CGI->param("screen")

if ( exists($process{$screen}))
{
$process{$screen}($CGI);
}else{
process_broken_cgi($CGI);
}

This way only the 'widgets' that need to be 'hidden'
are actually shipped out in the html... This way you
can also 'grow' your Dispatcher as you need to,
and add functionality as required...
ciao
drieux
---

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Passing the hash

[Jonathan Mangin]

Hello all...

In my example-driven world I find [something like] this in
'CGI Programming with Perl', constructed in main::

if ($CGI->param("Screen3")) {
   showmeScreen3($CGI);
}
elsif ($CGI->param("Screen2")) {
   showmeScreen2($CGI);
}
else {
   showmeScreen1($CGI);
}

This is a pretty old book and I'm wondering if there's a
newer, better way? I wish to be able to achieve what would
be the results of this (if it were possible):

if ($CGI->param("Screen3")) {
   showmeScreen3($CGI, %widgets);
}
...

but, of course, %widgets doesn't exist at compile time.
Something I read in perlreftut made me think I might be
able to use a reference here. Possible?

Alternatively, is there syntax that allows passing a hash
using a hidden input variable? i.e.:



Thanks,
Jon



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: pass a variable from php to the perl file

[drieux]

On Dec 4, 2003, at 7:24 AM, Ciko Parera wrote:
[..]
I am trying to call a perl script from php (with shell_exec) and
pass a variable to the perl file I need to get the value of a variable 
from a PHP script, and put it into my perl script
Does anyone know how I do this?
[..]

Since you are going to invoke
the perl code with a shell exec,
why not pass it as a command line option:
	"myPerlCode $variable"

and have your perlcode pick it up from
@ARGV the old fashion way???
You might want to look at formalizing
that approach with say Getopt::Long
on the perl side so that you can simplify
your interface ...
ciao
drieux
---

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

RE: Beta Testing a Robot

[Shaw, Matthew]

My $0.02 on this:

While it may be a worthwhile personal pursuit to write a script that
provides relevant results from google based on the text of someone's
email/news posting/etc, I don't think this is the forum for it. These
are very busy lists to start with and this essentially will result in
doubling the 'new' traffic to the list with information that is
irrelevant to anyone but the original poster. The irrelevancy of the
auto responder will increase when faced with questions by folks that are
so far off that they're not even asking the right question to begin
with(seems to be somewhat common in these groups). For these people,
investigative questioning is the only correct response and an
autoresponder (with a lot of text - read: information overload) will
only confuse them more.

 If anything, the response should go directly to the poster, not to the
list. IE: 

Your question has been posted to the XXX List, while you're waiting for
someone to respond, try out these links from google.com that may or may
not be relevant to your query:

1.  
...
10.  

Also, googling should be the first resort of any technical person. I
think the list FAQs should be updated in Section 2, Question 9 'Other
Tips Before Posting To The List' with something like:

_1._ Try to google.com with your question first! Google has extremely
relevant search results and may preclude asking your question to the
list. 

Tossing his copper in the pot,
Matt Shaw
Technical Architect
xwave, An Aliant Company
Bus: 506-389-4641 (Mctn)
Bus: 506-444-9639 (Fred)
Cel: 506-863-8949
[EMAIL PROTECTED]


> -Original Message-
> From: Casey West [mailto:[EMAIL PROTECTED] 
> Sent: Wednesday, December 03, 2003 3:41 PM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: Beta Testing a Robot
> 
> 
> I'm beta-testing a robot that searches Google when new 
> questions are posed to the beginners' lists.  I have no idea 
> if it will be useful.
> :-)
> 
> I'm going to watch it closely and hope it is.  I'll remove it 
> if I find that it does a bad job.
> 
>   Casey West
> 
> -- 
> Good Idea: Kissing a loved one.
> Bad Idea:  Kissing a total stranger. 
> 
> 
> -- 
> 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: Beta Testing a Robot

[Casey West]

It was Thursday, December 04, 2003 when Wiggins d Anconia took the soap box, saying:
: 
: 
: > It was Wednesday, December 03, 2003 when Casey West took the soap box,
: saying:
: > : I'm beta-testing a robot that searches Google when new questions are
: > : posed to the beginners' lists.  I have no idea if it will be useful.
: > : :-)
: > 
: > I should like to make an important note. This bot is not intended to
: > deter people from answering questions. Indeed, the goal of this list is
: > still to give detailed, useful answers to questions. Specific answers
: > that really help people.
: 
: I don't quite understand why the first response is sent back to the list
: rather than just the OP though?  Using your analogy it seems like the
: first response is *also* trying to save the doctors at the same time,
: which would seem to get in their way. Another concern is that the
: response comes from your address, or at least uses your name, which will
: eventually (though maybe the subject will stem this, since it just went
: in) cause me to ignore all posts from "Casey West" which would be a bad
: thing.
: 
: Personally I use the list through SMTP and don't have a thread/filter
: option for about half the time I am reading it (don't worry early next
: year I intend to write a web mail client that I can use that will do
: these things ;-)) which means the automated messages get in the way more
: than they help *me*. 
: 
: I do like the idea of sending help back to the OP, and I appreciate your
: time and efforts as admin of the list(s), just throwing out my $.02

Thanks for the input, it's most valuable.  That's the point of
testing, after all.  :-)

  Casey West

-- 
When a cat is dropped, it always lands on its feet; when toast is
dropped, it always lands with the buttered side facing down. I propose
to strap buttered toast to the back of a cat; the two will hover,
spinning inches above the ground. With a giant buttered-cat array, we
could power entire metropolitan areas.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Beta Testing a Robot

[Casey West]

It was Wednesday, December 03, 2003 when Casey West took the soap box, saying:
: I'm beta-testing a robot that searches Google when new questions are
: posed to the beginners' lists.  I have no idea if it will be useful.
: :-)

I should like to make an important note. This bot is not intended to
deter people from answering questions. Indeed, the goal of this list is
still to give detailed, useful answers to questions. Specific answers
that really help people.

This robot is intended as a First Response Service, something that can
help the questioner between the time they ask a question and the time
they receive a good answer, from a human. My goal is that the archives
from this list and others, and the web itself will be of further
assistance, perhaps even adding a spark of creativity to some code or
thought process. Therefore I hope this robot will bring that information
a small step closer to the list.

So please, keep answering those questions. The robot doesn't do such
a great job at answering questions, only guesses at where the
technical information might be, which is still a very useful service
as far as I can see.

Finally, the subject lines from the robot have been altered to show what
it really is, a First Response System. Think of a person in cardiac
arrest. First Response does some very general, well tested attempts at
saving the patient. Sometimes they're successful, but the patient still
needs to see the doctor, maybe even ER. That's what we're here for. :-)

  Casey West

PS: For all who asked, I'll show the source code in due course.

-- 
"I have traveled the length and breadth of this country and talked
with the best people, and I can assure you that data processing is a
fad that won't last out the year."
 -- The editor in charge of business books for Prentice Hall, 1957


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Beta Testing a Robot

[Christopher G Tantalo]

Casey West wrote:

I'm beta-testing a robot that searches Google when new questions are
posed to the beginners' lists.  I have no idea if it will be useful.
:-)
I'm going to watch it closely and hope it is.  I'll remove it if I
find that it does a bad job.
 Casey West

This does seem like a good idea, but for some of us who can not access 
the web from work, this just makes it worse.  I signed up for the list, 
to see others questions and responses, as well as post my questions and 
receive answers through email.  With the bot giving responses with links 
that I can not access, it just makes it more frustrating, since others 
will not feel the need to respond since the bot gave links.
If it wasnt for the corp nazis here, I would love this bot!
Chris

--
---
Just Your Friendly Neighborhood
_SPIDEY_


-
The information contained in this message may be privileged, confidential, and protected from disclosure. If the reader of this message is not the intended recipient, or any employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution, or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. 

Thank you. Paychex, Inc.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: pass a variable from php to the perl file

[Casey West]

Hi.

I'm in the employ of Casey West, a list admin, to assist you with your
question. I've taken the liberty to search Google using the Subject line
you provided in your email to the list. I hope one of the links below
will be of service to you.

Sadly Google hasn't given us a nice, legal API for searching newsgroups,
so you may also want to try these searches.

 http://groups.google.com/groups?q=Perl+pass+variable+php+perl+file
 http://groups.google.com/groups?q=pass+variable+php+perl+file+group%3Acomp.lang.perl.*

If you didn't get any useful results below, there's a chance your
Subject line was not specific enough, or not detailed enough. For
example, the following subject lines are not very good choices.

  Subject: Doubt
  Subject: HELP!
  Subject: Problem

On the other hand, it's possible that your question is unique, or the
search needs a human touch to get just the right results.

Enjoy!

Perl.org Beginners' Lists, 0 results.
  Searched: site:nntp.x.perl.org inurl:perl.beginners -inurl:show_headers pass 
variable php perl file

Perl.org Lists, 0 results.
  Searched: site:nntp.x.perl.org -inurl:show_headers pass variable php perl file

search.cpan.org, 10 results.
  Searched: site:search.cpan.org pass variable php perl file

  [1]   =head1 NAME PLP::FAQ - Frequently ...
   http://search.cpan.org/src/JUERD/PLP-3.18/PLP/FAQ.pod
 ... that probably are faster than PHP equivalents, but ... That is
 because your variable is lexical (declared ... You can pass
 variables through subroutine parameters or ...

  [2] Installation Instructions The instructions are basically as per ...
   http://search.cpan.org/src/SPOON/PHP-Strings-0.24/INSTALL
 ... Don't forget to update your PERL5LIB environment variable if
 you ... You've just installedPHP::Strings ... copy of cpantest
 installed, type: % cpantest -g pass -nc -p ...

  [3] #!/usr/bin/perl # $Id: release,v 1.33 2003/03/14 17:23:12 ...
   http://search.cpan.org/src/PETDANCE/release-0.15/release
 ... PERL The C environment variable sets the ...
 successful/; print "all tests pass\n"; print ...
 sourceforge.net/account/login.php' ); $cookies->add_cookie_header
 ...

  [4] #!/usr/bin/perl # $Id: release,v 1.30 2003/03/12 16:02:44 ...
   http://search.cpan.org/src/PETDANCE/release-0.14/release
 ... The C environment variable sets the debugging
 ... successful/; print "all tests pass\n"; print ...
 net/account/login.php' ); $cookies->add_cookie_header ...

  [5] search.cpan.org: Apache::Request::Redirect - An Apache mod_perl ...
   http://search.cpan.org/dist/Apache-Request-Redirect/Redirect.pod
 ... virtual website PERL and PHP scripts run respectivly under
 mod_perl and PHP engine and ... to an hash of form params that
 have been passed to the ... PUBLIC VARIABLES. ...

  [6] search.cpan.org: INSTALLATION / REQUIREMENTS
   http://search.cpan.org/search%3Fmodule=Text::ScriptTemplate
 ... This is useful when PHP, HTML::Embperl, or Apache ...
 namespace, with $name as a scalarvariable name to be ... It is
 speficied by passing reference to array containing ...

  [7]   =head1 NAME Apache::Request:: ...
   http://search.cpan.org/src/EBRUNI/Apache-Request-Redirect-0.04/Redirect.pod
 ... PERL and PHP scripts run respectivly under mod_perl and PHP
 engine and ... an hash of form params that have been passed to the
 ... back =head2 PUBLIC VARIABLES =over 4 ...

  [8] # Makefile.in generated by automake 1.6.3 from Makefile.am.
   http://search.cpan.org/src/DJBECKETT/Redland-0.9.14.1/perl/Makefile.in
 ... PERLMAN3DIR@ PERL_VERSION = @PERL_VERSION@ PHP = @PHP@
 PHP_CONFIG = @PHP_CONFIG ... 1) if the variable is set in ... you
 run `make'); # (2) otherwise, pass the desired ...

  [9]     http://sourceforge ...

  [10] The Template::Parser module implements a LALR(1) parser and ...
   
http://search.cpan.org/src/ABW/Template-Toolkit-2.10/docs/src/Modules/Template/Parser.html
 ... > (PHP) asp ... tag is considered plain text and is generally
 passed through unaltered ... 2, the variable '$foo' is first
 interpolated to give the variable name 'bar ...

Google Search, 10 results.
  Searched: Perl pass variable php perl file

  [1] FreeLists / omahaphpusers / [omahaphpusers] pass variable from ...
   http://www.freelists.org/archives/omahaphpusers/07-2003/msg5.html
 ... Hi guys, I am trying to call a perl script from php and pass a
 variable to the perlfile i tried system() and exec() functions in
 php and call the perl script ...

  [2] Passing Argum

pass a variable from php to the perl file

[Ciko Parera]

hi everyone,I am trying to call a perl script from php (with shell_exec) and pass a variable to the perl fileI need to get the value of a variable from a PHP script, and put it into my perl script
Does anyone know how I do this?
 
thanks
 







  IncrediMail - Email has finally evolved - Click Here

Re: Beta Testing a Robot

[Wiggins d Anconia]

> It was Wednesday, December 03, 2003 when Casey West took the soap box,
saying:
> : I'm beta-testing a robot that searches Google when new questions are
> : posed to the beginners' lists.  I have no idea if it will be useful.
> : :-)
> 
> I should like to make an important note. This bot is not intended to
> deter people from answering questions. Indeed, the goal of this list is
> still to give detailed, useful answers to questions. Specific answers
> that really help people.
> 
> This robot is intended as a First Response Service, something that can
> help the questioner between the time they ask a question and the time
> they receive a good answer, from a human. My goal is that the archives
> from this list and others, and the web itself will be of further
> assistance, perhaps even adding a spark of creativity to some code or
> thought process. Therefore I hope this robot will bring that information
> a small step closer to the list.
> 
> So please, keep answering those questions. The robot doesn't do such
> a great job at answering questions, only guesses at where the
> technical information might be, which is still a very useful service
> as far as I can see.
> 
> Finally, the subject lines from the robot have been altered to show what
> it really is, a First Response System. Think of a person in cardiac
> arrest. First Response does some very general, well tested attempts at
> saving the patient. Sometimes they're successful, but the patient still
> needs to see the doctor, maybe even ER. That's what we're here for. :-)
> 
>   Casey West
> 
> PS: For all who asked, I'll show the source code in due course.
> 

I don't quite understand why the first response is sent back to the list
rather than just the OP though?  Using your analogy it seems like the
first response is *also* trying to save the doctors at the same time,
which would seem to get in their way. Another concern is that the
response comes from your address, or at least uses your name, which will
eventually (though maybe the subject will stem this, since it just went
in) cause me to ignore all posts from "Casey West" which would be a bad
thing.

Personally I use the list through SMTP and don't have a thread/filter
option for about half the time I am reading it (don't worry early next
year I intend to write a web mail client that I can use that will do
these things ;-)) which means the automated messages get in the way more
than they help *me*. 

I do like the idea of sending help back to the OP, and I appreciate your
time and efforts as admin of the list(s), just throwing out my $.02

http://danconia.org


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Perl script problems

[Casey West]

Hi.

I'm in the employ of Casey West, a list admin, to assist you with your
question. I've taken the liberty to search Google using the Subject line
you provided in your email to the list. I hope one of the links below
will be of service to you.

Sadly Google hasn't given us a nice, legal API for searching newsgroups,
so you may also want to try these searches.

 http://groups.google.com/groups?q=Perl+Perl+script+problems
 http://groups.google.com/groups?q=Perl+script+problems+group%3Acomp.lang.perl.*

If you didn't get any useful results below, there's a chance your
Subject line was not specific enough, or not detailed enough. For
example, the following subject lines are not very good choices.

  Subject: Doubt
  Subject: HELP!
  Subject: Problem

On the other hand, it's possible that your question is unique, or the
search needs a human touch to get just the right results.

Enjoy!

Perl.org Beginners' Lists, 6 results.
  Searched: site:nntp.x.perl.org inurl:perl.beginners -inurl:show_headers Perl script 
problems

  [1] nntp.perl.org - perl.beginners (55673)
   http://nntp.x.perl.org/group/perl.beginners/55673
 ... 20:33:35 -0800 To: the_guard[at]gmx.net CC: Perl Beginners
 http://nntp.x.perl.org/group/perl.beginners/55878
 ... Previous | Next | Toggle headers Newsgroups: perl.beginners
 Date: Sat, 22 ... hatesville.com> Cc: beginners[at]perl.org
 Subject: CGI Script Fork References ...

  [3] nntp.perl.org - perl.beginners (55881)
   http://nntp.x.perl.org/group/perl.beginners/55881
 ... Previous | Next | Toggle headers Newsgroups: perl.beginners
 References:  Cc: beginners[at]perl.org
 Subject: Re: CGI Script Fork Date ...

  [4] nntp.perl.org - perl.beginners (54490)
   http://nntp.x.perl.org/group/perl.beginners/54490
 ... Previous | Next | Toggle headers Newsgroups: perl.beginners
 Date: Mon ... the following instead: >> >>panda]$ perl -MErrno -e
 ... makes sense for your script to die ...

  [5] nntp.perl.org - perl.beginners (54814)
   http://nntp.x.perl.org/group/perl.beginners/54814
 ... Previous | Next | Toggle headers Newsgroups: perl.beginners
 Message-ID: <20031103120023.26675 ... beginning of the file, and
 running "perl -cw 

Perl script problems

[AG]

I maintain a few Majordomo based mailing lists. Some of my users have 
complained about the cryptic nature of interacting w/Majordomo.

As a result, I've been tinkering w/MailServ v4.4 for 
~2mths. Most GUI front-ends are Perl based. There aren't any user 
mailiing list for users who were having problems configuring the pkg. 
So, I figured I'd send a note asking for assistance. 


I imagine that I have missed something fairly obvious. Hopefully, my 
questions are intelligible ;)
Any help you can provide would be greatly appreciated. 

I thank you in advance for your time. 


Problem:

I am unable to run/administrate Mailserv script via browser.
Per the installation directions that were included in the tarball, I set 
up a simple form.

Here is what I've done thus far:

/* begin mserv.html */



TEST








/* end mserv.html*/

You can see the output here ->
http://bencarsonscholars.com/cgi-bin/MailServ/mserv.html

I consistently receive Internal Server Error 500. Already checked the 
permissions in my /cgi-bin/ directory. I can run other perl scripts w/o 
issue.  

Additionally, I can't seem to run majordomo script from the browser, it 
appears that the environment variable 'HTTP_REFERER' is not being set 
properly. The domain below is a virtual domain on a RedHat box.
See the output here -> 
http://bencarsonscholars.com/cgi-bin/MailServ/majordomo

However, after checking syntax with the Perl interpreter, the 'majordomo' 
the syntax reads OK. 

Below is the output of the modifed 'Mailserv' script.
I renamed the script 'majordomo'.
 
***
$perl -c majordomo 2&> script.out
**

Useless use of hash element in void context at majordomo line 382.
Use of $* is deprecated at majordomo line 520.
Use of implicit split to @_ is deprecated at majordomo line 587.
Useless use of hash element in void context at majordomo line 1004.
\1 better written as $1 at majordomo line 1338.
Name "config::noList" used only once: possible typo at majordomo line 459.
Name "config::name" used only once: possible typo at majordomo line 227.
Name "config::noBody" used only once: possible typo at majordomo line 955.
majordomo syntax OK

/* end of script.out */

Second:
I ran the script from install dir. './majordomo'

/* begin output of ./majordomo snippet */

[EMAIL PROTECTED]/mainwebsite_cgi/MailServ$more script.test
Content-type: text/html








  MailServ by Patrick Fitzgerald




 
  
   http://csicop.org/~fitz/www/mailserv/";>MailServ for 
Majordomo mailing lists
  

/* end ./majordomo output snippet */


I also took a look at the httpd error logs 
Turning on the the #!/usr/bin/perl -w flag generates these warnings

/* begin error log output */

Use of uninitialized value in substitution (s///) at majordomo line 1270.
Use of uninitialized value in substitution (s///) at majordomo line 1271.
Use of uninitialized value in substitution (s///) at majordomo line 1272.
Use of uninitialized value in substitution (s///) at majordomo line 1273.
Use of uninitialized value in concatenation (.) or string at majordomo 
line 1116.
Use of uninitialized value in pattern match (m//) at majordomo line 304.
Use of uninitialized value in concatenation (.) or string at majordomo 
line 310.
failed to open log file
fopen: Permission denied
[Fri Nov 28 09:46:01 2003] [error] [client 68.41.85.195] Premature end of 
script headers: 
/home/virtual/site46/fst/var/www/cgi-bin/MailServ/mserv.html

/* end of error log output */

Below is my modified majordomo script. Per the install instructions, I 
renamed the Mailserv script to 'majordomo'.

/* begin majordomo script snippet */

#!/usr/bin/perl -w
## $Id: mailserv,v 3.29 2002/10/23 00:51:32 fitz Exp $
##
## MailServ - displays and processes forms for mailing list manager 
commands
## Copyright (C) 1996,1997 Patrick Fitzgerald <[EMAIL PROTECTED]>
## See end of file for GNU Public License information.
##
## Complete documentation is provided at the following URL:
## http://csicop.org/~fitz/www/mailserv/

 # modified 10/25/03 -AG
#  use strict;
#  use CGI;

# $CGI::DISABLE_UPLOADS = 1;
# $CGI::POST_MAX= 102_400; # 100 KB

# my $q = new CGI;

 # end modification

 # Version of MailServ

 # logfile
 # If you want to log the use of MailServ on your system,
 # (useful for hunting down certain problems)
 # specify the filename here.  If MailServ cannot write
 # the file, it just ignores it and continues.

$logfile = "/var/www/cgi-bin/MailServ/error/";


@referrer_regexp =
  (
   'www\.bencarsonscholars\.com'
  );

/* end of majordomo script snippet */



AG




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]