recently i declined to add a link to the site .. so i hit delete ... it went through the motions and returned an error (sendmail path something or other not found) yet i know that sendmail path is fine ... what can i do? (i can't login using telnet.)

Add the following code to a file and name it sendmail.cgi....

#!/usr/bin/perl

sendmail();

sub sendmail {
# ------------------------------------------------------------------
# Try and figure out where sendmail is located.
#
-x '/usr/sbin/sendmail' and return '/usr/sbin/sendmail';
-x '/usr/lib/sendmail' and return '/usr/lib/sendmail';
-x '/bin/sendmail' and return '/bin/sendmail';
return '';
}

.....execute it from your browser and it will tell you where sendmail is.

Then edit the path to sendmail in links.cfg

Paul Wilson.
NEW website coming soon...

I've never seen this code before, how does it work? Or more to the point, why doesn't it work? I tried it as a script called sendmail.cgi, and executed it from my browser, and i got a 500 Error!!!

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Just tried it via telenet, and that didn't work either!!!

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Oops...try printing the header at the top.....

It is from the Links SQL install script

Paul Wilson.
new - http://www.wiredon.net

Ok this works.........


#!/usr/bin/perl

sendmail();

sub sendmail {
# ------------------------------------------------------------------
# Try and figure out where sendmail is located.
#
print "Content-type: text/html\n\n";

-x '/usr/sbin/sendmail' and print "/usr/sbin/sendmail";
-x '/usr/lib/sendmail' and print "/usr/lib/sendmail";
-x '/bin/sendmail' and print "/bin/sendmail";
}




Paul Wilson.
new - http://www.wiredon.net

Erm...telnet?.....who's server?

Paul Wilson.
new - http://www.wiredon.net

My one....

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Hi Andy:

The code that Paul provided is sound - the x operator tests if the operand (sendmail in defined path) can be executed. You run the script from the browser. What do your server error logs tell you?


Dan

Don't worry, got it working now. Can this be used for other functions like finding out the installed modules on your server (like PerlDiver)???

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Hi Andy:

Use the following code to locate installed modules:

#!/usr/bin/perl

use strict;
print "Content-type: text/html\n\n";

use File::Find;
my (@mod, %done, $dir);

find (\&get_module, grep { -r and -d } @INC);
@mod = grep (!$done{$_}++, @mod);
foreach $dir (sort { length $b <=> length $a } @INC) {
foreach (@mod) { next if s,^\Q$dir,,; }
}
foreach (@mod) { s,^/(.*)\.pm$,$1,; s,/,::,g; print "$_
\n"; }

sub get_module {

/^.*\.pm$/ && /$ARGV[0]/i && push @mod, $File::Find::name;
}


Dan

Great, i'll try that later!!!

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

If you want to check out the php environment make a php3 file called info.php3 and add the following code...

<? phpinfo(); ?>

Ooops......sorry off topic.



Paul Wilson.
new - http://www.wiredon.net

That code didn't seem to work forme!! Any ideas? (IS Error)

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Hi Andy:

Works for me - I just copy and pasted the code exactly into a test script. I then tested it and all a-okay. Perhaps you don't have the File::Find module installed. What does your server error log tell you?


Dan

You may also have to change the perl path.

Regards,

Eliot Lee

Right, i got it working now. Is there anyway to make it get displays in a downwards collumn (rather than just a mess of different modules installed!!!)

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Hi Andy:

There was a br HTML tag in there but it was lost in translation

Change:
print "$_\n";

To:
print "$_{br}\n";

where you replace the {} curly braces with the HTML tag angular brackets.



Dan

Thanks...

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Right, this is the code i am now using (just gives me blank pages now, not IS Errors);


#!/usr/bin/perl

use strict;
print "Content-type: text/html\n\n";

use File::Find;
my (@mod, %done, $dir);

find (\&get_module, grep { -r and -d } @INC);
@mod = grep (!$done{$_}++, @mod);
foreach $dir (sort { length $b <=> length $a } @INC) {
foreach (@mod) { next if s,^\Q$dir,,; }
}
foreach (@mod) { s,^/(.*)\.pm$,$1,; s,/,::,g; print "$_{br}\n"; }

sub get_module {

/^.*\.pm$/ && /$ARGV[0]/i && push @mod, $File::Find::name;
}


Any ideas???

Thanks

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Here is a copy of the Mod that jerry su wrote and it works fine for me across different browsers (initially when jerry su released the Mod, it would only work in Netscape).



Regards,

Eliot Lee

Still shows all the found modules as one line (e.g. B::Asmdata B::Assembler B::Bblock B::Bytecode B::C B::CC B::Debug B::Deparse B::Disassembler B::Lint B::Showlex).

Any ideas?

Andy

http://www.ace-installer.com
webmaster@Ace-installer.com

Same issue with both - you must add a BR tag $_. My code does just that, and the modules are listed one per line. It doesn't show up in the code here because the forum script parses out HTML tags. Did you do as I said, change {} to HTML tag angular brackets? {br} is meaningless and will not produce line breaks.



Dan

As does mine....



Same difference...

Regards,

Eliot Lee

DID you not read the post.......he said use a br tag with square brackets...... not {br}......surely you should know that!

Paul Wilson.
new - http://www.wiredon.net