http://qs1969.pair.com?node_id=87123


in reply to Re: New Monks
in thread New Monks

Although there is no auto responder currently implemented in the perlmonks (almost :-) Everything Engine all that you need to do is add some code like this:

my $mail_prog = '/usr/sbin/sendmail'; # now assuning $new_user_email is the new user's email # and our text is in a file /welcome/message.txt # all we need to do is trigger this code concurrent with # the creation of a new user (when we get the email address) if ($new_user) { open TEXT, "</welcome/message.txt" or die "Oops $!\n"; local $/; my $welcome = <TEXT>; close TEXT; open MAIL, "|$mail_prog -t" or die "Oops $!\n";; print MAIL "To: $new_user_email\n"; print MAIL "Reply-to: <nobody\@perlmonks.com>\n"; print MAIL "From: Pelmonks\n"; print MAIL "Subject: Welcome to Pelmonks\n"; print MAIL "$welcome\n"; close MAIL; }

Have edited the opening text to be more accurate of docs current status.

I agree 13 is totally arbitrary, chosen only because I liked all the biblical conotations: 13 at the last supper, Adam, saints, monks.... Of the nodes listed some are IMHO far more useful than others but to avoid causing offence I just globbed a few in current rank order and linked to all the others. I would pick merlyn's and Ovid's home nodes as amongst the most useful to someone new to perl. By highlighting a few the idea was to incite a bit of interest. If you click on the first one merlyn you should be duly impressed and hopefully inspired to explore further.

Chipmunk (14) has also noted that the list will change ;-) Practically it would be quite easy to have a short script with an SQL query auto-update this text, just as it does on the saints in our book node. Add it to the crontab and...there is no problem. Alternatively you could bite the bullet and nominate the best home nodes for New Monks (whatever you think that means) or do as you suggest and drop the personal glory for the current top 13 by just linking to Saints in our book

cheers

tachyon