[oak perl] Perl scripts.....

[George Woolley]

Mike,
Any chance you'd give a lightning talk on this script?
It could consist of:
   * something like you say in your post before
     the listing
   * followed by a friendly smile 
   * followed by the words "Are there any questions?"
          or if you prefer to not answer questions
     followed by the words "Thank you."
Or whatever. 
But it must be under 5 minutes or it's not a lightning talk.

But the truth is you would likely not escape questions
(and commentary too) 
because these would come at a break or after the meeting,
if you do handle them right after the talk.
Oh, well!
    --- George

All,
Anyone else want to (or willing to) give a lightning talk?
Maximum: 5 minutes. 
Minumum: none. Really, as short as you want.
    --- George 
   

On Saturday 30 November 2002 10:17 pm, M. Lewis wrote:
> I told George of this script a couple of days ago. He thought it was a
> good practical use for Perl.
>
> My G/F is Jewish. She has a hard time remembering to light her candles
> on Fridays. I had an equally hard time remembering to remind her. Enter
> perl....
>
> Again, I setup a cron job like so:
>
> 30 16 * * 5 /home/cajun/HOME/perl/candles/candles.pl
>
> Then a short Perl script to do the work. It sends a text message to her
> cell phone at 430pm on Fridays. It also sends the same reminder to me
> just so I know it worked. (I munged the phone numbers to protect the
> innocent):
>
> #!/usr/bin/perl -w
> use strict;
>
> use MIME::Lite;
>
> my @recipients = qw( 4155551212 at mobile.mycingular.com
>                      5105551212 at mobile.mycingular.com
>                    );
>
> my $wait_time = 900;  # 900 seconds is 15 minutes
> my $debug = 0;
>
> my @messages = (
>        "It's Friday. It's candle day. Don't forget...",
>        "It's going to be dark soon. Remember it is candle day...",
>        "Last warning. Candle day..."
> );
>
> my $total = @messages;
> my $index = 1;
>
> foreach (@messages){
>    &send_message($_);
>    if ($debug) {print "Index is: $index\n"};
>    if ($index < $total){
>       if ($debug) {print "Sleeping $wait_time seconds\n"};
>       sleep $wait_time;
>       $index++;
>    }
> }
>
> sub send_message{
>     if ($debug) {print "Sending message: $_\n"};
>     my $msg = MIME::Lite->new(
>                 From    =>'cajun at cajuninc.com',
>                 BCc     =>"@recipients",
>                 Subject =>"",
>                 Type    =>'TEXT',
>                 Data    =>$_
>                 );
> $msg->send;
> }