forked from Ecodev/newsletter
-
Notifications
You must be signed in to change notification settings - Fork 0
/
class.ext_update.php
225 lines (199 loc) · 12.2 KB
/
class.ext_update.php
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
<?php
/* * *************************************************************
* Copyright notice
*
* (c) 2014
* All rights reserved
*
* This script is part of the Typo3 project. The Typo3 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; either version 2 of the License, or
* (at your option) any later version.
*
* The GNU General Public License can be found at
* http://www.gnu.org/copyleft/gpl.html.
*
* This script 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.
*
* This copyright notice MUST APPEAR in all copies of the script!
* ************************************************************* */
/**
* Class to import data from legacy tx_tcdirectmail
*
* @package Newsletter
* @license http://www.gnu.org/licenses/gpl.html GNU General Public License, version 3 or later
*/
class ext_update
{
/**
* SQL queries to copy data from tcdirectmail to newsletter
* @var array
*/
private $queries = array(
// Recipient lists
"INSERT INTO tx_newsletter_domain_model_recipientlist (
uid, pid, title, plain_only, lang, type, be_users, fe_groups, fe_pages, csv_url, csv_separator, csv_fields, csv_filename, csv_values, sql_statement, html_url, html_fetch_type, tstamp, crdate, deleted, hidden
) SELECT uid, pid, title, plain_only, lang,
CONCAT( 'Tx_Newsletter_Domain_Model_RecipientList_', CONCAT( UPPER( LEFT( REPLACE( targettype, 'tx_tcdirectmail_target_', '' ) , 1 ) ) , SUBSTRING( REPLACE( targettype, 'tx_tcdirectmail_target_', '' ) , 2 ) ) ),
beusers, fegroups, fepages, csvurl, csvseparator, csvfields, csvfilename, csvvalues, rawsql, htmlfile, htmlfetchtype, tstamp, crdate, deleted, hidden
FROM tx_tcdirectmail_targets;",
// Bounce accounts
"INSERT INTO tx_newsletter_domain_model_bounceaccount (
pid, email, server, protocol, username, password, tstamp, crdate, deleted, hidden
) SELECT pid, email, server, servertype, username, passwd, tstamp, crdate, deleted, hidden
FROM tx_tcdirectmail_bounceaccount;",
// Migrate newsletter from page and tx_tcdirectmail_lock to its own table tx_newsletter_domain_model_newsletter
"INSERT INTO tx_newsletter_domain_model_newsletter (
pid, planned_time, begin_time, end_time, recipient_list, repetition, sender_name, sender_email, plain_converter, attachments, inject_open_spy, inject_links_spy, bounce_account
) SELECT pages.uid, IF(tx_tcdirectmail_senttime, tx_tcdirectmail_senttime, tx_tcdirectmail_lock.begintime), tx_tcdirectmail_lock.begintime, tx_tcdirectmail_lock.stoptime, tx_tcdirectmail_real_target, tx_tcdirectmail_repeat, tx_tcdirectmail_sendername, tx_tcdirectmail_senderemail,
CONCAT( 'Tx_Newsletter_Domain_Model_PlainConverter_', CONCAT( UPPER( LEFT( REPLACE( tx_tcdirectmail_plainconvert, 'tx_tcdirectmail_plain_', '' ) , 1 ) ) , SUBSTRING( REPLACE( tx_tcdirectmail_plainconvert, 'tx_tcdirectmail_plain_', '' ) , 2 ) ) ),
tx_tcdirectmail_attachfiles, tx_tcdirectmail_spy, tx_tcdirectmail_register_clicks, tx_tcdirectmail_bounceaccount
FROM pages
INNER JOIN tx_tcdirectmail_lock ON (pages.uid = tx_tcdirectmail_lock.pid)
WHERE tx_tcdirectmail_real_target != 0;",
// Emails matching an existing newsletter
"INSERT INTO tx_newsletter_domain_model_email (
pid, begin_time, end_time, recipient_address, recipient_data, open_time, bounce_time, newsletter
) SELECT tx_tcdirectmail_sentlog.pid, begintime, sendtime, receiver, userdata, IF(beenthere, sendtime, 0), IF(bounced, sendtime, 0), tx_newsletter_domain_model_newsletter.uid
FROM tx_tcdirectmail_sentlog
INNER JOIN tx_newsletter_domain_model_newsletter ON (tx_tcdirectmail_sentlog.pid = tx_newsletter_domain_model_newsletter.pid AND tx_tcdirectmail_sentlog.begintime = tx_newsletter_domain_model_newsletter.begin_time);",
// Migrate CLI beuser
"INSERT INTO be_users (
pid, tstamp, username, password, admin, usergroup, disable, starttime, endtime, lang, email, db_mountpoints, options, crdate, cruser_id, realName, userMods, allowed_languages, uc, file_mountpoints, fileoper_perms, workspace_perms, lockToDomain, disableIPlock, deleted, TSconfig, lastlogin, createdByAction, usergroup_cached_list, workspace_id, workspace_preview
) SELECT pid, tstamp, REPLACE(username, 'tcdirectmail', 'newsletter') AS username, password, admin, usergroup, disable, starttime, endtime, lang, email, db_mountpoints, options, crdate, cruser_id, realName, userMods, allowed_languages, uc, file_mountpoints, fileoper_perms, workspace_perms, lockToDomain, disableIPlock, deleted, TSconfig, lastlogin, createdByAction, usergroup_cached_list, workspace_id, workspace_preview
FROM be_users
WHERE username = '_cli_tcdirectmail';",
"UPDATE fe_users SET tx_newsletter_bounce = tx_tcdirectmail_bounce WHERE tx_newsletter_bounce = 0;",
"UPDATE be_users SET tx_newsletter_bounce = tx_tcdirectmail_bounce WHERE tx_newsletter_bounce = 0;",
// Normalize case
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_BeUsers' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Beusers';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_FeGroups' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Fegroups';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_FePages' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Fepages';",
"DELETE FROM tx_newsletter_domain_model_recipientlist WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Ttaddress';", // ttaddress is not supported anymore
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_Sql' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Rawsql';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_CsvFile' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Csvfile';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_CsvList' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Csvlist';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_CsvUrl' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_Csvurl';",
"UPDATE tx_newsletter_domain_model_recipientlist SET type = 'Tx_Newsletter_Domain_Model_RecipientList_Html' WHERE type = 'Tx_Newsletter_Domain_Model_RecipientList_html';",
// Convert tcdirectmail pages to standard pages
"UPDATE pages SET doktype = 1 WHERE doktype = 189;",
);
/**
* Main function, returning the HTML content of the module
* @global t3lib_DB $TYPO3_DB
* @return string HTML to display
*/
function main()
{
$content = '';
global $TYPO3_DB;
// Action! Makes the necessary update
$update = t3lib_div::_GP('importtcdirectmail');
// The update button was clicked
if (!empty($update) && $this->canImportFromTcdirectmail()) {
$content .= '<h2>Import successfull</h2>';
// Attempt to deactivate tcdirectmail via a URL loaded within iframe
if (t3lib_div::_GP('deactivate')) {
$content .= '<p>Deactivated TCDirectmail.</p>';
$content .= '<iframe style="border: none; height: 0; width: 0;" src="/typo3/mod.php?M=tools_em&CMD[showExt]=tcdirectmail&CMD[remove]=1" width="0" height="0"></iframe>';
}
// Import data
$recordCount = $this->importFromTcdirectmail();
$newsletterCount = reset($TYPO3_DB->sql_fetch_row($TYPO3_DB->sql_query('SELECT COUNT(*) FROM tx_newsletter_domain_model_newsletter')));
$emailCount = reset($TYPO3_DB->sql_fetch_row($TYPO3_DB->sql_query('SELECT COUNT(*) FROM tx_newsletter_domain_model_email')));
$recipientListCount = reset($TYPO3_DB->sql_fetch_row($TYPO3_DB->sql_query('SELECT COUNT(*) FROM tx_newsletter_domain_model_recipientlist')));
$bounceAccountCount = reset($TYPO3_DB->sql_fetch_row($TYPO3_DB->sql_query('SELECT COUNT(*) FROM tx_newsletter_domain_model_bounceaccount')));
$content .= "<p>Successfully imported data from TCDirectmail:</p><ul>
<li>Newsletters: $newsletterCount</li>
<li>Emails: $emailCount</li>
<li>Recipient Lists: $recipientListCount</li>
<li>Bounce Accounts: $bounceAccountCount</li>
<li>Total records count: $recordCount</li>
</ul>";
} else {
$content .= '<h2>Import from TCDirectMail</h2>';
if ($this->canImportFromTcdirectmail()) {
$content .= '<form name="importForm" action="" method ="post">';
$content .= '<p>Import all data from TCDirectmail, including newsletter sent, to be send and emails (this will NOT import hyperlinks related data).</p>';
$content .= '<input type="checkbox" name="deactivate" id="deactivate" checked="checked" /><label for="deactivate">Attempt to deactivate TCDirectmail.</label>';
$content .= '<p><input type="submit" name="importtcdirectmail" value ="Import" /></p>';
$content .= '</form>';
} else {
$content .= '<p>Cannot import from TCDirectmail.</p><p>TCDirectmail tables not found, or Newsletter tables non-empty (already imported or started using it).</p>';
}
}
return $content;
}
/**
* Returns whether an import from tcdirectmail is possible
* @global t3lib_DB $TYPO3_DB
* @return boolean
*/
private function canImportFromTcdirectmail()
{
global $TYPO3_DB;
// Check that tcdirectmail tables exist
$requiredTables = array(
'tx_tcdirectmail_bounceaccount',
'tx_tcdirectmail_clicklinks',
'tx_tcdirectmail_lock',
'tx_tcdirectmail_sentlog',
'tx_tcdirectmail_targets',
);
$tables = array_keys($TYPO3_DB->admin_get_tables());
$missingTables = array_diff($requiredTables, $tables);
if (count($missingTables) != 0)
return false;
// Check that newsletter tables are empty otherwise we would have primary key collision
$emptyTables = array(
'tx_newsletter_domain_model_bounceaccount',
'tx_newsletter_domain_model_email',
'tx_newsletter_domain_model_recipientlist',
'tx_newsletter_domain_model_newsletter',
);
foreach ($emptyTables as $table) {
$res = $TYPO3_DB->sql_query("SELECT COUNT(*) AS count FROM $table");
$row = $TYPO3_DB->sql_fetch_row($res);
if ($row[0] != 0)
return false;
}
return true;
}
/**
* Import data from tcdirectmail. Assume everything is available for import.
* @global t3lib_DB $TYPO3_DB
*/
private function importFromTcdirectmail()
{
global $TYPO3_DB;
$recordCount = 0;
foreach ($this->queries as $query) {
$res = $TYPO3_DB->sql_query($query);
if ($error = $TYPO3_DB->sql_error())
die("<pre>" . $query . "<br>" . $error . "</pre>");
$recordCount += $TYPO3_DB->sql_affected_rows($res);
}
// Copy uploaded files from tcdirectmail directory to newsletter directory
foreach (glob(PATH_site . "uploads/tx_tcdirectmail/*") as $filename) {
$dest = str_replace('uploads/tx_tcdirectmail/', 'uploads/tx_newsletter/', $filename);
copy($filename, $dest);
}
return $recordCount;
}
/**
* This method checks whether it is necessary to display the UPDATE option at all
*
* @param string $what: What should be updated
*/
function access($what = 'all')
{
return TRUE;
}
}
if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/newsletter/class.ext_update.php']) {
include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/newsletter/class.ext_update.php']);
}