Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Keep myself off PerlMonks

by ZZamboni (Curate)
on Jun 15, 2001 at 00:22 UTC ( #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; }

--ZZamboni

Update: fixed typo: s/spend/spent/

Comment on Keep myself off PerlMonks
Download Code
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.

    -xPhase

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 ! :)

    Greetz
    Beatnik
    ... Quidquid perl dictum sit, altum viditur.
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://88608]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2014-09-17 19:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (98 votes), past polls