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
|
// Add users for token filesystem.
/*
Author: Allen Bolderoff <allen@gist.net.au>
License: GNU General Public License (see the COPYING FILE in this archive)
WARRANTY: NONE - forget it!!! :-)
*/
//
// Connection information for database server.
//
inherit "roxenlib";
mixed parse(object id){
string retval="";
if(!id->variables->user){ // Show the form.
retval="<HTML>\n"
"<TITLE>You are not a Registered User</TITLE>\n"
"<BODY BGCOLOR=white TEXT=black>\n"
"<OBOX TITLE=\"You are Not a Registered User\">\n"
"<a Href=/newadd.pike>Register Here</a>\n"
"</OBOX>\n"
"</HTML>\n";
}
else {
retval="<html><TITLE>No Credits</title>\n"
"<BODY BGCOLOR=white TEXT=black>\n"
"<OBOX TITLE=\"Not enough Credits\">\n"
"<CENTER>\n"
"<sqloutput query=\"select * from userdetails "
"where username='<insert"
" variable=user>'\">\n"
"<BR><BR>#firstname#</sqloutput>"
"<sqloutput query=\"select * from users "
"where username='<insert"
" variable=user>'\">\n"
", you do not have enough credits to view \n"
"this page, You have a total of #tokens# credits left.\n"
" to purchase more, click"
" <A HREF=\"/buy/more/\">here</a>.\n"
"<P>Um diese Seite zu sehen, brauchen Sie mehr"
" Kreditmarken. Wenn Sie neue Kreditmarken kaufen"
" wollen, klicken Sie"
" <A HREF=\"/buy/more/\">hier</a>.\n"
"</sqloutput>\n"
"</obox>";
}
return retval;
}
|
