http://www.perlmonks.org?node_id=88608

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:

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