Diff -- /var/www/vhosts/3dshawn.com/abforge.3dshawn.com/admin_emails.cgi

O Operator
Diff

/var/www/vhosts/3dshawn.com/abforge.3dshawn.com/admin_emails.cgi

added on local at 2026-07-11 18:36:55

Added
+1069
lines
Removed
-0
lines
Context
0
unchanged
Blobs
from
to dad60af41ee6
Restore this content →
Unified diff
Naive LCS-based line diff. Additions in emerald, deletions in rose. Both sides decompressed live from BLOB_STORE.
1#!/usr/bin/perl
2#======================================================================
3# ABForge -- /admin_emails.cgi
4#
5# Email Setup admin console. Three tabs backed by one dispatch:
6# /admin_emails.cgi -- Templates: list/edit/preview/send test
7# /admin_email_schedules.cgi -- Schedules: when each email fires
8# /admin_email_controls.cgi -- Controls: rate / bounce / abuse gates
9#
10# The two _schedules and _controls .cgi files are now 3-line wrappers
11# that `do` this file; the dispatch below reads SCRIPT_NAME.
12#
13# Super-admin only.
14#======================================================================
15use strict;
16use warnings;
17
18use lib '/var/www/vhosts/3dshawn.com/abforge.3dshawn.com';
19use CGI;
20use MODS::DBConnect;
21use MODS::ABForge::Wrapper;
22use MODS::ABForge::Config;
23use MODS::Login;
24
25my $q = CGI->new;
26my $form = $q->Vars;
27my $wrap = MODS::ABForge::Wrapper->new;
28my $db = MODS::DBConnect->new;
29my $cfg = MODS::ABForge::Config->new;
30my $DB = $cfg->settings('database_name');
31
32my $auth = MODS::Login->new;
33my $u = $auth->login_verify;
34unless ($u) { print "Status: 302 Found\nLocation: /login.cgi\n\n"; exit; }
35require MODS::ABForge::Permissions;
36MODS::ABForge::Permissions->new->require_super_admin($u);
37my $uid = $u->{user_id} + 0;
38
39my $entry = ($ENV{SCRIPT_NAME} || '') =~ m{/([^/]+)\.cgi$} ? $1 : 'admin_emails';
40
41if ($entry eq 'admin_email_controls') { _emx_controls(); exit; }
42if ($entry eq 'admin_email_schedules') { _emx_schedules(); exit; }
43
44# ================ MAIN: admin_emails.cgi (Templates tab) ==============
45{
46 require MODS::ABForge::Mailer;
47
48 my $dbh = $db->db_connect;
49 my $act = $form->{act} || '';
50 my $flash = '';
51
52 # ---- POST handlers --------------------------------------------------
53 if (($ENV{REQUEST_METHOD} || '') eq 'POST') {
54 if ($act eq 'save') {
55 my $tid = ($form->{template_id} || 0) + 0;
56 my $name = substr($form->{name} || '', 0, 160); $name =~ s/'/''/g;
57 my $subj = substr($form->{subject} || '', 0, 255); $subj =~ s/'/''/g;
58 my $body = substr($form->{body_html} || '', 0, 65000); $body =~ s/'/''/g;
59 my $cat = $form->{category} || 'lifecycle';
60 $cat = 'lifecycle' unless $cat =~ /^(transactional|lifecycle|product|marketing)$/;
61 my $active = $form->{is_active} ? 1 : 0;
62 $db->db_readwrite($dbh, qq~
63 UPDATE ${DB}.email_templates
64 SET name='$name', subject='$subj', body_html='$body',
65 category='$cat', is_active='$active',
66 updated_by_user_id='$uid'
67 WHERE id='$tid'
68 ~, $0, __LINE__);
69 $flash = 'Saved.';
70 }
71 elsif ($act eq 'send_test') {
72 my $slug = $form->{slug} || '';
73 $slug =~ s/[^a-z0-9_-]//g;
74 my $to = $form->{test_to} || $u->{email} || '';
75 my $mailer = MODS::ABForge::Mailer->new;
76 my %sample = (
77 display_name => $u->{display_name} || 'Test User',
78 first_name => (split /\s+/, ($u->{display_name} || 'Test'))[0],
79 company_name => $u->{company_name} || 'Test Workspace',
80 trial_ends_at => '2026-07-04 09:00:00',
81 days_left => 7,
82 inviter_name => 'You',
83 inviter_email => $u->{email} || '',
84 accept_url => 'https://abforge.3dshawn.com/accept_invite.cgi?token=SAMPLE',
85 reset_url => 'https://abforge.3dshawn.com/reset_password.cgi?t=SAMPLE',
86 );
87 my $ok = $mailer->send_template(
88 slug => $slug,
89 user_id => $uid,
90 to => $to,
91 vars => \%sample,
92 );
93 $flash = $ok ? "Test sent to $to." : "Test failed -- check _mail.log and email_sends_log.";
94 }
95 }
96
97 # ---- GET (list or edit) ---------------------------------------------
98 my $edit_slug = $form->{edit} || '';
99 $edit_slug =~ s/[^a-z0-9_-]//g;
100
101 my @templates = $db->db_readwrite_multiple($dbh, qq~
102 SELECT t.id, t.slug, t.category, t.name, t.subject, t.body_html,
103 t.is_system, t.is_active, t.updated_at,
104 (SELECT COUNT(*) FROM ${DB}.email_schedules WHERE template_id=t.id AND is_active=1) AS sched_count
105 FROM ${DB}.email_templates t
106 ORDER BY t.category, t.slug
107 ~, $0, __LINE__);
108
109 my @recent_sends = $db->db_readwrite_multiple($dbh, qq~
110 SELECT id, user_id, template_slug, to_email, subject, status, failure_reason, created_at,
111 UNIX_TIMESTAMP(created_at) AS created_at_epoch
112 FROM ${DB}.email_sends_log ORDER BY id DESC LIMIT 20
113 ~, $0, __LINE__);
114
115 $db->db_disconnect($dbh);
116
117 print "Content-Type: text/html; charset=utf-8\r\nCache-Control: no-store\r\n\r\n";
118
119 my $body;
120 my $flash_html = $flash ? qq~<div style="padding:10px 14px;background:rgba(34,197,94,.12);border:1px solid rgba(34,197,94,.3);border-radius:8px;color:#86efac;font-size:13px;margin-bottom:18px">$flash</div>~ : '';
121
122 if ($edit_slug) {
123 my ($t) = grep { $_->{slug} eq $edit_slug } @templates;
124 if ($t) {
125 my $name = _emx_h($t->{name});
126 my $subj = _emx_h($t->{subject});
127 my $body_h = _emx_h($t->{body_html});
128 my $cat = $t->{category};
129 my $checked = $t->{is_active} ? 'checked' : '';
130 my $is_sys = $t->{is_system} ? '<span style="font-size:11px;padding:2px 8px;border-radius:4px;background:rgba(139,92,246,.18);color:#c4b5fd;margin-left:8px">SYSTEM</span>' : '';
131 my @opts;
132 foreach my $k (qw(transactional lifecycle product marketing)) {
133 my $sel = ($k eq $cat) ? ' selected' : '';
134 push @opts, qq~<option value="$k"$sel>$k</option>~;
135 }
136 my $opt_html = join('', @opts);
137 my $tabs = _emx_setup_tabs('templates');
138 $body = qq~
139<div class="page-pad">
140 <h1 style="margin:0 0 6px;font-size:28px;color:#fff">Email Setup</h1>
141 <p style="color:#94a3b8;margin:0 0 18px;font-size:14px">Templates, schedules, and spam-protection controls.</p>
142 $tabs
143 <a href="/admin_emails.cgi" style="color:#94a3b8;font-size:13px;text-decoration:none">&larr; All templates</a>
144 <h2 style="margin:8px 0 6px;font-size:22px;color:#fff">Edit: $name $is_sys</h2>
145 <p style="color:#94a3b8;margin:0 0 24px;font-size:14px"><code style="color:#c4b5fd">$t->{slug}</code> &middot; category <strong>$cat</strong></p>
146 $flash_html
147 <form method="POST" action="/admin_emails.cgi" style="display:grid;grid-template-columns:1fr 280px;gap:24px">
148 <div>
149 <input type="hidden" name="act" value="save">
150 <input type="hidden" name="template_id" value="$t->{id}">
151 <label style="display:block;font-size:12px;text-transform:uppercase;letter-spacing:.05em;color:#cbd5e1;margin-bottom:6px">Name</label>
152 <input class="input" type="text" name="name" value="$name" maxlength="160" style="width:100%;margin-bottom:14px">
153 <label style="display:block;font-size:12px;text-transform:uppercase;letter-spacing:.05em;color:#cbd5e1;margin-bottom:6px">Category</label>
154 <select class="select" name="category" style="width:100%;margin-bottom:14px">$opt_html</select>
155 <label style="display:block;font-size:12px;text-transform:uppercase;letter-spacing:.05em;color:#cbd5e1;margin-bottom:6px">Subject</label>
156 <input class="input" type="text" name="subject" value="$subj" maxlength="255" style="width:100%;margin-bottom:14px">
157 <label style="display:block;font-size:12px;text-transform:uppercase;letter-spacing:.05em;color:#cbd5e1;margin-bottom:6px">Body</label>
158 <div class="wyse" id="wyse" style="margin-bottom:14px">
159 <div class="wyse-toolbar">
160 <button type="button" class="wbtn" data-cmd="bold" title="Bold (Ctrl+B)"><b>B</b></button>
161 <button type="button" class="wbtn" data-cmd="italic" title="Italic (Ctrl+I)"><i>I</i></button>
162 <button type="button" class="wbtn" data-cmd="underline" title="Underline"><u>U</u></button>
163 <button type="button" class="wbtn" data-cmd="strikeThrough" title="Strikethrough"><s>S</s></button>
164 <span class="wsep"></span>
165 <button type="button" class="wbtn wbtn-text" data-block="h1" title="Heading 1">H1</button>
166 <button type="button" class="wbtn wbtn-text" data-block="h2" title="Heading 2">H2</button>
167 <button type="button" class="wbtn wbtn-text" data-block="h3" title="Heading 3">H3</button>
168 <button type="button" class="wbtn wbtn-text" data-block="p" title="Paragraph">P</button>
169 <span class="wsep"></span>
170 <button type="button" class="wbtn" data-cmd="insertUnorderedList" title="Bulleted list">&bull;</button>
171 <button type="button" class="wbtn" data-cmd="insertOrderedList" title="Numbered list">1.</button>
172 <button type="button" class="wbtn wbtn-text" data-block="blockquote" title="Block quote">&ldquo;</button>
173 <button type="button" class="wbtn wbtn-text" data-action="code" title="Inline code">&lt;/&gt;</button>
174 <span class="wsep"></span>
175 <button type="button" class="wbtn wbtn-text" data-action="link" title="Insert link">Link</button>
176 <button type="button" class="wbtn" data-cmd="unlink" title="Remove link">&#128279;</button>
177 <button type="button" class="wbtn wbtn-text" data-cmd="insertHorizontalRule" title="Insert horizontal rule">&mdash;</button>
178 <span class="wsep"></span>
179 <select class="wsel" id="wyse-var" title="Insert a template variable at the cursor">
180 <option value="">+ Variable</option>
181 <option value="{{display_name}}">display_name</option>
182 <option value="{{first_name}}">first_name</option>
183 <option value="{{company_name}}">company_name</option>
184 <option value="{{trial_ends_at}}">trial_ends_at</option>
185 <option value="{{days_left}}">days_left</option>
186 <option value="{{billing_url}}">billing_url</option>
187 <option value="{{dashboard_url}}">dashboard_url</option>
188 <option value="{{unsubscribe_url}}">unsubscribe_url</option>
189 <option value="{{inviter_name}}">inviter_name</option>
190 <option value="{{inviter_email}}">inviter_email</option>
191 <option value="{{accept_url}}">accept_url</option>
192 <option value="{{reset_url}}">reset_url</option>
193 </select>
194 <span class="wsep" style="margin-left:auto"></span>
195 <button type="button" class="wbtn wbtn-text wbtn-preview" id="wyse-preview" title="Preview the email with sample values substituted">Preview &#9654;</button>
196 <button type="button" class="wbtn wbtn-text wbtn-mode" id="wyse-mode" title="Toggle between rendered HTML and raw source">Source &#8644;</button>
197 </div>
198 <div class="wyse-rendered" id="wyse-rendered" contenteditable="true" spellcheck="true"></div>
199 <textarea class="wyse-source" id="wyse-source" style="display:none">$body_h</textarea>
200 </div>
201 <input type="hidden" name="body_html" id="wyse-hidden">
202 <div class="wprev-backdrop" id="wprev-backdrop" role="dialog" aria-modal="true">
203 <div class="wprev-modal">
204 <div class="wprev-head">
205 <div class="wprev-title">Preview &middot; sample values substituted</div>
206 <button type="button" class="wprev-close" id="wprev-close">Close</button>
207 </div>
208 <div class="wprev-meta">
209 <div class="wprev-from">From: ABForge &lt;noreply\@abforge.3dshawn.com&gt; &middot; To: shawn\@example.com</div>
210 <div class="wprev-subject" id="wprev-subject"></div>
211 </div>
212 <div class="wprev-body" id="wprev-body"></div>
213 </div>
214 </div>
215 <style>
216 .wyse { border:1px solid rgba(255,255,255,.10); border-radius:10px; overflow:hidden; background:#0f1420; }
217 .wyse-toolbar { display:flex; flex-wrap:wrap; gap:2px; padding:8px 10px; background:#171b2a; border-bottom:1px solid rgba(255,255,255,.10); align-items:center; }
218 .wyse .wbtn { background:transparent; border:1px solid transparent; color:#cbd5e1; font-size:13px; min-width:32px; height:30px; padding:0 8px; border-radius:6px; cursor:pointer; display:inline-flex; align-items:center; justify-content:center; line-height:1; font-family:inherit; }
219 .wyse .wbtn:hover { background:rgba(255,255,255,.06); color:#fff; }
220 .wyse .wbtn.is-active { background:rgba(90,169,255,.20); color:#bfdbff; border-color:rgba(90,169,255,.35); }
221 .wyse .wbtn-text { font-size:12px; font-weight:600; }
222 .wyse .wsep { width:1px; height:18px; background:rgba(255,255,255,.10); margin:0 6px; }
223 .wyse .wsel { background:#0f1420; color:#cbd5e1; border:1px solid rgba(255,255,255,.12); border-radius:6px; padding:5px 8px; font-size:12px; cursor:pointer; height:30px; }
224 .wyse .wbtn-mode { background:rgba(139,92,246,.15); color:#c4b5fd; border-color:rgba(139,92,246,.30); }
225 .wyse .wbtn-mode:hover { background:rgba(139,92,246,.25); }
226 .wyse .wbtn-preview { background:rgba(34,197,94,.14); color:#86efac; border-color:rgba(34,197,94,.30); }
227 .wyse .wbtn-preview:hover { background:rgba(34,197,94,.24); }
228 .wprev-backdrop { position:fixed; inset:0; background:rgba(0,0,0,.65); z-index:9000; display:none; align-items:flex-start; justify-content:center; padding:40px 16px; overflow:auto; }
229 .wprev-backdrop.is-open { display:flex; }
230 .wprev-modal { background:#0b0f1a; color:#e2e8f0; max-width:720px; width:100%; border:1px solid rgba(255,255,255,.10); border-radius:14px; overflow:hidden; box-shadow:0 20px 60px rgba(0,0,0,.5); }
231 .wprev-head { display:flex; align-items:center; padding:14px 20px; border-bottom:1px solid rgba(255,255,255,.10); background:#171b2a; gap:14px; }
232 .wprev-head .wprev-title { font-size:12px; text-transform:uppercase; letter-spacing:.06em; color:#94a3b8; font-weight:600; }
233 .wprev-head .wprev-close { margin-left:auto; background:transparent; border:1px solid rgba(255,255,255,.12); color:#cbd5e1; padding:6px 14px; border-radius:6px; cursor:pointer; font-size:13px; }
234 .wprev-head .wprev-close:hover { background:rgba(255,255,255,.06); }
235 .wprev-meta { padding:12px 20px; font-size:12px; color:#94a3b8; border-bottom:1px solid rgba(255,255,255,.05); background:rgba(20,20,30,.3); }
236 .wprev-meta .wprev-from { color:#cbd5e1; font-weight:500; }
237 .wprev-meta .wprev-subject { color:#f1f5f9; font-weight:700; font-size:15px; margin-top:6px; }
238 .wprev-body { padding:24px 28px; line-height:1.65; font-size:14px; max-height:60vh; overflow:auto; }
239 .wprev-body p { margin:.6em 0; }
240 .wprev-body h1 { font-size:22px; margin:.4em 0 .3em; color:#f1f5f9; }
241 .wprev-body h2 { font-size:18px; margin:.5em 0 .3em; color:#f1f5f9; }
242 .wprev-body h3 { font-size:16px; margin:.5em 0 .3em; color:#f1f5f9; }
243 .wprev-body ul, .wprev-body ol { padding-left:1.6em; margin:.5em 0; }
244 .wprev-body a { color:#5aa9ff; text-decoration:underline; }
245 .wprev-body code { background:rgba(255,255,255,.06); padding:1px 6px; border-radius:4px; font-family:ui-monospace,Consolas,Menlo,monospace; font-size:12.5px; }
246 .wprev-body blockquote { border-left:3px solid rgba(255,255,255,.20); margin:.8em 0; padding:.2em 1em; color:#cbd5e1; }
247 .wprev-body hr { border:0; border-top:1px solid rgba(255,255,255,.15); margin:1em 0; }
248 .wyse-rendered { min-height:380px; padding:16px 20px; color:#e2e8f0; font-size:14px; line-height:1.6; outline:none; background:#0b0f1a; }
249 .wyse-rendered:focus { background:#0b0f1a; }
250 .wyse-rendered h1 { font-size:22px; margin:.4em 0 .3em; color:#f1f5f9; }
251 .wyse-rendered h2 { font-size:18px; margin:.5em 0 .3em; color:#f1f5f9; }
252 .wyse-rendered h3 { font-size:16px; margin:.5em 0 .3em; color:#f1f5f9; }
253 .wyse-rendered p { margin:.5em 0; }
254 .wyse-rendered ul, .wyse-rendered ol { padding-left:1.6em; margin:.5em 0; }
255 .wyse-rendered a { color:#5aa9ff; text-decoration:underline; }
256 .wyse-rendered code { background:rgba(255,255,255,.06); padding:1px 6px; border-radius:4px; font-family:ui-monospace,Consolas,Menlo,monospace; font-size:12.5px; }
257 .wyse-rendered blockquote { border-left:3px solid rgba(255,255,255,.20); margin:.8em 0; padding:.2em 1em; color:#cbd5e1; }
258 .wyse-rendered hr { border:0; border-top:1px solid rgba(255,255,255,.15); margin:1em 0; }
259 .wyse-source { width:100%; min-height:380px; padding:14px 18px; background:#070a13; color:#cbd5e1; border:0; outline:none; font-family:ui-monospace,Consolas,Menlo,monospace; font-size:12.5px; resize:vertical; box-sizing:border-box; }
260 </style>
261 <script>
262 (function () {
263 var root = document.getElementById('wyse');
264 var rendered= document.getElementById('wyse-rendered');
265 var source = document.getElementById('wyse-source');
266 var hidden = document.getElementById('wyse-hidden');
267 var modeBtn = document.getElementById('wyse-mode');
268 var varSel = document.getElementById('wyse-var');
269 if (!root || !rendered || !source) return;
270
271 var mode = 'rendered';
272
273 rendered.innerHTML = source.value;
274 hidden.value = source.value;
275
276 function syncHidden() {
277 if (mode === 'rendered') {
278 source.value = rendered.innerHTML;
279 } else {
280 rendered.innerHTML = source.value;
281 }
282 hidden.value = source.value;
283 }
284
285 root.querySelectorAll('.wbtn[data-cmd]').forEach(function (b) {
286 b.addEventListener('click', function (ev) {
287 ev.preventDefault();
288 if (mode !== 'rendered') return;
289 rendered.focus();
290 document.execCommand(b.getAttribute('data-cmd'), false, null);
291 syncHidden();
292 });
293 });
294
295 root.querySelectorAll('.wbtn[data-block]').forEach(function (b) {
296 b.addEventListener('click', function (ev) {
297 ev.preventDefault();
298 if (mode !== 'rendered') return;
299 rendered.focus();
300 document.execCommand('formatBlock', false, b.getAttribute('data-block'));
301 syncHidden();
302 });
303 });
304
305 root.querySelectorAll('.wbtn[data-action]').forEach(function (b) {
306 b.addEventListener('click', function (ev) {
307 ev.preventDefault();
308 if (mode !== 'rendered') return;
309 rendered.focus();
310 var action = b.getAttribute('data-action');
311 if (action === 'link') {
312 var url = prompt('URL?', 'https://');
313 if (url) document.execCommand('createLink', false, url);
314 } else if (action === 'code') {
315 var sel = window.getSelection();
316 if (sel && sel.rangeCount && !sel.isCollapsed) {
317 var range = sel.getRangeAt(0);
318 var code = document.createElement('code');
319 try { range.surroundContents(code); } catch (e) {
320 code.appendChild(range.extractContents());
321 range.insertNode(code);
322 }
323 }
324 }
325 syncHidden();
326 });
327 });
328
329 if (varSel) {
330 varSel.addEventListener('change', function () {
331 var v = varSel.value;
332 if (!v) return;
333 if (mode === 'rendered') {
334 rendered.focus();
335 document.execCommand('insertText', false, v);
336 } else {
337 var ta = source;
338 var start = ta.selectionStart, end = ta.selectionEnd;
339 ta.value = ta.value.slice(0, start) + v + ta.value.slice(end);
340 ta.selectionStart = ta.selectionEnd = start + v.length;
341 ta.focus();
342 }
343 varSel.value = '';
344 syncHidden();
345 });
346 }
347
348 modeBtn.addEventListener('click', function (ev) {
349 ev.preventDefault();
350 if (mode === 'rendered') {
351 source.value = rendered.innerHTML;
352 rendered.style.display = 'none';
353 source.style.display = 'block';
354 mode = 'source';
355 modeBtn.innerHTML = 'Rendered &#8644;';
356 source.focus();
357 } else {
358 rendered.innerHTML = source.value;
359 source.style.display = 'none';
360 rendered.style.display = 'block';
361 mode = 'rendered';
362 modeBtn.innerHTML = 'Source &#8644;';
363 rendered.focus();
364 }
365 syncHidden();
366 });
367
368 rendered.addEventListener('input', syncHidden);
369 source.addEventListener('input', syncHidden);
370
371 var form = root.closest('form');
372 if (form) form.addEventListener('submit', syncHidden);
373
374 var SAMPLES = {
375 display_name : 'Shawn (Platform Owner)',
376 first_name : 'Shawn',
377 company_name : "Shawn's Workspace",
378 trial_ends_at : '2026-07-04 09:00:00',
379 days_left : '7',
380 billing_url : 'https://abforge.3dshawn.com/billing.cgi',
381 dashboard_url : 'https://abforge.3dshawn.com/dashboard.cgi',
382 unsubscribe_url: 'https://abforge.3dshawn.com/unsubscribe.cgi?t=SAMPLE',
383 inviter_name : 'Shawn',
384 inviter_email : 'shawn\@example.com',
385 accept_url : 'https://abforge.3dshawn.com/accept_invite.cgi?token=SAMPLE',
386 reset_url : 'https://abforge.3dshawn.com/reset_password.cgi?t=SAMPLE'
387 };
388 function fillVars(html) {
389 return (html || '').replace(/\{\{\s*([a-z_][a-z0-9_]*)\s*\}\}/gi, function (_, k) {
390 return (k in SAMPLES) ? SAMPLES[k] : '{{' + k + '}}';
391 });
392 }
393 var backdrop = document.getElementById('wprev-backdrop');
394 var prevBody = document.getElementById('wprev-body');
395 var prevSubj = document.getElementById('wprev-subject');
396 var prevBtn = document.getElementById('wyse-preview');
397 var closeBtn = document.getElementById('wprev-close');
398 function openPreview() {
399 syncHidden();
400 prevBody.innerHTML = fillVars(source.value);
401 var subjInput = document.querySelector('input[name=subject]');
402 prevSubj.textContent = fillVars(subjInput ? subjInput.value : '');
403 backdrop.classList.add('is-open');
404 document.body.style.overflow = 'hidden';
405 }
406 function closePreview() {
407 backdrop.classList.remove('is-open');
408 document.body.style.overflow = '';
409 }
410 if (prevBtn) prevBtn.addEventListener('click', function (ev) { ev.preventDefault(); openPreview(); });
411 if (closeBtn) closeBtn.addEventListener('click', closePreview);
412 backdrop.addEventListener('click', function (ev) {
413 if (ev.target === backdrop) closePreview();
414 });
415 document.addEventListener('keydown', function (ev) {
416 if (ev.key === 'Escape' && backdrop.classList.contains('is-open')) closePreview();
417 });
418 })();
419 </script>
420 <label style="display:flex;align-items:center;gap:8px;font-size:13px;color:#cbd5e1;margin-bottom:18px">
421 <input type="checkbox" name="is_active" value="1" $checked> Active (template can be sent)
422 </label>
423 <button type="submit" class="btn btn-primary btn-lg">Save changes</button>
424 </div>
425 <aside style="background:rgba(20,20,30,.4);padding:16px 18px;border:1px solid rgba(255,255,255,.08);border-radius:12px;height:fit-content">
426 <h3 style="font-size:13px;text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;margin:0 0 6px">Variables &amp; sample values</h3>
427 <p style="font-size:11px;color:#94a3b8;margin:0 0 12px;line-height:1.5">Drop \{\{name\}\} into the body or subject; at send time it's swapped for the real value. The samples below are what the <strong>Preview</strong> button uses.</p>
428 <table style="font-size:11.5px;line-height:1.5;width:100%;border-collapse:collapse">
429 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{display_name\}\}</td><td style="padding:3px 0;color:#cbd5e1">Shawn (Platform Owner)</td></tr>
430 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{first_name\}\}</td><td style="padding:3px 0;color:#cbd5e1">Shawn</td></tr>
431 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{company_name\}\}</td><td style="padding:3px 0;color:#cbd5e1">Shawn's Workspace</td></tr>
432 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{trial_ends_at\}\}</td><td style="padding:3px 0;color:#cbd5e1">2026-07-04 09:00:00</td></tr>
433 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{days_left\}\}</td><td style="padding:3px 0;color:#cbd5e1">7</td></tr>
434 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{billing_url\}\}</td><td style="padding:3px 0;color:#94a3b8;font-size:10.5px">.../billing.cgi</td></tr>
435 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{dashboard_url\}\}</td><td style="padding:3px 0;color:#94a3b8;font-size:10.5px">.../dashboard.cgi</td></tr>
436 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{unsubscribe_url\}\}</td><td style="padding:3px 0;color:#94a3b8;font-size:10.5px">.../unsubscribe.cgi?t=...</td></tr>
437 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{inviter_name\}\}</td><td style="padding:3px 0;color:#cbd5e1">Shawn</td></tr>
438 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{inviter_email\}\}</td><td style="padding:3px 0;color:#cbd5e1">shawn\@example.com</td></tr>
439 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{accept_url\}\}</td><td style="padding:3px 0;color:#94a3b8;font-size:10.5px">.../accept_invite.cgi</td></tr>
440 <tr><td style="padding:3px 6px 3px 0;color:#c4b5fd;font-family:ui-monospace,Consolas,Menlo,monospace;white-space:nowrap">\{\{reset_url\}\}</td><td style="padding:3px 0;color:#94a3b8;font-size:10.5px">.../reset_password.cgi</td></tr>
441 </table>
442 <hr style="border:0;border-top:1px solid rgba(255,255,255,.08);margin:18px 0">
443 <h3 style="font-size:13px;text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;margin:0 0 12px">Send test</h3>
444 <p style="font-size:12px;color:#94a3b8;margin:0 0 10px">Renders with sample values + sends to:</p>
445 </aside>
446 </form>
447
448 <form method="POST" action="/admin_emails.cgi" style="margin-top:24px;padding:16px;border:1px solid rgba(91,33,182,.3);background:rgba(91,33,182,.05);border-radius:10px">
449 <input type="hidden" name="act" value="send_test">
450 <input type="hidden" name="slug" value="$t->{slug}">
451 <label style="display:block;font-size:12px;text-transform:uppercase;letter-spacing:.05em;color:#cbd5e1;margin-bottom:6px">Send test to</label>
452 <div style="display:flex;gap:8px">
453 <input class="input" type="email" name="test_to" value="$u->{email}" style="flex:1">
454 <button type="submit" class="btn btn-secondary">Send test &rarr;</button>
455 </div>
456 </form>
457</div>~;
458 } else {
459 $body = qq~<div class="page-pad"><p style="color:#fca5a5">Template not found.</p></div>~;
460 }
461 } else {
462 my $rows = '';
463 my %cat_color = (
464 transactional => '#a78bfa',
465 lifecycle => '#5aa9ff',
466 product => '#34d399',
467 marketing => '#fbbf24',
468 );
469 foreach my $t (@templates) {
470 my $sys = $t->{is_system} ? '<span style="font-size:10px;padding:1px 6px;border-radius:3px;background:rgba(139,92,246,.18);color:#c4b5fd">SYS</span>' : '';
471 my $active = $t->{is_active} ? '<span style="color:#86efac">active</span>' : '<span style="color:#94a3b8">inactive</span>';
472 my $col = $cat_color{$t->{category}} || '#94a3b8';
473 my $sn = _emx_h($t->{name});
474 my $ss = _emx_h($t->{subject});
475 $rows .= qq~
476 <tr style="border-top:1px solid rgba(255,255,255,.05);cursor:pointer" onclick="location.href='/admin_emails.cgi?edit=$t->{slug}'">
477 <td style="padding:10px 12px"><div style="font-weight:600;color:#e2e8f0">$sn $sys</div><div style="font-size:11px;color:#94a3b8;font-family:ui-monospace,Consolas,Menlo,monospace">$t->{slug}</div></td>
478 <td style="padding:10px 12px"><span style="font-size:11px;color:$col;text-transform:uppercase;letter-spacing:.05em;font-weight:600">$t->{category}</span></td>
479 <td style="padding:10px 12px;font-size:13px;color:#cbd5e1">$ss</td>
480 <td style="padding:10px 12px;font-size:12px">$t->{sched_count} sched</td>
481 <td style="padding:10px 12px;font-size:12px">$active</td>
482 </tr>~;
483 }
484 my $sends_html = '';
485 foreach my $s (@recent_sends) {
486 my $color = $s->{status} eq 'sent' ? '#86efac'
487 : $s->{status} eq 'failed' ? '#fca5a5'
488 : $s->{status} =~ /^suppressed/ ? '#fbbf24'
489 : '#94a3b8';
490 my $to = _emx_h($s->{to_email});
491 my $sj = _emx_h($s->{subject});
492 my $rsn = _emx_h($s->{failure_reason} || '');
493 my $created_ts = _emx_ts_wrap($s->{created_at}, $s->{created_at_epoch}, 'datetime');
494 $sends_html .= qq~
495 <tr style="border-top:1px solid rgba(255,255,255,.05)">
496 <td style="padding:6px 10px;font-size:11px;color:#94a3b8">$created_ts</td>
497 <td style="padding:6px 10px;font-size:12px;color:#cbd5e1;font-family:ui-monospace,Consolas,Menlo,monospace">$s->{template_slug}</td>
498 <td style="padding:6px 10px;font-size:12px;color:#cbd5e1">$to</td>
499 <td style="padding:6px 10px;font-size:11px;color:$color;text-transform:uppercase;letter-spacing:.05em">$s->{status}</td>
500 <td style="padding:6px 10px;font-size:11px;color:#94a3b8">$rsn</td>
501 </tr>~;
502 }
503 my $tabs = _emx_setup_tabs('templates');
504 $body = qq~
505<div class="page-pad">
506 <h1 style="margin:0 0 6px;font-size:28px;color:#fff">Email Setup</h1>
507 <p style="color:#94a3b8;margin:0 0 18px;font-size:14px">Templates, schedules, and spam-protection controls.</p>
508 $tabs
509 $flash_html
510 <h2 style="font-size:18px;color:#fff;margin:0 0 6px">Templates</h2>
511 <p style="color:#94a3b8;margin:0 0 14px;font-size:13px">Edit subject + body for every email ABForge sends. Click a row to edit.</p>
512
513 <div style="border:1px solid rgba(255,255,255,.08);border-radius:12px;overflow:hidden;background:rgba(20,20,30,.4);margin-bottom:32px">
514 <table style="width:100%;border-collapse:collapse">
515 <thead><tr>
516 <th style="padding:10px 12px;text-align:left;font-size:11px;color:#94a3b8;text-transform:uppercase;letter-spacing:.05em">Name</th>
517 <th style="padding:10px 12px;text-align:left;font-size:11px;color:#94a3b8;text-transform:uppercase;letter-spacing:.05em">Category</th>
518 <th style="padding:10px 12px;text-align:left;font-size:11px;color:#94a3b8;text-transform:uppercase;letter-spacing:.05em">Subject</th>
519 <th style="padding:10px 12px;text-align:left;font-size:11px;color:#94a3b8;text-transform:uppercase;letter-spacing:.05em">Schedules</th>
520 <th style="padding:10px 12px;text-align:left;font-size:11px;color:#94a3b8;text-transform:uppercase;letter-spacing:.05em">Status</th>
521 </tr></thead>
522 <tbody>$rows</tbody>
523 </table>
524 </div>
525
526 <h2 style="font-size:18px;color:#fff;margin:0 0 14px">Recent sends</h2>
527 <div style="border:1px solid rgba(255,255,255,.08);border-radius:12px;overflow:hidden;background:rgba(20,20,30,.4)">
528 <table style="width:100%;border-collapse:collapse">
529 <thead><tr>
530 <th style="padding:6px 10px;text-align:left;font-size:10px;color:#94a3b8;text-transform:uppercase">When</th>
531 <th style="padding:6px 10px;text-align:left;font-size:10px;color:#94a3b8;text-transform:uppercase">Template</th>
532 <th style="padding:6px 10px;text-align:left;font-size:10px;color:#94a3b8;text-transform:uppercase">To</th>
533 <th style="padding:6px 10px;text-align:left;font-size:10px;color:#94a3b8;text-transform:uppercase">Status</th>
534 <th style="padding:6px 10px;text-align:left;font-size:10px;color:#94a3b8;text-transform:uppercase">Detail</th>
535 </tr></thead>
536 <tbody>$sends_html</tbody>
537 </table>
538 </div>
539</div>~;
540 }
541
542 $wrap->render({ userinfo => $u, page_key => 'email_setup', title => 'Email Setup', body => $body });
543}
544
545exit;
546
547#======================================================================
548# Shared helpers
549#======================================================================
550sub _emx_h {
551 my $s = shift // '';
552 $s =~ s/&/&amp;/g; $s =~ s/</&lt;/g; $s =~ s/>/&gt;/g;
553 $s =~ s/"/&quot;/g; $s =~ s/'/&#39;/g;
554 return $s;
555}
556
557# ---- Viewer-local timestamp wrapper ---------------------------------
558sub _emx_ts_wrap {
559 my ($human, $epoch, $fmt) = @_;
560 $fmt = 'datetime' unless defined $fmt && length $fmt;
561 return '-' unless defined($human) && length($human);
562 my $esc = _emx_h($human);
563 return $esc unless $epoch && $epoch =~ /^\d+$/;
564 return qq~<span class="ts" data-ts="$epoch" data-fmt="$fmt">$esc</span>~;
565}
566
567sub _emx_setup_tabs {
568 my ($active) = @_;
569 my %t = (templates => 'Templates', schedules => 'Schedules', controls => 'Controls');
570 my %h = (templates => '/admin_emails.cgi', schedules => '/admin_email_schedules.cgi', controls => '/admin_email_controls.cgi');
571 my $html = '<div style="display:flex;gap:0;border-bottom:1px solid rgba(255,255,255,.08);margin:0 0 22px">';
572 foreach my $k (qw(templates schedules controls)) {
573 my $is_active = ($k eq $active);
574 my $color = $is_active ? '#5aa9ff' : '#94a3b8';
575 my $border = $is_active ? '#5aa9ff' : 'transparent';
576 my $weight = $is_active ? '600' : '500';
577 $html .= qq~<a href="$h{$k}" style="padding:10px 20px;color:$color;text-decoration:none;font-size:13px;border-bottom:2px solid $border;font-weight:$weight;letter-spacing:.02em">$t{$k}</a>~;
578 }
579 $html .= '</div>';
580 return $html;
581}
582
583#======================================================================
584# admin_email_controls.cgi -- Controls tab (rate/bounce/abuse gates).
585#======================================================================
586sub _emx_controls {
587 my $dbh = $db->db_connect;
588 my $act = $form->{act} || '';
589 my $flash = '';
590
591 if (($ENV{REQUEST_METHOD} || '') eq 'POST' && $act eq 'save_controls') {
592 my %controls = (
593 email_rate_hourly_cap => { min=>1, max=>10000, default=>20 },
594 email_rate_daily_cap => { min=>1, max=>100000, default=>100 },
595 email_dedupe_window_hours => { min=>0, max=>720, default=>24 },
596 email_account_age_min_hours => { min=>0, max=>720, default=>1 },
597 email_bounce_suspend_pct => { min=>0, max=>100, default=>10 },
598 email_bounce_min_volume => { min=>1, max=>100000, default=>20 },
599 email_abuse_suspend_threshold => { min=>1, max=>100, default=>1 },
600 email_suspend_days => { min=>1, max=>365, default=>7 },
601 );
602 foreach my $k (keys %controls) {
603 my $raw = $form->{$k}; next unless defined $raw;
604 my $n = $raw + 0;
605 my $spec = $controls{$k};
606 $n = $spec->{default} if ($n < $spec->{min} || $n > $spec->{max});
607 my $kq = $k; $kq =~ s/'/''/g;
608 my $vq = $n; $vq =~ s/'/''/g;
609 $db->db_readwrite($dbh, qq~
610 INSERT INTO ${DB}.platform_settings (setting_key, setting_value)
611 VALUES ('$kq', '$vq')
612 ON DUPLICATE KEY UPDATE setting_value='$vq'
613 ~, $0, __LINE__);
614 }
615 $flash = 'Email controls saved.';
616 }
617
618 my @control_rows = $db->db_readwrite_multiple($dbh, qq~
619 SELECT setting_key, setting_value FROM ${DB}.platform_settings
620 WHERE setting_key IN (
621 'email_rate_hourly_cap','email_rate_daily_cap','email_dedupe_window_hours',
622 'email_account_age_min_hours','email_bounce_suspend_pct','email_bounce_min_volume',
623 'email_abuse_suspend_threshold','email_suspend_days')
624 ~, $0, __LINE__);
625 my %controls;
626 foreach my $r (@control_rows) { $controls{$r->{setting_key}} = $r->{setting_value}; }
627 my %control_defaults = (
628 email_rate_hourly_cap => 20, email_rate_daily_cap => 100,
629 email_dedupe_window_hours => 24, email_account_age_min_hours => 1,
630 email_bounce_suspend_pct => 10, email_bounce_min_volume => 20,
631 email_abuse_suspend_threshold => 1, email_suspend_days => 7,
632 );
633 foreach my $k (keys %control_defaults) { $controls{$k} //= $control_defaults{$k}; }
634
635 $db->db_disconnect($dbh);
636
637 print "Content-Type: text/html; charset=utf-8\r\nCache-Control: no-store\r\n\r\n";
638
639 my $flash_html = $flash ? qq~<div style="padding:10px 14px;background:rgba(34,197,94,.12);border:1px solid rgba(34,197,94,.3);border-radius:8px;color:#86efac;font-size:13px;margin-bottom:18px">$flash</div>~ : '';
640
641 my $tabs = _emx_setup_tabs('controls');
642
643 my $body = qq~
644<div class="page-pad">
645 <h1 style="margin:0 0 6px;font-size:28px;color:#fff">Email Setup</h1>
646 <p style="color:#94a3b8;margin:0 0 18px;font-size:14px">Templates, schedules, and spam-protection controls.</p>
647 $tabs
648 $flash_html
649 <h2 style="font-size:18px;color:#fff;margin:0 0 6px">Controls <span style="font-size:11px;color:#94a3b8;font-weight:400;letter-spacing:.05em">&middot; SPAM PROTECTION</span></h2>
650 <p style="color:#94a3b8;margin:0 0 14px;font-size:13px">Tune the per-account caps, account-age gate, bounce auto-suspend, and abuse-report threshold. Defaults are conservative &mdash; raise carefully.</p>
651 <form method="POST" action="/admin_email_controls.cgi" style="border:1px solid rgba(255,255,255,.08);border-radius:12px;background:rgba(20,20,30,.4);padding:18px">
652 <input type="hidden" name="act" value="save_controls">
653 <div style="display:grid;grid-template-columns:repeat(auto-fit,minmax(220px,1fr));gap:14px">
654 <label style="font-size:12px;color:#cbd5e1">
655 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Hourly burst cap</div>
656 <input class="input" type="number" name="email_rate_hourly_cap" value="$controls{email_rate_hourly_cap}" min="1" max="10000" style="width:100%">
657 <div style="color:#94a3b8;font-size:11px;margin-top:4px">Sends/account/hour. Hard cap.</div>
658 </label>
659 <label style="font-size:12px;color:#cbd5e1">
660 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Daily cap</div>
661 <input class="input" type="number" name="email_rate_daily_cap" value="$controls{email_rate_daily_cap}" min="1" max="100000" style="width:100%">
662 <div style="color:#94a3b8;font-size:11px;margin-top:4px">Sends/account/24h. Hard cap.</div>
663 </label>
664 <label style="font-size:12px;color:#cbd5e1">
665 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Dedupe window (hours)</div>
666 <input class="input" type="number" name="email_dedupe_window_hours" value="$controls{email_dedupe_window_hours}" min="0" max="720" style="width:100%">
667 <div style="color:#94a3b8;font-size:11px;margin-top:4px">Same recipient + same template within N hours = drop.</div>
668 </label>
669 <label style="font-size:12px;color:#cbd5e1">
670 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Account-age gate (hours)</div>
671 <input class="input" type="number" name="email_account_age_min_hours" value="$controls{email_account_age_min_hours}" min="0" max="720" style="width:100%">
672 <div style="color:#94a3b8;font-size:11px;margin-top:4px">Min account age before inviter can send (password reset / verify bypass).</div>
673 </label>
674 <label style="font-size:12px;color:#cbd5e1">
675 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Bounce suspend %</div>
676 <input class="input" type="number" name="email_bounce_suspend_pct" value="$controls{email_bounce_suspend_pct}" min="0" max="100" style="width:100%">
677 <div style="color:#94a3b8;font-size:11px;margin-top:4px">Auto-suspend inviter at &gt;= this % bounces.</div>
678 </label>
679 <label style="font-size:12px;color:#cbd5e1">
680 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Bounce min volume</div>
681 <input class="input" type="number" name="email_bounce_min_volume" value="$controls{email_bounce_min_volume}" min="1" max="100000" style="width:100%">
682 <div style="color:#94a3b8;font-size:11px;margin-top:4px">% only triggers above this send volume (avoids 1/1 = 100%).</div>
683 </label>
684 <label style="font-size:12px;color:#cbd5e1">
685 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Abuse-report threshold</div>
686 <input class="input" type="number" name="email_abuse_suspend_threshold" value="$controls{email_abuse_suspend_threshold}" min="1" max="100" style="width:100%">
687 <div style="color:#94a3b8;font-size:11px;margin-top:4px">N reports in 30d = auto-suspend.</div>
688 </label>
689 <label style="font-size:12px;color:#cbd5e1">
690 <div style="text-transform:uppercase;letter-spacing:.05em;color:#94a3b8;font-size:10px;margin-bottom:4px">Suspend duration (days)</div>
691 <input class="input" type="number" name="email_suspend_days" value="$controls{email_suspend_days}" min="1" max="365" style="width:100%">
692 <div style="color:#94a3b8;font-size:11px;margin-top:4px">How long the auto-suspend lasts.</div>
693 </label>
694 </div>
695 <div style="margin-top:18px">
696 <button type="submit" class="btn" style="background:#5aa9ff;color:#0b1220;border:0;border-radius:8px;padding:10px 18px;font-weight:600">Save email controls</button>
697 </div>
698 </form>
699</div>~;
700
701 $wrap->render({ userinfo => $u, page_key => 'email_setup', title => 'Email Setup', body => $body });
702}
703
704#======================================================================
705# admin_email_schedules.cgi -- Schedules tab.
706#======================================================================
707sub _emx_schedules {
708 my $dbh = $db->db_connect;
709 my $act = $form->{act} || '';
710 my $flash = '';
711
712 my @EVENTS = qw(trial_end_at signup invoice_paid invoice_failed password_reset);
713 my %EVENT_DESC = (
714 trial_end_at => "Relative to companies.trial_ends_at",
715 signup => "Relative to user signup",
716 invoice_paid => "Relative to a successful invoice payment",
717 invoice_failed => "Relative to a failed invoice charge",
718 password_reset => "When a password reset is requested",
719 );
720
721 if (($ENV{REQUEST_METHOD} || '') eq 'POST') {
722 if ($act eq 'save') {
723 my $sid = ($form->{schedule_id} || 0) + 0;
724 my $off_d = ($form->{offset_days} || 0) + 0;
725 my $off_h = ($form->{offset_hours} || 0) + 0;
726 my $hr = $form->{send_at_local_hour};
727 my $hr_sql = (defined $hr && $hr =~ /^\d+$/ && $hr >= 0 && $hr <= 23) ? "'$hr'" : 'NULL';
728 my $ev = $form->{trigger_event} || 'trial_end_at';
729 $ev = 'trial_end_at' unless grep { $_ eq $ev } @EVENTS;
730 my $active = $form->{is_active} ? 1 : 0;
731 my $notes = substr($form->{notes} || '', 0, 250); $notes =~ s/'/''/g;
732 $db->db_readwrite($dbh, qq~
733 UPDATE ${DB}.email_schedules
734 SET trigger_event='$ev', offset_days='$off_d', offset_hours='$off_h',
735 send_at_local_hour=$hr_sql, is_active='$active', notes='$notes',
736 updated_by_user_id='$uid'
737 WHERE id='$sid'
738 ~, $0, __LINE__);
739 $flash = 'Schedule updated.';
740 }
741 elsif ($act eq 'add') {
742 my $tid = ($form->{template_id} || 0) + 0;
743 my $ev = $form->{trigger_event} || 'trial_end_at';
744 $ev = 'trial_end_at' unless grep { $_ eq $ev } @EVENTS;
745 my $off_d = ($form->{offset_days} || 0) + 0;
746 my $off_h = ($form->{offset_hours} || 0) + 0;
747 if ($tid) {
748 $db->db_readwrite($dbh, qq~
749 INSERT INTO ${DB}.email_schedules
750 (template_id, trigger_event, offset_days, offset_hours, is_active, created_at, updated_by_user_id)
751 VALUES ('$tid', '$ev', '$off_d', '$off_h', 1, NOW(), '$uid')
752 ~, $0, __LINE__);
753 $flash = 'Schedule added.';
754 }
755 }
756 elsif ($act eq 'delete') {
757 my $sid = ($form->{schedule_id} || 0) + 0;
758 if ($sid) {
759 $db->db_readwrite($dbh, qq~DELETE FROM ${DB}.email_schedules WHERE id='$sid'~, $0, __LINE__);
760 $flash = 'Schedule deleted.';
761 }
762 }
763 }
764
765 my @scheds = $db->db_readwrite_multiple($dbh, qq~
766 SELECT s.id, s.template_id, s.trigger_event, s.offset_days, s.offset_hours,
767 s.send_at_local_hour, s.is_active, s.notes, s.updated_at,
768 t.slug, t.name AS template_name, t.category
769 FROM ${DB}.email_schedules s
770 JOIN ${DB}.email_templates t ON t.id = s.template_id
771 ORDER BY s.trigger_event, s.offset_days, t.slug
772 ~, $0, __LINE__);
773
774 my @templates = $db->db_readwrite_multiple($dbh, qq~
775 SELECT id, slug, name, category FROM ${DB}.email_templates ORDER BY category, slug
776 ~, $0, __LINE__);
777
778 $db->db_disconnect($dbh);
779
780 print "Content-Type: text/html; charset=utf-8\r\nCache-Control: no-store\r\n\r\n";
781
782 my $flash_html = $flash ? qq~<div style="padding:10px 14px;background:rgba(34,197,94,.12);border:1px solid rgba(34,197,94,.3);border-radius:8px;color:#86efac;font-size:13px;margin-bottom:18px">$flash</div>~ : '';
783
784 my $rows = '';
785 foreach my $s (@scheds) {
786 my $hr_val = defined($s->{send_at_local_hour}) ? $s->{send_at_local_hour} : '';
787 my $checked = $s->{is_active} ? 'checked' : '';
788 my $name = _emx_h($s->{template_name});
789 my $notes = _emx_h($s->{notes} || '');
790 my $ev_opts = '';
791 foreach my $e (@EVENTS) {
792 my $sel = ($e eq $s->{trigger_event}) ? ' selected' : '';
793 $ev_opts .= qq~<option value="$e"$sel>$e</option>~;
794 }
795 my $timing = ($s->{offset_days} == 0 && $s->{offset_hours} == 0) ? 'on event'
796 : ($s->{offset_days} < 0 || $s->{offset_hours} < 0) ? "before"
797 : "after";
798 my $timing_color = $timing eq 'before' ? '#5aa9ff'
799 : $timing eq 'after' ? '#fbbf24'
800 : '#86efac';
801 my $timing_label = uc($timing);
802 $rows .= qq~
803 <tr style="border-top:1px solid rgba(255,255,255,.05)">
804 <td style="padding:14px 14px;font-size:13px;color:#e2e8f0;vertical-align:top;width:180px">
805 <div style="font-weight:600">$name</div>
806 <div style="font-size:11px;color:#94a3b8;font-family:ui-monospace,Consolas,Menlo,monospace;margin-top:4px">$s->{slug}</div>
807 </td>
808 <td style="padding:14px 14px;vertical-align:top">
809 <form method="POST" action="/admin_email_schedules.cgi" style="display:grid;grid-template-columns:1fr 1fr;gap:10px;margin:0;align-items:start">
810 <input type="hidden" name="act" value="save">
811 <input type="hidden" name="schedule_id" value="$s->{id}">
812
813 <div>
814 <label style="display:block;font-size:10px;color:#94a3b8;text-transform:uppercase;letter-spacing:.06em;margin-bottom:4px">Trigger event</label>
815 <select name="trigger_event" class="select" style="font-size:13px;padding:6px 8px;width:100%">$ev_opts</select>
816 </div>
817
818 <div>
819 <label style="display:block;font-size:10px;color:#94a3b8;text-transform:uppercase;letter-spacing:.06em;margin-bottom:4px">Notes</label>
820 <textarea class="input grow-on-focus" name="notes" rows="1" placeholder="optional note shown only on this admin page" style="font-size:13px;padding:6px 8px;width:100%;height:32px;resize:none;overflow:hidden;transition:height .15s ease;font-family:inherit;line-height:1.4" onfocus="this.style.height='120px';this.style.overflow='auto'" onblur="this.style.height='32px';this.style.overflow='hidden'">$notes</textarea>
821 </div>
822
823 <div style="display:flex;gap:10px;flex-wrap:wrap;align-items:flex-start">
824 <div style="border:1px solid rgba(90,169,255,.18);background:rgba(90,169,255,.04);border-radius:8px;padding:8px 12px">
825 <label style="display:block;font-size:10px;color:#94a3b8;text-transform:uppercase;letter-spacing:.06em;margin-bottom:4px">Offset <span style="color:$timing_color;font-weight:600">&middot; $timing_label</span></label>
826 <div style="display:flex;gap:6px;align-items:center;font-size:12px;color:#94a3b8">
827 <input class="input" name="offset_days" type="number" value="$s->{offset_days}" style="width:60px;padding:6px 8px;text-align:center"> <span>days</span>
828 <input class="input" name="offset_hours" type="number" value="$s->{offset_hours}" style="width:60px;padding:6px 8px;text-align:center"> <span>hours</span>
829 </div>
830 </div>
831 <div style="border:1px solid rgba(34,197,94,.18);background:rgba(34,197,94,.04);border-radius:8px;padding:8px 12px;display:flex;gap:14px;align-items:flex-end;flex-wrap:wrap">
832 <div>
833 <label style="display:block;font-size:10px;color:#94a3b8;text-transform:uppercase;letter-spacing:.06em;margin-bottom:4px">Send at local hour</label>
834 <div style="display:flex;gap:6px;align-items:center;font-size:12px;color:#94a3b8">
835 <input class="input" name="send_at_local_hour" type="number" min="0" max="23" value="$hr_val" placeholder="any" style="width:60px;padding:6px 8px;text-align:center"> <span>:00</span>
836 </div>
837 </div>
838 <label style="font-size:13px;color:#cbd5e1;display:flex;align-items:center;gap:8px;margin:0 0 6px 0;cursor:pointer">
839 <input type="checkbox" name="is_active" value="1" $checked style="width:16px;height:16px">
840 <span>Active</span>
841 </label>
842 </div>
843 </div>
844
845 <div style="display:flex;gap:10px;justify-content:flex-end;align-items:flex-start">
846 <button type="submit" class="btn btn-primary" style="font-size:13px;padding:8px 18px">Save changes</button>
847 <button type="button"
848 class="js-delete-schedule"
849 data-id="$s->{id}"
850 data-name="$name"
851 data-slug="$s->{slug}"
852 style="font-size:13px;padding:8px 18px;background:rgba(239,68,68,.10);color:#fca5a5;border:1px solid rgba(239,68,68,.35);border-radius:6px;cursor:pointer;font-weight:600">
853 Delete
854 </button>
855 </div>
856 </form>
857 </td>
858 </tr>~;
859 }
860
861 my $tpl_opts = '';
862 foreach my $t (@templates) {
863 my $n = _emx_h($t->{name});
864 $tpl_opts .= qq~<option value="$t->{id}">[$t->{category}] $n ($t->{slug})</option>~;
865 }
866 my $ev_opts = '';
867 foreach my $e (@EVENTS) {
868 my $desc = _emx_h($EVENT_DESC{$e});
869 $ev_opts .= qq~<option value="$e">$e &ndash; $desc</option>~;
870 }
871
872 my $tabs_html = _emx_setup_tabs('schedules');
873
874 my $body = qq~
875<style>
876 /* ---------- Confirmation modal: in-app, dark theme, animated ---------- */
877 .cmodal-back {
878 position: fixed; inset: 0; z-index: 9000;
879 background: rgba(8, 10, 16, .75);
880 backdrop-filter: blur(4px);
881 -webkit-backdrop-filter: blur(4px);
882 display: none; align-items: center; justify-content: center;
883 padding: 24px;
884 opacity: 0;
885 transition: opacity .18s ease;
886 }
887 .cmodal-back.is-open { display: flex; opacity: 1; }
888 .cmodal {
889 width: 100%; max-width: 460px;
890 background: linear-gradient(180deg, #161b29 0%, #0d1119 100%);
891 border: 1px solid rgba(255,255,255,.10);
892 border-radius: 16px;
893 box-shadow: 0 24px 70px rgba(0,0,0,.55), 0 0 0 1px rgba(255,255,255,.02) inset;
894 overflow: hidden;
895 transform: translateY(8px) scale(.98);
896 transition: transform .18s ease;
897 }
898 .cmodal-back.is-open .cmodal { transform: translateY(0) scale(1); }
899 .cmodal-head {
900 padding: 22px 24px 14px;
901 display: flex; align-items: flex-start; gap: 14px;
902 }
903 .cmodal-icon {
904 flex: 0 0 auto; width: 40px; height: 40px;
905 border-radius: 10px;
906 background: linear-gradient(135deg, rgba(239,68,68,.20), rgba(239,68,68,.08));
907 border: 1px solid rgba(239,68,68,.35);
908 display: flex; align-items: center; justify-content: center;
909 color: #fca5a5;
910 }
911 .cmodal-titlewrap { flex: 1; }
912 .cmodal-title { font-size: 17px; font-weight: 700; color: #f1f5f9; line-height: 1.3; margin: 4px 0 0; }
913 .cmodal-body {
914 padding: 0 24px 16px 78px;
915 font-size: 13.5px; color: #cbd5e1; line-height: 1.6;
916 }
917 .cmodal-body strong { color: #e2e8f0; }
918 .cmodal-body .cmodal-target {
919 display: inline-flex; gap: 8px; align-items: center;
920 margin-top: 10px;
921 padding: 8px 12px;
922 background: rgba(255,255,255,.03);
923 border: 1px solid rgba(255,255,255,.06);
924 border-radius: 8px;
925 font-size: 12.5px;
926 }
927 .cmodal-body .cmodal-target code {
928 font-family: ui-monospace,Consolas,Menlo,monospace;
929 font-size: 11.5px; color: #c4b5fd;
930 }
931 .cmodal-foot {
932 padding: 14px 22px 22px;
933 display: flex; justify-content: flex-end; gap: 10px;
934 background: rgba(0,0,0,.18);
935 border-top: 1px solid rgba(255,255,255,.05);
936 }
937 .cmodal-btn {
938 border: 0; border-radius: 9px;
939 padding: 10px 18px;
940 font-size: 13.5px; font-weight: 600;
941 cursor: pointer;
942 transition: background .12s, transform .08s;
943 font-family: inherit;
944 }
945 .cmodal-btn:active { transform: translateY(1px); }
946 .cmodal-btn-cancel {
947 background: rgba(255,255,255,.06);
948 color: #cbd5e1;
949 border: 1px solid rgba(255,255,255,.10);
950 }
951 .cmodal-btn-cancel:hover { background: rgba(255,255,255,.10); }
952 .cmodal-btn-danger {
953 background: linear-gradient(180deg, #dc2626, #b91c1c);
954 color: #fff;
955 border: 1px solid rgba(127,29,29,.6);
956 box-shadow: 0 1px 0 rgba(255,255,255,.10) inset, 0 6px 16px rgba(220,38,38,.30);
957 }
958 .cmodal-btn-danger:hover { background: linear-gradient(180deg, #ef4444, #dc2626); }
959</style>
960
961<div class="page-pad">
962 <h1 style="margin:0 0 6px;font-size:28px;color:#fff">Email Setup</h1>
963 <p style="color:#94a3b8;margin:0 0 18px;font-size:14px">Templates, schedules, and spam-protection controls.</p>
964 $tabs_html
965 $flash_html
966 <h2 style="font-size:18px;color:#fff;margin:0 0 6px">Schedules</h2>
967 <p style="color:#94a3b8;margin:0 0 14px;font-size:13px">When each lifecycle email fires. Negative offset = before the trigger event, positive = after.</p>
968
969 <div style="border:1px solid rgba(255,255,255,.08);border-radius:12px;overflow:hidden;background:rgba(20,20,30,.4);margin-bottom:32px">
970 <table style="width:100%;border-collapse:collapse">
971 <thead><tr>
972 <th style="padding:12px 14px;text-align:left;font-size:10.5px;color:#94a3b8;text-transform:uppercase;letter-spacing:.08em;width:180px">Template</th>
973 <th style="padding:12px 14px;text-align:left;font-size:10.5px;color:#94a3b8;text-transform:uppercase;letter-spacing:.08em">Trigger + offset</th>
974 </tr></thead>
975 <tbody>$rows</tbody>
976 </table>
977 </div>
978
979 <h2 style="font-size:18px;color:#fff;margin:0 0 14px">Add new schedule</h2>
980 <form method="POST" action="/admin_email_schedules.cgi" style="display:grid;grid-template-columns:1fr 1fr 100px 100px auto;gap:10px;align-items:end;padding:16px;border:1px solid rgba(91,33,182,.30);background:rgba(91,33,182,.05);border-radius:10px">
981 <input type="hidden" name="act" value="add">
982 <div><label style="display:block;font-size:11px;color:#cbd5e1;margin-bottom:4px;text-transform:uppercase">Template</label>
983 <select name="template_id" class="select" required>$tpl_opts</select></div>
984 <div><label style="display:block;font-size:11px;color:#cbd5e1;margin-bottom:4px;text-transform:uppercase">Trigger</label>
985 <select name="trigger_event" class="select">$ev_opts</select></div>
986 <div><label style="display:block;font-size:11px;color:#cbd5e1;margin-bottom:4px;text-transform:uppercase">Days</label>
987 <input class="input" name="offset_days" type="number" value="0" style="text-align:center"></div>
988 <div><label style="display:block;font-size:11px;color:#cbd5e1;margin-bottom:4px;text-transform:uppercase">Hours</label>
989 <input class="input" name="offset_hours" type="number" value="0" style="text-align:center"></div>
990 <div><button type="submit" class="btn btn-primary">+ Add schedule</button></div>
991 </form>
992</div>
993
994<!-- ===== Confirmation modal (hidden by default) ===== -->
995<div class="cmodal-back" id="cmodal-back" role="dialog" aria-modal="true" aria-labelledby="cmodal-title">
996 <div class="cmodal">
997 <div class="cmodal-head">
998 <div class="cmodal-icon">
999 <svg viewBox="0 0 24 24" width="22" height="22" fill="none" stroke="currentColor" stroke-width="2" stroke-linecap="round" stroke-linejoin="round">
1000 <path d="M3 6h18"/><path d="M8 6V4a2 2 0 0 1 2-2h4a2 2 0 0 1 2 2v2"/>
1001 <path d="M19 6l-1 14a2 2 0 0 1-2 2H8a2 2 0 0 1-2-2L5 6"/>
1002 <line x1="10" y1="11" x2="10" y2="17"/><line x1="14" y1="11" x2="14" y2="17"/>
1003 </svg>
1004 </div>
1005 <div class="cmodal-titlewrap">
1006 <div style="font-size:11px;text-transform:uppercase;letter-spacing:.08em;color:#fca5a5;font-weight:600">Confirm deletion</div>
1007 <h2 class="cmodal-title" id="cmodal-title">Delete this schedule?</h2>
1008 </div>
1009 </div>
1010 <div class="cmodal-body">
1011 The template itself stays in place &mdash; only this scheduled send rule is removed. Other schedules for the same template are unaffected.
1012 <div class="cmodal-target" id="cmodal-target">
1013 <svg viewBox="0 0 24 24" width="14" height="14" fill="none" stroke="#94a3b8" stroke-width="2"><circle cx="12" cy="12" r="10"/><polyline points="12 6 12 12 16 14"/></svg>
1014 <span id="cmodal-target-name" style="color:#e2e8f0;font-weight:500"></span>
1015 <code id="cmodal-target-slug"></code>
1016 </div>
1017 </div>
1018 <div class="cmodal-foot">
1019 <button type="button" class="cmodal-btn cmodal-btn-cancel" id="cmodal-cancel">Cancel</button>
1020 <button type="button" class="cmodal-btn cmodal-btn-danger" id="cmodal-confirm">Delete schedule</button>
1021 </div>
1022 </div>
1023</div>
1024
1025<!-- Hidden form that the modal submits when the user confirms -->
1026<form id="cmodal-form" method="POST" action="/admin_email_schedules.cgi" style="display:none">
1027 <input type="hidden" name="act" value="delete">
1028 <input type="hidden" name="schedule_id" id="cmodal-form-id" value="">
1029</form>
1030
1031<script>
1032(function () {
1033 var back = document.getElementById('cmodal-back');
1034 var nameEl = document.getElementById('cmodal-target-name');
1035 var slugEl = document.getElementById('cmodal-target-slug');
1036 var idEl = document.getElementById('cmodal-form-id');
1037 var form = document.getElementById('cmodal-form');
1038 var btnC = document.getElementById('cmodal-cancel');
1039 var btnD = document.getElementById('cmodal-confirm');
1040
1041 function open(name, slug, id) {
1042 nameEl.textContent = name;
1043 slugEl.textContent = slug;
1044 idEl.value = id;
1045 back.classList.add('is-open');
1046 document.body.style.overflow = 'hidden';
1047 setTimeout(function(){ btnC.focus(); }, 50);
1048 }
1049 function close() {
1050 back.classList.remove('is-open');
1051 document.body.style.overflow = '';
1052 }
1053 document.querySelectorAll('.js-delete-schedule').forEach(function (b) {
1054 b.addEventListener('click', function (ev) {
1055 ev.preventDefault();
1056 open(b.getAttribute('data-name'), b.getAttribute('data-slug'), b.getAttribute('data-id'));
1057 });
1058 });
1059 btnC.addEventListener('click', close);
1060 btnD.addEventListener('click', function () { form.submit(); });
1061 back.addEventListener('click', function (ev) { if (ev.target === back) close(); });
1062 document.addEventListener('keydown', function (ev) {
1063 if (ev.key === 'Escape' && back.classList.contains('is-open')) close();
1064 });
1065})();
1066</script>~;
1067
1068 $wrap->render({ userinfo => $u, page_key => 'email_setup', title => 'Email Setup', body => $body });
1069}