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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
<?xml version="1.0"?>
<!--
-
- $Id$
-
- This file is part of the OpenLink Software Virtuoso Open-Source (VOS)
- project.
-
- Copyright (C) 1998-2018 OpenLink Software
-
- This project 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; only version 2 of the License, dated June 1991.
-
- 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.,
- 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
-
-->
<v:page name="main" xmlns:v="http://www.openlinksw.com/vspx/"
doctype="-//W3C//DTD XHTML 1.0 Transitional//EN">
<v:variable name="bv_email" type="varchar" default="''"/>
<v:variable name="bv_email_url" type="varchar" default="''"/>
<v:variable name="b_title" type="varchar" default="''"/>
<v:variable name="b_home" type="varchar" default="''"/>
<v:variable name="p_title" type="varchar" default="''"/>
<v:variable name="p_url" type="varchar" default="''"/>
<v:variable name="p_err" type="varchar" default="''"/>
<v:on-init><![CDATA[
{
declare exit handler for sqlstate '*', not found
{
rollback work;
self.p_err := 'Invalid or duplicated unsubscribe request';
};
self.bv_email := {?'e'};
declare cr cursor for
select BV_E_MAIL from BLOG..SYS_BLOG_VISITORS where BV_BLOG_ID = {?'b'} and BV_POST_ID = {?'p'} and BV_E_MAIL = {?'e'} and
BV_NOTIFY = 1;
open cr (exclusive, prefetch 1);
fetch cr into self.bv_email;
if (isstring ({?'p'}) and length ({?'p'}) > 0)
{
select B_TITLE into self.p_title
from BLOG..SYS_BLOGS where B_BLOG_ID = {?'b'} and B_POST_ID = {?'p'};
}
select BI_TITLE, BI_HOME into self.b_title, self.b_home
from BLOG..SYS_BLOG_INFO where BI_BLOG_ID = {?'b'};
update BLOG..SYS_BLOG_VISITORS set BV_NOTIFY = 0 where current of cr;
close cr;
if (isstring ({?'p'}) and length ({?'p'}) > 0)
self.p_url := concat (self.b_home, '?id=', {?'p'});
self.bv_email_url := concat ('mailto:', self.bv_email);
self.p_err := '';
}
]]>
</v:on-init>
<html>
<head>
<title>Unsubscribe from notification e-mails</title>
<link rel="stylesheet" type="text/css" href="/weblog/public/css/default.css"/>
</head>
<body>
<table id="pagecontainer" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td colspan="3">
<div id="header">
<h1><v:label name="tit1" value="Unsubscribe from notification e-mails"/></h1>
<h2><v:label name="tit2" value="--self.bv_email"/></h2>
</div>
<div id="navbartop"><div> </div></div>
</td></tr>
<tr>
<td class="box" id="left">
<div class="box">
<div class="roll" style="border: none; border">
<div align="center" style="margin-bottom: 3px;">
<v:url name="home1" value="Home page" url="--self.b_home"/>
</div>
</div>
</div>
</td>
<td id="texttd">
<div id="text">
<div>
<v:template type="simple" name="terr" enabled="--length (self.p_err)">
<v:label name="l_err" value="--self.p_err" />
</v:template>
<v:template type="simple" name="tok" enabled="--either (length (self.p_err), 0, 1)" >
<p>Successfully unsubscribed
<v:url name="email_url" url="--concat ('mailto:', self.bv_email)"
value="--self.bv_email" />
<v:template type="simple" name="has_pid" enabled="--length (get_keyword ('p', e.ve_params))">
from post
<v:url name="weblog_post" url="--self.p_url"
value="--self.p_title" />
in weblog
</v:template>
<v:template type="simple" name="no_pid" enabled="--either (length (get_keyword ('p', e.ve_params)), 0, 1)">
from weblog
</v:template>
<v:url name="weblog_url" url="--self.b_home"
value="--self.b_title" />
</p>
</v:template>
</div>
</div>
</td>
</tr>
<tr><td colspan="3">
<div id="powered">
<a href="http://www.openlinksw.com/virtuoso">
<img src="/weblog/public/images/PoweredByVirtuoso.gif" border="0" alt="poweredby"/>
</a>
</div>
</td></tr>
</table>
</body>
</html>
</v:page>
|
