Netscape-Cache
2 results

 view release on metacpan or  search on metacpan

Cache.pm  view on Meta::CPAN 

if ($^O =~ /^((ms)?(win|dos)|os2)/i) {
    $Default_Preferences = 'C:\NETSCAPE\NETSCAPE.INI';
    @Try_Preferences     = qw(D:\NETSCAPE\NETSCAPE.INI
			      C:\INTERNET\NETSCAPE\NETSCAPE.INI
			      D:\INTERNET\NETSCAPE\NETSCAPE.INI
			      C:\PROGRAMS\NETSCAPE\NETSCAPE.INI);
    $Default_Cache_Dir   = 'C:\NETSCAPE\CACHE';
    @Default_Cache_Index = qw(FAT.DB INDEX.DB);
    $OS_Type = 'win';
} else {
    $Home = $ENV{'HOME'} || (getpwuid($>))[7];
    $Default_Preferences    = "$Home/.netscape/preferences";
    @Try_Preferences        = ();
    $Default_40_Preferences = "$Home/.netscape/preferences.js";
    $Default_Cache_Dir      = "$Home/.netscape/cache";
    @Default_Cache_Index    = qw(index.db FAT.DB fat.db Fat.db);
    $OS_Type = 'unix';
}

$Debug = 0;
$VERSION = '0.46';

examples/nscache  view on Meta::CPAN 

use strict;

$| = 1;

print
  "Content-type: text/html\n\n",
  "<head><title>Cache</title><base target=o></head><body bgcolor=\"#ffffff\">",
  qq{<font size="-1" face="helvetica,arial">\n};

# fix $HOME since this script might be run under the uid of the web server
$ENV{HOME} = (getpwuid($>))[7];

my $indent = 3; # indentation for tree option

my @links;
my $req;
eval { require CGI };
if ($@) {
    eval { require CGI::Request };
    if ($@) {
	print



( run in 0.333 second using v1.01-cache-2.11-cpan-8d75d55dd25 )