|
Joined: Feb 2001
Posts: 497
Enthusiast
|
Enthusiast
Joined: Feb 2001
Posts: 497 |
yes, i have a 6.2 ubb.classic i need a script or a hack to send automaticly a mail on his birthday ... and yes, i have your calendar hack (birthday hack). ------------------------------------- ich will in mein 6.2 einen hack einbauen oder ein script wo am geburtstag eines users eine mail versand wird (automatisch)! kalender hack ist schon eingebaut. wer kann mir helfen ???
|
|
|
|
Joined: Mar 2000
Posts: 21,079 Likes: 3
I type Like navaho
|
I type Like navaho
Joined: Mar 2000
Posts: 21,079 Likes: 3 |
hmm.. I looked high and low for one, I thought it was a classic mod but I guess it was only for threads :\
|
|
|
|
Joined: Feb 2001
Posts: 497
Enthusiast
|
Enthusiast
Joined: Feb 2001
Posts: 497 |
ok, but i need it ! .... thinking ... if i will read the member files and the membertotal file - first i start the new script to read alle files ... to the max counter from the membertotal file ... in every memberfile i read the line 34 (the bisthday, like: 19741005|yes) ... is this date = today i start a mail to the memberfile line 4 (mail adress) ... ... this script starts bei a cron job at night ... BUT: how can i read a file like: membertotal.cgi
|
|
|
|
Joined: Feb 2001
Posts: 497
Enthusiast
|
Enthusiast
Joined: Feb 2001
Posts: 497 |
here i am again ... ok i do it. inside ultimatebb near line 770: if ($ubb eq 'mail') { &RequireCode("$vars_config{CGIPath}/ubb_birthday.cgi"); &mail; exit(0); }
-> and this is the new ubb_birthday.cgi: # UBB Public Forum BIRTHDAY MAIL : Perl Code # by me ... robert zernisch
&RequireCode("$vars_config{CGIPath}/ubb_lib_posting.cgi"); &RequireCode("$vars_config{CGIPath}/ubb_lib_2.cgi");
sub birthday {
# set date/time @LG_real_date = &GetDateTime; my @LG_check_date = split(/\-/, $LG_real_date[13]);
# this is today in: day.month. $the_checker = "$LG_check_date[1].$LG_check_date[0]."; $the_mail_ko = "$LG_check_date[1].$LG_check_date[0].$LG_check_date[2]";
#print $the_checker; #print "<br><br><br>";
#LG grab member list @LG_members_array = &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi");
#LG set counters to zero $LG_counter = 0; $LG_total_mem = 0;
#LG look for the members foreach (@LG_members_array) { ($LG_usertmp, $LG_usernumtmp) = split(/\|\!\!\|/, $_); chomp($LG_usernumtmp); @LG_user_array = &OpenProfile($LG_usernumtmp);
#LG birthday inside? print ... name, birthday, mail if ($LG_user_array[32] != ""){
my @LG_birthday = split(/\|/, $LG_user_array[32]); my $LG_year = int($LG_birthday[0] / 10000); my $LG_month = sprintf("%0.2d", int($LG_birthday[0] / 100) - $LG_year * 100); my $LG_day = sprintf("%0.2d", $LG_birthday[0] - ($LG_year * 10000 + $LG_month * 100)); $LG_date = "$LG_day.$LG_month.";
### name day.month. mailadress ### $LG_user_array[15] $LG_date $LG_user_array[2];
my @LG_birthmail = split(/\@/, $LG_user_array[2]); $LG_birthmail_all = $LG_birthmail[0] . "\@" . $LG_birthmail[1];
if ($LG_date eq $the_checker){ ################################################################ my $subject = "Herzlichen Glückwunsch zum Geburtstag $LG_user_array[15]!"; my $send_from = "info\@dresden-web.de"; my $send_to = $LG_birthmail_all;
# mailcontent my $content = " Alles Gute zum Geburtstag ... $LG_user_array[15].\n Die Community www.dresden-web.de wünscht dir einen schönen Geburtstag\n und alles Gute heute am $the_mail_ko. Das ist dein Tag.\n\n\n ";
&RequireVars("$vars_config{VariablesPath}/vars_wordlets_email.cgi"); &RequireCode("$vars_config{CGIPath}/ubb_lib_mail.cgi");
&ubb_mail("$send_to", "$send_from", "$send_from", "$send_from", "$subject", "$content", "", ""); print "MAIL: $send_to | $send_from | $subject | $content <br><br>"; ################################################################ }
}
$LG_total_mem++; } }
# DANGER: Do not remove the next line! 1; # $Id: ubb_birthday.cgi,v 1.0 2006/11/04 16:00:00 cvscapps Exp $
-> start it ... ../cgi-bin/ultimatebb?ubb=mail every day you start this ... u send a mail !!!
Last edited by melder; 11/04/2006 5:14 PM.
|
|
|
|
Joined: Mar 2000
Posts: 21,079 Likes: 3
I type Like navaho
|
I type Like navaho
Joined: Mar 2000
Posts: 21,079 Likes: 3 |
It looks ok, is it working for you?
|
|
|
|
Joined: Feb 2001
Posts: 497
Enthusiast
|
Enthusiast
Joined: Feb 2001
Posts: 497 |
yes it works ... i start this script with a cron job daily ... perfect! im the boss ...
|
|
|
Donate to UBBDev today to help aid in Operational, Server and Script Maintenance, and Development costs.
Please also see our parent organization VNC Web Services if you're in the need of a new UBB.threads Install or Upgrade, Site/Server Migrations, or Security and Coding Services.
|
|
Posts: 1,157
Joined: July 2001
|
|
Forums63
Topics37,573
Posts293,925
Members13,849
|
Most Online5,166 Sep 15th, 2019
|
|
Currently Online
Topics Created
Posts Made
Users Online
Birthdays
|
|
|
|