1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/local/bin/perl
################################################################################
# WWW.ROSS.NET CGI/PERL SCRIPT
# ============================
# Copyright (c) Ross N. Williams 1997. All rights reserved.
#
# This is a page in the Ross N. Williams web at http://www.ross.net/
#
# Name : Ross N. Williams.
# WWW : http://www.ross.net/
# Email : ross@ross.net
# Phone : +61 8 8232-6262
# Fax : +61 8 8232-6264
# Snail : PO Box 3066, Rundle Mall SA 5000, Australia.
#
# This web was created by Ross N. Williams (http://www.ross.net/).
################################################################################
# This number used to protect the hidden directories.
# But nowadays, I use .htaccess protection instead.
$passnumber = "44810328";
# Set up paths.
$dir_ross = "/web/data/clients/ross";
$dir_confidential = $dir_ross . "/confidential";
$dir_scripts = $dir_confidential . "/scripts_" . $passnumber;
$dir_databases = $dir_confidential . "/databases_" . $passnumber;
$visitors_file = $dir_databases . "/visitors";
$changes_file = $dir_databases . "/changes.txt";
$quotes_file = $dir_databases . "/quotes.txt";
@INC = (@INC,$dir_scripts);
require ("lib_assert.pl");
require ("lib_changes.pl");
require ("lib_checkin.pl");
require ("lib_cookie.pl");
require ("lib_country.pl");
require ("lib_datetime.pl");
require ("lib_email.pl");
require ("lib_file.pl");
require ("lib_form.pl");
require ("lib_html.pl");
require ("lib_misc.pl");
require ("lib_path.pl");
require ("lib_protect.pl");
require ("lib_random.pl");
require ("lib_record.pl");
require ("lib_ross.pl");
require ("lib_rv.pl");
require ("lib_search.pl");
require ("lib_semaphore.pl");
require ("lib_string.pl");
require ("lib_trace.pl");
require ("lib_visitors.pl");
require('lib_protect.pl');
&protect_dir_binary('.',0755);
&protect_dir_binary('./reference',0755);
&protect_dir_binary('./tutorial',0755);
&protect_dir_binary('./developer',0755);
&protect_page;
exit(0);
|
