The FatBomb Forum is no longer active. Use it for reference only.
For active discussions of Fatbomb, please visit:
The MadBomber Forum

Set permissions of fatbomb.cgi to 755.

That's it.

Strongly suggested:
Either before or after uploading, change the folder:
fatbomb to somethingelse

fatbomb.cgi to AnotherSomethingElse.cgi

Use a couple of important keywords in these file names, it can't hurt.

Note that you will have to log into your Admin and add some databases before your engine will return results.

Your admin URL chould look something like this:

http://www.yourdomain.com/cgi-bin/fatbomb.cgi/admin/do_login

Or maybe:

http://www.yourdomain.com/cgi-bin/fatbomb/fatbomb.cgi/admin/do_login

The default password is:
changeme

Change this immediately!

Cannot open file 'data/config.lck': Permission denied at lib/Gamma/Storage.pm line 53.

I had to make sure and change the permissions on the directory Data, so that it could actually write the file, config.lck

Kelvin

Maybe it's my host.

Kelvin

Upon initial install and resetting permission of fatbomb.cgi to 755, I attempted to change the admin password, as directed. Got this in return:

Cannot open file 'data/config.lck': No such file or directory at lib/Gamma/Storage.pm line 53.

Can't change any other perameters within Fatbomb.

John

As all server are config'd different trying going 777 on the data file. If you get that to work try going to 767 and on down till it DOESN'T work. Then go back up one permission set to the working model. This way you will end up with the lowest permissions to make everything work. This is a security issue.

Chris

I'd love to...IF...I could find any file inside of FB that said DATA.

I had caught the reference to "data" files but there is no such file in the zip I downloaded today.

Exactly what is the name of the file? ...And, which folder is it located in? None, as far as I can tell and I've punched through all of them.

John

It's a directory called

data

one level down from where the fatbomb cgi is installed. There's a directory

cache

under the data directory, and that will need to be set to 777 as well. Once working, then you can back down the permissions as Chris mentioned.

Jeff

The data folder is a folder of FatBomb. As soon as you open up FatBomb in your FTP/editor program it SHOULD be the first file.

If it is not there, re-install FB.

Chris

Thanks. I had to create the folders manually. It seems to work now.

And, honestly, I'm not nutz. I downloaded this morning, unzipped and there IS no "data" or "cache" folders that pop out. That's why I was stumped as to how to check a file in a folder that didn't exist.

For a moment there, I was beginning to doubt myself?!?!?!?!

John

I just checked the latest distribution of Fatbomb I know of, & I didn't find the data & data/cache folders there.

Will let Kurt know.

Jeff

Chris

John/Jeff, did you download 1.02?

Jeff

If you want to check my downloaded zip, let me know and I'll forward it over.

John

PS...A check yesterday, after creating the folders, showed that FB seems to be working perfectly. Now, if I can just get my brain "aligned," I'll be ok. You guys love to keep me in the proverbial "learning curve." LOL

I'm not a WinZip expert. However, here's what I just noticed.

When you use WinZip to extract Fatbomb, you would normally click "Actions-->Select All" and extract. Yet, there's a place where you're asked "Selected Files" or "All Files."

I had "Selected Files" checked and was not getting the DATA folder. When I selected "All Files," there it was.

26 more neurons lost to stupidity!

Sorry for the runaround, guys. It was my fault.

John

(that is what "id" is - the file name - right?)

Error!
id is empty

Add New Database
ID:
Path:
Enabled: Yes No
Search Mode: All Any Exact

Tried with .dat with .txt Always get an error message. I put it in different folders. Anyone have a clue how to get a new database into fatbomb???

This is where it is at:

/usr/local/apache/www/xxxxxxxxxxx.com/cgi-bin/vjsearch

I tried this path - then moved it. Tried with no path... Am I missing something?

Can someone point me in the right direction. Everything else seems fine - just can't add a database.

I've given simple directions for adding databases and file paths on that thread.
Please try those first, then if you still have problems, post over there.

Thanks.

I've looked through my entire website for the login file (including the cgi-bin off the root), with no luck.

I'm using the 1.02 zip of fatbomb.

Thanks.

Bill

PS Thanks for sending the file so quickly.

It would be, generically:

http://yourdomain.com/cgi-bin/fatbomb/fatbomb.cgi/admin/

Jeff

I was thinking that the fatbomb.cgi was a directory in the URL that Kurt posted, so I was just looking for the do_login file rather than thinking of it as a command to the program. I got logged in, and was able to test out the included search functions.

Take care.

Bill

>It would be, generically:
>
>http://yourdomain.com/cgi-bin/fatbomb/fatbomb.cgi/admin/
>
>
>Jeff

I get this error as soon as I enable any of search engines.

FatBomb
Software Error
Cannot create socket: Permission denied at lib/Gamma/Search.pm line 222.

I can log in, change settings, add databases etc. I can display results from a database I have added.

But as soon as I enable a search engine, I get the error above. I have located the file 'lib/Gamma/Search.pm', which is set to 644, and tried all the way up to 777, but the only way I can get rid of the error is to disable all SEs

Any ideas?

Rob

It looks like a missing module on your server...I have Kirill (the programmer) see if he knows.

>I get this error as soon as I enable any of search engines.
>
>FatBomb
>Software Error
>Cannot create socket: Permission denied at
>lib/Gamma/Search.pm line 222.

"socket" means "connection" here.

You have a shared hosting account, don't you?

It seems that your hosting admins disabled outgoing connections from the server. In that case, the script is not able to get results from external search engines.

Kirill

Thanks for the assistance.

Yes it is a shared server. I am using various hosting accounts to avoid the IP C-block linking issue.

Downside is, it seems that different servers = different setups = different problems.

Rob

I installed it in :

http://www.bulkk.com/cgi-bin/resale-package/resale-package.cgi/

Should i make any changes to the script?.

Pls reply.,
Regards.,
sarathy.s

>Should i make any changes to the script?.
>

No...I'd suggest just reading the Read Me first.

kelvin

DMOZ hasn't worked in several days at least. I think they're having problems. Even if you go to their site http://search.dmoz.org , all you get is category results, no direct search results.

I don't know about Google. I don't use them for my results, but I just ran a test & couldn't get anything back from them either. Google may have changed their output format.

Jeff

kelvin

However, when using Fatbomb, there are no results for many of the same searches.

For example: elegant pastor robes

Try it at, http://www.africanamericanbusinessdirectory.com/search/black.cgi/, and you get no results.

But try it at, http://www.lubz.com/cgi-bin/fatbomb.cgi/ and you get the same results as Searchfeed.

The only difference between my site, and lubz, is I have searchengines disabled, because I get the error, FatBomb
Software Error Cannot create socket: Invalid argument at lib/Gamma/Search.pm line 222.

Kelvin

I tried to visit the link given by you in this thread. "http://www.dombom.com/cgi-bin/dcforum/dcboard.cgi?az=show_thread&om=259&forum=DCForumID9&viewmode=all"; and it says
"
Forum Access Denied

You do not have access to "Mad Bomber's Handbook" forum.
To obtain access, please contact the forum administrator.
"

Please help

Regards.,
sarathy.s

Are you using the JS code exactly as SF gives you and have added the proper keyword tag?

Sarathy,

What's wrong with the Custom Database thread?

Also, the reason the page says you don't have access is because you don't have access.

Access is by invitation only and there is no "way" to be accepted, although owning certain Bombs does help.

Yes, the code is correct, however, it seems that SF does not return results, when my own database does not have results to show.

I am going to Willie Conference so I will be out of town for a few days.

Kelvin

Software Error
The directory 'data/cache/altavista-12603' does not exist at lib/Gamma/Cache.pm line 57, <PATH> line 592.

Does anyone have any idea what the problem could be? Thanks.

Romel

Have you checked off any SE's on the "Engines Page?" You need to do that in order to start building the cache.

Chris

The program thinks it wrote the cache, but it did not save it.

Make sure you have write permissions set on the cache folder.

kelvin

Yes Chris,

I checked off Altavista to test it and that was what showed in the error.

Changing the permissions from 755 to 777 on the cache folder as Kelvin suggested worked. Thanks again guys.

Romel

Tasari
Internet Marketing Warrior
http://www.bestsecrets.com

Nobody can answer this ?

Tasari
Internet Marketing Warrior
http://www.bestsecrets.com

Sorry for not at leats responding right away with an "I'm not sure what you are talking about?"

Do you mean that all FB installs are the same?

C-

in the directory I find :
* data
* engines
* lib
* skins
* templates
again, is this normal ? to find the same structure in the engine directory ?

Tasari
Internet Marketing Warrior
http://www.bestsecrets.com

To bequite honest I am not sure. Maybe this question is more suited for Kirill (programmer) or Kurt.

Sorry.

Chris

Tasari
Internet Marketing Warrior
http://www.bestsecrets.com

Thanks for sharing the info Tasari,

By deleting those duplication files, now fatbomb is approximately 2 mb, about half size = faster upload.

Thanks,

Quote

---

FatBomb
Software Error

Can't use an undefined value as an ARRAY reference at lib/Gamma/Search.pm line 205.

---

I'm getting the following error, any ideas?

FatBomb

Software Error

Can't locate Gamma/Script.pm in @INC (@INC contains: /usr/local/lib/perl5/site_perl/5.8.2/mach /usr/local/lib/perl5/site_perl/5.8.2

(edited by admin to remove wide HTML output)
/usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.2/BSDPAN /usr/local/lib/perl5/5.8.2/mach /usr/local/lib/perl5/5.8.2 . lib) at page-do.cgi line 68.

...when I try and run fatbomb this way:
http://www.newslocator.com/cgi-bin/engines/fatbomb/fatbomb.cgi/admin/

I tried just about everything.

I downloaded fatbomb 1.02 uploaded ascii set 755, followed all direction and look all over for this in the forum... so as a last resort posting this here.

Any help appreciated.

Thanks
Steve

Not enough arguments for mkdir at lib/Gamma/Cache.pm line 35, near ""data/cache/$id-$number") "

When running it like this:
http://www.newslocator.com/cgi-bin/engines/fatbomb/fatbomb.cgi/admin/

I looked all over this forum before posting and tried just about everything I could think of to get fatbomb going.

Help please.

Thanks
Steve

Steve,

First off I think you don't want ...

/cgi-bin/engines/fatbomb/fatbomb.cgi/admin

BUT this instead ...

/cgi-bin/fatbomb.fatbomb.cgi/admin

(NO "engines")

But it now goes to your Error 404 page.

Sooo ... I'd suggest you delete everything from your "fatbomb" folder in your cgi-bin and re-upload FatBomb via ASCII. The only permissions you need to change are fatbomb.cgi to 755.

Then try - yourdomain.com/cgi-bin/fatbomb/fatbomb.cgi/admin - again and see what happens. Should go to your login.

Hope this helps some ...

Rick Wilson aka CorpRebel

First off I think you don't want ...

/cgi-bin/engines/fatbomb/fatbomb.cgi/admin

BUT this instead ...

/cgi-bin/fatbomb/fatbomb.cgi/admin

(NOT /cgi-bin/fatbomb.fatbomb.cgi/admin - My typo, sorry!)

(NO "engines")

Rick Wilson aka CorpRebel

Still same problem.

I re uploaded fatbomb to make sure it was in ascii. Actually I believe if it was not I would have gotten a 505 error. But re uploaded anyway.

I originally just set fatbomb to 755 but when that still gave me the error I tried the 777 on data and cache files but same problem.

I do want to go to ...
http://www.newslocator.com/cgi-bin/engines/fatbomb/fatbomb.cgi/admin
the engines directory because that is the subdirectory I have all my engines in.

THanks for your help.
Actually I cannot believe anyone else has not had this error as it seems to be a very simple install compared to a few of the other bombs.

Guess I will have to try and debug the program itself to see why gamma is creating the error. But still hope someone out there knows of an answer.

STeve

As you know, Chris is busy at home, and many of us are out of town the next few days, so support will be limited during that time.

From what you're describing, and as Rick has indicated, the problems you're seeing are the result of something you're doing with your installation or with your server configuration or Perl modules possibly, but not with Fatbomb itself, so there's no need for another version of Fatbomb. There's never been any need to debug programs once they're released.

I'd suggest installing it exactly according to directions, just to prove that it works on your server. I'll be glad to take a look at this when I'm back home next weekend, if it's not resolved by then. I can't do it sooner because I'm working out of Starbucks, & it's too loud here for me to concentrate.

Also, you don't need to post the same problem to two threads. All posts are moderated, and one of the moderators will definitely see your first post. Sorry it's running a bit slower than usual in approving/responding, but as I mentioned, there's a lot going on at the moment.

Thanks,
Jeff

http://www.dombom.com/cgi-bin/dcforum/dcboard.cgi?az=show_thread&om=786&forum=DCForumID9&viewmode=all

I fully understand.... Have fun.

Steve

Did you get your problems with Fatbomb resolved?

If not, send me your login info via forum messaging & I'll have a look this evening or more likely tomorrow.

Thanks,
Jeff

I have the last most current copy of fatbomb. I noticed it had a few extra "double" directories and files in it. Did a search on the forum and noticed a couple threads that mentioned this and so I also even deleted a few of access luggage. But still same error.

http://www.newslocator.com/cgi-bin/engines/fatbomb/fatbomb.cgi/admin/

Thanks

Steve

Maybe this will help... it is the doubles directories and scripts that you find in the directory "engines" that you need to delete.. then your url will be http://www.newslocator.com/cgi-bin/fatbomb.cgi/?admin/ ??

Tasari

TazBomb Special Offer - Syndicate all your pages !
(Add)UrlBomb Special Offer - Add-on for FatBomb

If you still can't get it to work, I'll check it out for you if you'll send your login info through the forum private messaging.

It will be early this evening before I can get to it, as I'll be away from home a while this afternoon.

Jeff

Thanks Jeff for your efforts.

Thanks all for your help. I am sure we will eventually figure out why my server does not like Fatbomb and will get things in order some day soon.

Steve

All is working fine now with Fatbomb. I am taking a quick "test-drive" now and after your "tweaking" all seems just fine. I really appreciate all your help.

Steve
http://newslocator.com

Can one of you briefly let us know what the problem and solution was, in case we run into this again in the future?

Thanks,
Jeff

I will look up my perl version and post that as well... so that may help others as well.

Hope this helps.
Steve

Hope this helps.
Steve

Hi,

Like yourself I have tried to get FatBomb to work and have run into the same problem. When I try to call up the admin page
I get the message;

FatBomb
Software Error
Can't locate Gamma/Script.pm in @INC (@INC contains: /usr/lib/perl5/5.6.1/i386-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i386-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.6.1/i386-linux /usr/lib/perl5/vendor_perl/5.6.1 /usr/lib/perl5/vendor_perl . lib) at fatbomb.cgi line 68.

I'd be very grateful for any information on whether or not you eventually solved this problem - or for information from anyone else who knows what the problem is.

Many thanks,

Tony.

I'm trying to install Fatbomb on a site
that requires all cgi scripts to be named '.cgi'
instead of .pl.

After renaming pl files to cgi files, I got
the error:

Cannot load engine
(engines/alltheweb.cgi)

Cannot load engine
(engines/altavista.cgi)

....

So I changed the cgi files back to pl files
and still got the same error.

At least I didn't get an internal server
error.

Any suggestions?

Thanks!

barbt

Getting following error:
Software Error
Cannot create socket: Connection timed out at lib/Gamma/Search.pm line 257.

When i try to run search through admin section.

Thanks

Vikram

It may mean one of two things.

1. One of the selected search engines is down. Please go to the Engines panel and unselect all engines except one, preferably some well known engine. Try to search again.

2. It's possible that your server blocks all outgoing connections for security reasons. In this case neither of the scripts (FatBomb, BlogBomb, SpiderBomb) will work.

Kirill

try first if you are able to install perl digger which is a litte piece of code showing you the path to perl/installed modueles etc. Once you managed to get this script to run you can move from there....
hopefully this is usefull for some

#!/usr/local/bin/perl -w
#
#***********************************************************************
#
# PURPOSE: Freeware Perl script to display some server-side information
# including environment variables and installed modules.
#
# DATE: 21 August, 2002
# VERSION: 0.2.1
#
# LICENSE:
# Copyright (C) Shashank Tripathi (shanx@shanx.com)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA.
#
#=======================================================================
#
# I N S T A L L A T I O N:
#-----------------------------------------------------------------------

# 1. Copy and paste all this text into a file, e.g., perldigger.cgi
# 2. Upload this file into your CGI-BIN or an equivalent CGI directory.
# 3. CHMOD the file to 755 so it can be executed.
# 4. It is common for Perl to reside on most servers at "/usr/bin/perl"
# but if it doesn't, please replace the first line of this program
# with the appropriate path (e.g., "/usr/local/bin/perl").
#
# That should be all. If you have any problems, please feel free to
# write to me at shanx@shanx.com.
#
#***********************************************************************
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

# You can set the page title here
$PAGE_TITLE = "PERL DIGGER °| Free CGI script to list environment information and installed Perl modules";

#-----------------------------------------------------------------------

# NO NEED TO TOUCH ANYTHING BEYOND THIS POINT #=========================

#Location of Perl
$whereperl = join("<BR>", split(/\s+/, qx/whereis perl/));

#Location of Sendmail
$wheresendmail = join("<BR>", split(/\s+/, qx/whereis sendmail/));

#Location of Current Directory
$currentdirectory = `pwd`;

# List of processes
$processes = qx/ps aux/;
$processes =~ s/<br>/\n/gi;
$processes =~ s/<br>/\n\n/gi;
$processes =~ s/<(?:<^>'">*|(<'">).*?\1)*>//gs;

#Perl Variables
$perlversion = $];

$path_tar = join("<BR>", split(/\s+/, qx/whereis tar/));
$path_gzip = join("<BR>", split(/\s+/, qx/whereis gzip/));
$path_apache = join("<BR>", split(/\s+/, qx/whereis apache/));
$path_httpd = join("<BR>", split(/\s+/, qx/whereis httpd/));
$path_php = join("<BR>", split(/\s+/, qx/whereis php/));
$path_mysql = join("<BR>", split(/\s+/, qx/whereis mysql/));
$path_man = join("<BR>", split(/\s+/, qx/whereis man/));
$path_perldoc = join("<BR>", split(/\s+/, qx/whereis perldoc/));

#Perl Os
$perlos = $^O;
$perlos_version = get_server('version'); $perlos_version =~ s/#/<BR>#/s; $perlos_version =~ s/\(/<BR>(/s;

$perlos_cpu = get_server_detail('cpuinfo');
$perlos_mem = get_server_detail('meminfo');
$perlos_mem =~ s/^.*?\n.*?\n.*?\n//s;
$perlos_dsk = `df`;

sub get_server
{
open PROC, "</proc/$_<0>" || &error("Cannot read proc ]", $!);
my $res = join("<BR>", <PROC>);
close PROC;
return $res ? $res : undef;
}
sub get_server_detail
{
open PROC, "</proc/$_<0>" || &error("Cannot read proc ]", $!);
my $res = join("", <PROC>);
close PROC;
return $res ? $res : undef;
}

#Module Paths
foreach $line (@INC)
{
$modulepaths .= "$line<br>";
}

#Environment Variables
$environment = qq~
<table width="69%" align="center" cellspacing="0" cellpadding="4"
bordercolor="#c5c5c5">
<tr>
<td colspan="2" bgcolor="#efefef" class="h">ENVIRONMENT
VARIABLES <a href="#top" title="Back to top"><font style="font-family: Webdings; font-size: 15px; text-decoration:none">⇑</font></a> </td>
</tr>
~;

$PAGE_FOOTER = "Powered by <a href='http://sniptools.com/perldigger'>Get
PERL DIGGER (it's free!)</a>   |   Copyright © <a href='http://shanx.com'>Shashank Tripathi </a>";

@allkeys = keys(%ENV);
foreach $key (@allkeys)
{
$value = $ENV{$key};
if ($value eq "") {$value = "-";}
$environment .= qq~
<tr>
<td width="168" class="tableitems">$key</td> <td class="tablevalue">$value</td> </tr> ~; } $environment .= qq~ </table> ~;

$documentroot = $ENV{'DOCUMENT_ROOT'};
if ($documentroot ne "")
{
@lines = `du -c -k $documentroot`;
$lastline = @lines-1;
($diskusage) = split/<\t| >/,$lines<$lastline>; }

#Server Software
$serverip = $ENV{'SERVER_ADDR'};
$servername = $ENV{'SERVER_NAME'};
$serverport = $ENV{'SERVER_PORT'};

$serversoftware = $ENV{'SERVER_SOFTWARE'};

$serveruptime =`uptime`;

#Localtime
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
$date = sprintf("%02d-%s-%04d",$mday,$months<$mon>,$year+1900);
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$localtime = "$date, $time";

#GMTtime
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time); @months = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
$date = sprintf("%02d-%s-%04d",$mday,$months<$mon>,$year+1900);
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$gmttime = "$date, $time";

print qq~
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head>

<title>$PAGE_TITLE</title>

<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<meta http-equiv="PICS-Label" content=' (PICS-1.1 "http://www.gcf.org/v2.5"; labels on "2001.11.05T08:15-0500" until "1995.12.31T23:59-0000" for "http://w3.org/PICS/Overview.html"; ratings (suds 0.5 density 0 color/hue 1))'>
<meta name="author" lang="en" content="Shashank Tripathi">
<meta name="title" content="$PAGE_TITLE">
<meta name="copyright" content="(c) Shashank Tripathi, 1998 - 2010.
All rights reserved.">
<meta name="revisit-after" content="1 week">
<meta name="description" content="Perl Digger is a freeware Perl script to dig for information about the server-side environment including a list of all installed Perl modules with a handy link to their documentation at CPAN">
<meta name="keywords" content="Perl digger, Perl info, server-side free Perl / CGI script to show environment variables and all installed Perl modules, Shashank Tripathi">

<style type="text/css">
<!--
h1 {font-family: Arial, Helvetica, sans-serif; font-size: 18px;
font-weight: bold; }
.tabletitle { font-family: Arial, Helvetica, sans-serif; font-size:
12px; font-weight: bold; height: 22px; } .tableitems { font-family: Arial, Helvetica, sans-serif; font-weight:
bold; font-size: 11px; border-bottom: 1px #efefef solid;} .tablevalue { font-family: Arial, Helvetica, sans-serif; font-size:
11px; border-bottom: 1px #efefef solid;}
a { text-decoration: none; color: #3366ff; }
a:hover { color: #ff6600;}
td { font-family: "Lucida Grande", Helvetica, Arial, sans-serif; font-size: 11px }
table { border: 1px #c5c5c5 solid; background-color: #fff }
.h {background: #eee}
-->
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000"
background="http://sniptools.com/av/bg.gif";><a name="top"></a><br> <table width="69%" align="center" cellpadding="4" cellspacing="0"> <tr><td height="51" width="168" valign="top"
background="http://sniptools.com/av/bg_grey.gif";><h1 style="margin-bottom:
3px">Perl Digger</h1>
<a href="http://sniptools.com/code/perldigger.txt";>Get Perl code here</a></td> <td valign="middle"
background="http://sniptools.com/av/bg_grey.gif";><b style="font-size:
12px">Perl Digger is a freeware
Perl script to dig for information
about the server-side environment including a list of all installed Perl modules with a handy link to their documentation at CPAN. This page is based on easy CSS so you can easily change the look if you wish.
</b> </tr>
<tr>
<td colspan="2" height="60" align="center" valign="middle">
<a href="#perlinfo">PERL INFORMATION</a>
  |   <a href="#serverinfo">SERVER INFORMATION</a>
  |   <a href="#env">ENVIRONMENT VARIABLES</a>
  |   <a href="#modules">INSTALLED PERL MODULES</a>
</td>
</tr>
</table>

<br>
<a name="perlinfo"></a><br>

<table width="69%" align="center" cellpadding="4" cellspacing="0">
<tr bgcolor="#efefef">
<td colspan="2" class="h">

PERL INFORMATION <a href="#top" title="Back to top"><span style="font-size: 15px">⇑</span></a>

</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Perl version</td>
<td class="tablevalue">$perlversion</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Perl</td>
<td class="tablevalue">$whereperl</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Sendmail</td>
<td class="tablevalue">$wheresendmail</td>
</tr>
</table>
<br>
<a name="serverinfo"></a><br>

<table width="69%" align="center" cellspacing="0" cellpadding="4"
bordercolor="#c5c5c5">
<tr bgcolor="#efefef">
<td colspan="2" class="h">

SERVER INFORMATION <a href="#top" title="Back to top"><span style="font-size: 15px">⇑</span></a>

</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Name</td>
<td class="tablevalue">$servername</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">IP</td>
<td class="tablevalue">$serverip</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Listing Port</td>
<td class="tablevalue">$serverport</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Document Root</td>
<td class="tablevalue">$documentroot</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Disk Usage by Root</td>
<td class="tablevalue">$diskusage KB</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Server stamp</td>
<td class="tablevalue">$serversoftware</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Server Time (Local)</td>
<td class="tablevalue">$localtime</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Server Time (GMT)</td>
<td class="tablevalue">$gmttime</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Server Details </td>
<td class="tablevalue">
<p><strong>OPERATING SYSTEM:</strong><br>$perlos_version
<p><strong>CPU UTILIZATION:</strong><br><textarea rows=10 cols=60>$perlos_cpu</textarea>
<p><strong>MEMORY UTILIZATION:</strong><br><textarea rows=10 cols=60>$perlos_mem</textarea>
<p><strong>DISK UTILIZATION:</strong><br><textarea rows=10 cols=60 wrap="OFF">TOTAL DISK USAGE:\n$diskusage KB \n\n$perlos_dsk</textarea>
</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Module Paths</td>
<td class="tablevalue">$modulepaths</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path(s) to TAR</td>
<td class="tablevalue">$path_tar</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path(s) to GZIP</td>
<td class="tablevalue">$path_gzip</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path to APACHE/HTTPD</td>
<td class="tablevalue">$path_apache<p>$path_httpd</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path to PHP</td>
<td class="tablevalue">$path_php</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path to MYSQL</td>
<td class="tablevalue">$path_mysql</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path to MAN (Unix manual)</td>
<td class="tablevalue">$path_man</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Path to PERLDOC</td>
<td class="tablevalue">$path_perldoc</td>
</tr>
<tr>
<td class="tableitems" width="168" valign="top">Processes currently on the server</td>
<td class="tablevalue"><textarea rows=10 cols=60 wrap="OFF">$processes</textarea> </td>
</tr>
</table>

<br>
<a name="env"></a><br>
$environment

<!-- ALL MODULES -->
<a name="modules"></a><br>

<div style="height: 330px; width: 69%; overflow: auto; align: center; margin: auto">
<div class="h">
LIST OF ALL INSTALLED PERL MODULES <a href="#top" title="Back to
top"><span style="font-size: 15px">⇑</span></a></div>

<table width="90%" align="center" cellspacing="0" cellpadding="4"
bordercolor="#c5c5c5" >
<tr>
<td>

~;

&vars;
find(\&wanted,@INC);
$modcount = 0;
foreach $line(@foundmods)
{
$match = lc($line);
if ($found{$line}<0> >0)
{$found{$line} = <$found{$line}[0>+1,$match]}
else
{$found{$line} = <"1",$match>;$modcount++} } @foundmods = sort count keys(%found); chomp @foundmods;

sub count
{
return $found{$a}<1> cmp $found{$b}<1>

}

print "$modcount modules found</td></tr><tr><td>\n";

$third = $modcount/3;
$count=0;
$firstroundtotal = 0;

foreach $mod(@foundmods)
{
$count++;
if ($count <= $third)
{
$firstroundtotal++;
print qq~
$firstroundtotal. <a
href="http://search.cpan.org/search?module=$mod"; title="Click here to see $mod on CPAN " target="_blank">$mod</a><br>
~;
}
else
{
push (@mod1,$mod)
}
}

$count = 0;
print qq~ </td><td>~;
foreach $mod1(@mod1)
{
$count++;
if ($count <= $third)
{
$firstroundtotal++;
print qq~
$firstroundtotal. <a
href="http://search.cpan.org/search?module=$mod1"; title="Click here to see $mod1 on CPAN " target="_blank">$mod1</a><br>
~;
}
else
{
push (@mod2,$mod1)
}
}
$count = 0;
print qq~ </td><td>~;
foreach $mod2(@mod2)
{
$count++;
$firstroundtotal++;
print qq~
$firstroundtotal. <a
href="http://search.cpan.org/search?module=$mod2"; title="Click here to see $mod2 on CPAN " target="_blank">$mod2</a><br>
~;
}

sub vars {use File::Find;}
sub wanted { $count = 0; if ($File::Find::name =~ /\.pm$/) {
open(MODFILE,$File::Find::name) || return; while(<MODFILE>){ if (/^ *package +(\S+);/){ push (@foundmods, $1); last; } } } } print qq~
</td>

</tr>
</table>
</div>

<p> </p>
<p align="center"><a href="#top" title="Back to top"><span style="font-size: 15px">⇑</span></a> $PAGE_FOOTER</p><br><p> </body> </html> ~;