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

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; }

--ZZamboni

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.

    -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.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2024-03-29 02:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found