Subversion Repositories VORC

#!/usr/bin/perl

use strict;

use cPanelUserConfig;

use RollerCon;

use tableViewer;

use DateTime;

use HTML::Tiny;

my $h = HTML::Tiny->new( mode => 'html' );

my $dt = DateTime->today;

my $day = $dt->day_name;

my $date = $dt->date;

my $dbh = getDBConnection ();

my $DEPT = getDepartments ();

my $class_name;

my $cnhan = $dbh->prepare ("select id, name from class where year(date) = year(now())");

$cnhan->execute ();

while (my ($id, $name) = $cnhan->fetchrow_array ()) { $class_name->{$id} = $name; }

my $sth1 = $dbh->prepare("select distinct RCid from v_class_signup where year(date) = year(now()) order by RCid");

my $sth2 = $dbh->prepare("select distinct id from v_class_signup where year(date) = year(now()) and RCid = ? order by id");

$sth1->execute();

while (my ($RCid) = $sth1->fetchrow_array()) {

	my $email = getUserEmail($RCid);

	my $dname = getUserDerbyName($RCid);

	my @classes = ();

	$sth2->execute($RCid);

	while (my ($C) = $sth2->fetchrow_array()) {

		push @classes, $C;

	}

	my $message = $h->p ("Greetings $dname,",

	                     "Thanks for taking classes at RollerCon 2023. Please take a minute to give us some feedback on the class(es) you took. To find out more about how we use this info, check out ".$h->a ({ href => "https://rollercon.com/about/mvp-star-ratings/" }, "RollerCon MVP Star Ratings"),

	                     "Thanks again and see you next year!",

	                     "Here are the links to review the classes that we have you registered for:"

	                    );

  $message .= $h->ul ([ map { $h->li ($h->a ({ href => "https://volunteers.rollercon.com/schedule/survey.pl?classid=$_" }, $class_name->{$_})) } @classes ]);

  $message .= $h->p (

    $h->i ("(Note: We may be missing some 'walk up' attendees of some classes.  If you don't see a link to a class you took, that's ok.)"),

    $h->br,

    "--RollerCon HQ".$h->br.'rollercon@gmail.com'.$h->br."rollercon.com"

  );

#	$message .= "\n$hours TOTAL HOURS\n\nAgain, thank you for volunteering at RollerCon.\n\n-RollerCon Leadership Team";

	my $subject = $dname."'s RollerCon MVP Class Surveys";

	print "Emailing $dname ($email)...\n";

	use RCMailer;

	EmailUser($email, $subject, $message);

	sleep (15);

}

print "\ndone.\n\n";