Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Keep myself off PerlMonks

by ZZamboni (Curate)
on Jun 15, 2001 at 00:22 UTC ( [id://88608] : CUFP . print w/replies, xml ) Need Help??

When I have a lot of work (like lately), PerlMonks is a curse, because I find it so interesting to hang around here that I end up spending too little time working. So I wrote this little program to remind myself of what I should be doing :-)

A couple of points:

  • Sorry for the use of system to send email. But I spent a whole 5 minutes writing this script, and I really didn't feel like looking up Mail::Internet or whatever other module might have done the job.
  • I made it wait and loop itself instead of putting it in crontab to be able to have the $DISPLAY variable set.
Of course, writing this script and posting it here was just another excuse for not getting back to work. So here it is:
#!/usr/local/perl-5.6.0/bin/perl -w use strict; use PerlMonks; use PerlMonks::Users; my $n=PerlMonks::Users->new; while(1) { my %u=$n->users; if (exists($u{ZZamboni})) { system(q(echo Get to work | /usr/bin/mailx -s "Shouldn +'t you be working on your thesis?" zamboni)); if ($ENV{DISPLAY}) { system(q(wmessage -t "What are you doing?" --c +enter "Get back to work!")); } } sleep 300; }


Update: fixed typo: s/spend/spent/

Replies are listed 'Best First'.
Re: Keep myself off PerlMonks
by t0mas (Priest) on Jun 15, 2001 at 16:33 UTC
    A very cool bit of code ZZamboni. I couldn't resist convering it to the wierd world of Win32 :-)
    #!c:/perl/bin/perl -w use strict; use Win32::API; use PerlMonks; use PerlMonks::Users; my $n=PerlMonks::Users->new; while(1) { my %u=$n->users; if (exists($u{t0mas})) { MessageBox("What are you doing?","Get back to work!"); } sleep 300; } sub MessageBox { my ($caption,$message)=@_; my $MB_OKCANCEL = 0x00000001; my $MB_ICONERROR = 0x00000010; my $Box = new Win32::API( "user32", "MessageBoxA", "IPPN", "I"); $Box->Call(0,$message,$caption,$MB_ICONERROR|$MB_OKCANCEL); }

    /brother t0mas
Re: Keep myself off PerlMonks
by xphase_work (Pilgrim) on Jun 15, 2001 at 00:40 UTC
    This is a great idea :) I'm sure there are quite a few people, including myself, that will benefit from this. Speaking of work, I should probably get back to it.


Re: Keep myself off PerlMonks
by Beatnik (Parson) on Jun 15, 2001 at 01:20 UTC
    I have similar addictions at the moment. I forced myself into staying away from IRC while I'm studying for/taking my finals, but now I get distracted by Perlmonks... Help ! I'm a community junkie ! :)

    ... Quidquid perl dictum sit, altum viditur.