<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

# (c) CWZ, LLC

# End The Round

use strict;
use lib '.';
use Net::SMTP::SSL;
use CWZ;

my $subscribersRef = qDb_ar("SELECT email FROM Account WHERE subbed = 1 AND id &gt; 31 AND coins &gt; 999");

# Iterate over the result set and send emails
foreach my $subscriber (@$subscribersRef) {
  my $email = $subscriber-&gt;{email};

my $sha = qDb_hr("SELECT SHA(email) AS enc, login FROM Account WHERE email = ?", $email);
my $enc = $sha-&gt;{enc};
my $login = $sha-&gt;{login};

# SMTP settings provided by Amazon SES
my $smtp_host = 'email-smtp.us-east-1.amazonaws.com';
my $smtp_port = 465;
my $smtp_username = 'AKIAWSVZAZU4RZLJZM6E';
my $smtp_password = 'BPuvCv4CrejV8P8C8plyWpnmKWMXguh5XIE1jI2AfAcu';

# Email details
my $to = $email;
my $from = 'Crypto Warz Team &lt;support@crypto-warz.com&gt;';
my $subject = 'Free Coins - Thank You For Being An Early Subscriber';
my $message = '&lt;div style="width:100%;text-align:center;font-size:0px;"&gt;1000 Coins added to your account&lt;/div&gt;
		&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"&gt;
		&lt;html&gt;
		&lt;head&gt;
			&lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8"&gt;
			&lt;meta name="viewport" content="width=device-width, initial-scale=1"&gt;
		  	&lt;meta http-equiv="X-UA-Compatible" content="IE=edge"&gt;
		  	&lt;meta name="format-detection" content="telephone=no"&gt;
			&lt;title&gt;1000 Coins added to your account&lt;/title&gt;

		&lt;/head&gt;
		&lt;body bgcolor="#111;"&gt;
		&lt;div align="center" style="background-color:#111;"&gt;


			&lt;table id="email-custom-thankyou" width="660" align="center" border="0" cellspacing="0" cellpadding="0" style="border-collapse:collapse; mso-table-lspace:0pt; mso-table-rspace:0pt;background-color:#071e22;"&gt;
				&lt;tr&gt;
					&lt;td&gt;
						&lt;table width="660" class="resp-full-table" border="0" cellspacing="0" cellpadding="0" style="border-collapse:collapse; mso-table-lspace:0pt; mso-table-rspace:0pt;"&gt;
							&lt;tr&gt;
								&lt;td&gt;
									&lt;a href="https://crypto-warz.com"&gt;&lt;img src="https://crypto-warz.com/images/email/header.jpg" alt="crypto warz banner" /&gt;&lt;/a&gt;
								&lt;/td&gt;
							&lt;/tr&gt;
		                    &lt;/table&gt;
					&lt;/td&gt;

				&lt;/tr&gt;
			&lt;/table&gt;


		                    &lt;!-- Begin Message --&gt;
			&lt;table id="registration-thank-you" width="570" align="center" style="background-color: #000418;padding:25px 45px;color: #fff;font-family: arial, sans-serif;font-size:16px;" border="0" cellspacing="0" cellpadding="0"&gt;
				&lt;tr&gt;
					&lt;td&gt;
						&lt;table width="570" class="resp-full-table" align="center" border="0" cellspacing="0" cellpadding="0"&gt;
							&lt;tr&gt;
								&lt;td width="100%"&gt;
                                &lt;h2 style="color:#fff"&gt;A Gift of Coins for being an early subscriber!&lt;/h2&gt;
		                            &lt;p style="color:#fff;margin:20px 0 10px;"&gt;Nearly 150 players have joined the game. I know its a bit complicated so as a thank you, we have deposited 1000 coins into your account.&lt;/p&gt;
                                    &lt;p style="color:#fff"&gt;For those that do not know, real crypto prizes will be given to the top 3 squad founders at when the round ends on July 30th at 7PM EST. Take advantage of these credits to unlock additional characters, link up with other players and dominate the field.&lt;/p&gt;
                                    &lt;img src="https://crypto-warz.com/images/email/coins.jpg" width="570" height="397" alt="handing over coins" /&gt;
                                    &lt;p style="color:#fff"&gt;Don\'t forget to join our Discord for any help, advice, and just being a part of the community&lt;/p&gt;

                                    &lt;p style="color:#fff"&gt;Good luck!&lt;/p&gt;
								&lt;/td&gt;
							&lt;/tr&gt;
						&lt;/table&gt;
					&lt;/td&gt;
				&lt;/tr&gt;
		        &lt;tr&gt;
		        	&lt;td&gt;
		            &lt;table style="width:100%;min-width:350px;color:#fff;" cellpadding="14" cellspacing="10"&gt;
						&lt;tr style="background-color: #333;"&gt;&lt;td style="width:25%"&gt;&lt;strong&gt;Username:&lt;/strong&gt; &lt;/td&gt;&lt;td&gt;' . $login . '&lt;/td&gt;&lt;/tr&gt;
		            &lt;/table&gt;
		            &lt;/td&gt;
		        &lt;/tr&gt;
		        &lt;tr&gt;
		        	&lt;td&gt;
		                &lt;a href="https://crypto-warz.com/" style="margin-top:40px;width: 100%;padding: 20px 0;display: block;background-color: #6dff5b;text-align: center;font-size: 24px;color: #111;text-decoration: none;font-weight: bold;text-transform: uppercase;"&gt;Play Now&lt;/a&gt;
		            &lt;/td&gt;
		        &lt;/tr&gt;
		        &lt;tr&gt;
		        	&lt;td style="text-align: center;padding-top: 50px;"&gt;
		                &lt;h2&gt;Learn More About Player Types&lt;/h2&gt;
		                &lt;p&gt;&lt;a style="background-color: #0037ff;display: inline-block;width: 25%;margin: 5px;padding: 10px;text-align: center;color: #fff;text-decoration: none;" href="https://crypto-warz.com/guide/#investor"&gt;Investors&lt;/a&gt; &lt;a style="background-color: #008021;display: inline-block;width: 25%;margin: 5px;padding: 10px;text-align: center;color: #fff;text-decoration: none;" href="https://crypto-warz.com/guide/#influencer"&gt;Influencers&lt;/a&gt; &lt;a style="background-color: #830000;display: inline-block;width: 25%;margin: 5px;padding: 10px;text-align: center;color: #fff;text-decoration: none;" href="https://crypto-warz.com/guide/#doubter"&gt;Doubters&lt;/a&gt;&lt;/p&gt;

		    &lt;p&gt;&lt;h2 style="margin-top: 50px;"&gt;Join the Community &lt;/h2&gt;&lt;/p&gt;&lt;p&gt;&lt;a href="https://discord.gg/96pQdwfdky"&gt;&lt;img src="https://crypto-warz.com/images/email/discord-logo.jpg" alt="discord logo" width="200" height="55"&gt;&lt;/a&gt;&lt;/p&gt;
		            &lt;/td&gt;
		        &lt;/tr&gt;
				&lt;/table&gt;
				&lt;table style="width:660px;background-color:#000;color:#fff;"&gt;
		        &lt;tr&gt;
		        	&lt;td&gt;
		        	&lt;div style="padding:35px;text-align:center;font-size:12px;"&gt;Crypto Warz | Copyright 2023. All Rights Reserved.&lt;br&gt;&lt;br&gt;&lt;a style="color:#6dff5b" href="https://crypto-warz.com/cgi/unsubscribe.cgi?pg=setting&amp;action=0&amp;token=' . $enc . '&amp;email=' . $email . '"&gt;Unsubscribe&lt;/a&gt;&lt;/div&gt;
		        	&lt;/td&gt;
		        &lt;/tr&gt;
			&lt;/table&gt;
				&lt;!-- End Message --&gt;
		&lt;/div&gt;
		&lt;/body&gt;
		&lt;/html&gt;';

		# Create the SMTP object
		my $smtp = Net::SMTP-&gt;new($smtp_host, Port =&gt; $smtp_port, SSL =&gt; 1, Debug =&gt; 1);

		# Authenticate
		$smtp-&gt;auth($smtp_username, $smtp_password) or die "Authentication failed: $!\n";

		# Compose and send the email
		$smtp-&gt;mail($from);
		$smtp-&gt;to($to);
		$smtp-&gt;data();
		$smtp-&gt;datasend("To: $to\n");
		$smtp-&gt;datasend("From: $from\n");
		$smtp-&gt;datasend("Subject: $subject\n");
		$smtp-&gt;datasend("Content-Type: text/html; charset=\"UTF-8\"\n");  # Set the content type to HTML
		$smtp-&gt;datasend("\n$message\n");
		$smtp-&gt;dataend();

		# Close the SMTP connection
		$smtp-&gt;quit;
  }
</pre></body></html>