#!/usr/bin/perl
BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
use MIME::Lite;
use Mail::Sendmail;
require cfg ;
print "Content-type: text/html\n\n";
&today ;
our $debug = 1 ;
#------------------------------------------------------------------------------------------
# https://aisadmin.co.za/cgi-bin/aisa/scripts/admin/oneoff/sendmailv5.pl
use CGI::Carp qw(fatalsToBrowser);
# my $message = "Hi Kre8IT,
#
# Your match analysis is now complete and ready for review in your analytics channel.
#
# Match details:
# Date: 2026-02-02
# Event name: K8Test
# Sport: Rugby
# Age group: u15
# Coding type: Primary
#
# You can now log in and begin reviewing the analysis, clips, and insights with your team.
#
# 
AI Sport Africa Analytics
#
# If you have any questions or would like feedback adjusted or expanded, please don’t hesitate to get in touch.
#
# Kind regards,
# AI Sport Africa Analytics
# $email_analytics" ;
$email{$event_id}{$row_cnt}{date} = '2026-02-02' ;
$event_name = 'K8TEST' ;
$sport = 'Rugby' ;
$age_group = 'u/15' ;
$coding_type = 'Primary' ;
my $hmsg = qq~Hi Kre8IT,
Your match analysis is now complete and ready for review in your analytics channel.~;
my $tmsg = qq~| Match details |
|---|
| Date: | $email{$event_id}{$row_cnt}{date} |
| Event name: | $event_name |
| Sport: | $sport |
| Age group: | $age_group |
| Coding type: | $coding_type |
~ ;
our $display_notif_msg = qq~You can now log in and begin reviewing the analysis, clips, and insights with your team.
AI Sport Africa Analytics
If you have any questions or would like feedback adjusted or expanded, please don’t hesitate to get in touch.
AI Sport Africa Analytics
$email_analytics
~ ;
&common_send_smtp_mail('',$email_it_1,'','',"Match Analysis Event 1001 Fixture 1",$hmsg,$tmsg,'html') ;
exit ;
#------------------------------------------------------------------------------------------
use today ;
use common ;
1;