UNIX for Dummies Questions & Answers

my host run on a Free bsd server and i have a cgi script that requires LWP module, but i my host say that that module is installed, so i would like to know if the is a command because i have telnet access to know if the module or which modules are installed on my account (it´s that the script don´t run on my server )

#!/usr/bin/perl

use File::Find;

foreach $start (@INC) { find(\&modules, $start); }


sub modules {
if (-d && /^[a-z]/) { $File::Find:rune = 1; return; }
return unless /\.pm$/;
my $filename = "$File::Find::dir/$_";
$filename =~ s!^$start/!!;
$filename =~ s!\.pm$!!;
$filename =~ s!/!::!g;
print "$filename\n";
}

i get error 500

i chmooded to 777 and 755 and still get the error

Telnet to server and run the code. If u want to execute it is through browser you have to make some changes:

#!/usr/bin/perl

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

use File::Find;

foreach $start (@INC) { find(\&modules, $start); }


sub modules {
if (-d && /^[a-z]/) { $File::Find::Prune = 1; return; }
return unless /\.pm$/;
my $filename = "$File::Find::dir/$_";
$filename =~ s!^$start/!!;
$filename =~ s!\.pm$!!;
$filename =~ s!/!::!g;
print "$filename<BR>\n";
}

well check this :


---------------------------------------

13:24:47:portalx@pontonet3:~/cgi-bin>ls
total 16
drwxr-xr-x 2 portalx portalx 512 Jul 12 13:24 LWP/
drwxr-xr-x 2 portalx portalx 512 Jun 29 16:29 admin/
drwxr-xr-x 2 portalx portalx 512 Jul 7 20:54 ads/
drwxr-xr-x 2 portalx portalx 512 Jul 7 20:39 ads2/
drwxr-xr-x 3 portalx portalx 512 Jul 9 14:34 exec/
drwxr-xr-x 2 portalx portalx 512 Jun 29 16:29 formmail/
drwxr-xr-x 5 portalx portalx 1536 Jul 1 05:42 forum/
drwxr-xr-x 2 portalx portalx 512 Jun 29 16:29 guestbook/
drwxr-xr-x 3 portalx portalx 512 Jul 3 20:12 links/
drwxr-xr-x 3 portalx portalx 512 Jul 7 20:40 online/
drwxrwxrwx 3 portalx portalx 512 Jul 4 17:15 out/
drwxr-xr-x 2 portalx portalx 512 Jun 29 16:29 rand_text/
drwxr-xr-x 2 portalx portalx 512 Jun 29 16:29 search/
-rwxrwxrwx 1 portalx portalx 386 Jul 12 13:18 teste.cgi*
drwxrwxrwx 4 portalx portalx 512 Jul 7 14:19 topregisto/
13:24:56:portalx@pontonet3:~/cgi-bin>execute teste.cgi
bash: execute: command not found
13:25:14:portalx@pontonet3:~/cgi-bin>exec teste.cgi
bash: exec: teste.cgi: not found
13:25:21:portalx@pontonet3:~/cgi-bin>

----------------------------

the script you give is teste.cgi but i can´t get it to work :( ...
my host run on a freebsd could that be the problem ?