sitemap.pl
Copying Source is Forbidden
152 lines of code
1
#!/usr/local/bin/perl
2
3
binmode(STDIN, ":utf8");
4
binmode(STDOUT, ":utf8");
5
6
# must have's!
7
use strict;
8
use warnings;
9
use CGI::Carp qw(fatalsToBrowser);
10
use DBI;
11
use URI::Escape;
12
13
use lib "/var/www/html/Pm";
14
15
use Html qw(pre_html_header);
16
use Bc_chef qw(cookie_get);
17
use Bc_misc qw(get_param referrer);
18
use Bc_sql qw(
19
get_constant
20
sql_execute
21
user_exists
22
$QUERY_PAGE
23
$QUERY_UID
24
$LOGGEDIN
25
26
$DB
27
);
28
29
use Security qw(banned); Security::count_hits();
30
31
my $DEBUG = 0;
32
33
my $output;
34
35
############################################################
36
37
### YOUR CONTENT HERE
38
39
my $http = "https://night-stand.ca";
40
my $www = "$http/index.pl";
41
my $faq = get_constant("FAQ_PAGE");
42
my $terms = get_constant("TERMS_PAGE");
43
my $data_policy = get_constant("DATA_POLICY_PAGE");
44
my $contact = get_constant("CONTACT_PAGE");
45
my $about = get_constant("ABOUT_PAGE");
46
my $signup = get_constant("SIGNUP_PAGE");
47
my $forgot = get_constant("FORGOT_PAGE");
48
my $ppinfo = get_constant("PPINFO_PAGE");
49
my $mods = get_constant("MODS_PAGE");
50
my $js = get_constant("JS_PAGE");
51
52
$output = pre_html_header({type=>"application/xml"});
53
54
$output .= <<END;
55
<?xml version="1.0" encoding="UTF-8"?>
56
<urlset
57
xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"
58
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
59
xsi:schemaLocation="http://www.sitemaps.org/schemas/sitemap/0.9
60
http://www.sitemaps.org/schemas/sitemap/0.9/sitemap.xsd">
61
62
63
<url>
64
<loc>$www</loc>
65
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
66
<priority>1.00</priority>
67
</url>
68
<url>
69
<loc>$http/</loc>
70
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
71
<priority>0.80</priority>
72
</url>
73
<url>
74
<loc>$http/index.pl?ip=su</loc>
75
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
76
<priority>0.80</priority>
77
</url>
78
<url>
79
<loc>$http/index.pl?ip=forgot</loc>
80
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
81
<priority>0.80</priority>
82
</url>
83
<url>
84
<loc>$http/?ip=faq</loc>
85
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
86
<priority>0.80</priority>
87
</url>
88
<url>
89
<loc>$http/?ip=terms</loc>
90
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
91
<priority>0.80</priority>
92
</url>
93
<url>
94
<loc>$http/?ip=contact</loc>
95
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
96
<priority>0.80</priority>
97
</url>
98
<url>
99
<loc>$http/?ip=about</loc>
100
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
101
<priority>0.80</priority>
102
</url>
103
<url>
104
<loc>$http/?ip=su</loc>
105
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
106
<priority>0.64</priority>
107
</url>
108
<url>
109
<loc>$http/?ip=forgot</loc>
110
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
111
<priority>0.64</priority>
112
</url>
113
<url>
114
<loc>$http/?ip=dp</loc>
115
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
116
<priority>0.64</priority>
117
</url>
118
<url>
119
<loc>$http/?ip=pt</loc>
120
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
121
<priority>0.64</priority>
122
</url>
123
<url>
124
<loc>$http/?ip=t</loc>
125
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
126
<priority>0.64</priority>
127
</url>
128
<url>
129
<loc>$http/?ip=ppinfo</loc>
130
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
131
<priority>0.64</priority>
132
</url>
133
<url>
134
<loc>$http/?ip=mods</loc>
135
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
136
<priority>0.64</priority>
137
</url>
138
<url>
139
<loc>$http/?ip=sh</loc>
140
<lastmod>2018-02-05T00:05:08+00:00</lastmod>
141
<priority>0.64</priority>
142
</url>
143
144
145
</urlset>
146
END
147
148
############################################################
149
150
print $output;
151
152
exit 1;