Subversion Repositories VORC

Rev

Rev 121 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 121 Rev 158
Line 9... Line 9...
9 
my $h = HTML::Tiny->new( mode => 'html' );
 9 
my $h = HTML::Tiny->new( mode => 'html' );
Line 10... Line 10...
10 
 
 10 
 
11 
my $dt = DateTime->today;
 11 
my $dt = DateTime->today;
12 
my $day = $dt->day_name;
 12 
my $day = $dt->day_name;
- 
 
 13 
my $date = $dt->date;
Line 13... Line 14...
13 
my $date = $dt->date;
 14 
my $year = $dt->year;
14 
 
 15 
 
Line 15... Line 16...
15 
my $dbh = getDBConnection ();
 16 
my $dbh = getDBConnection ();
Line 33... Line 34...
33 
	while (my ($C) = $sth2->fetchrow_array()) {
 34 
	while (my ($C) = $sth2->fetchrow_array()) {
34 
		push @classes, $C;
 35 
		push @classes, $C;
35 
	}
 36 
	}
Line 36... Line 37...
36
37
37 
	my $message = $h->p ("Greetings $dname,",
 38 
	my $message = $h->p ("Greetings $dname,",
38 
	                     "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"),
 39 
	                     "Thanks for taking classes at RollerCon $year. 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"),
39 
	                     "Thanks again and see you next year!",
 40 
	                     "Thanks again and see you next year!",
40 
	                     "Here are the links to review the classes that we have you registered for:"
 41 
	                     "Here are the links to review the classes that we have you registered for:"
Line 41... Line 42...
41 
	                    );
 42 
	                    );
Line 58... Line 59...
58 
	use RCMailer;
 59 
	use RCMailer;
59 
	EmailUser($email, $subject, $message);
 60 
	EmailUser($email, $subject, $message);
60 
	sleep (15);
 61 
	sleep (15);
61 
}
 62 
}
Line 62... Line -...
62 
 
 - 
 
63 
print "\ndone.\n\n";
 63 
 
- 
 
 64 
print "\ndone.\n\n";