Inspired by my work in support.
package FixUserIssues; foreach $user (@organization) { use Clue::Bat; while ($user->{IQ} < 100) { Clue::Bat::beat($user) } } 1;
Implementation of Clue::Bat is left to the imagination. ;-)
radiantmatrix
require General::Disclaimer;
s//2fde04abe76c036c9074586c1/; while(m/(.)/g){print substr(' ,JPacehklnorstu',hex($1),1)}
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: package FixUserIssues;
by Tanktalus (Canon) on Apr 06, 2005 at 15:44 UTC | |
|
Re: package FixUserIssues;
by NateTut (Deacon) on Apr 06, 2005 at 18:53 UTC | |
|
Re: package FixUserIssues;
by zentara (Cardinal) on Apr 07, 2005 at 11:44 UTC | |
by insaniac (Friar) on Apr 22, 2005 at 10:45 UTC | |
|
Re: package FixUserIssues;
by cog (Parson) on Apr 06, 2005 at 16:33 UTC | |
by radiantmatrix (Parson) on Apr 06, 2005 at 18:34 UTC | |
|
Re: package FixUserIssues;
by ciderpunx (Vicar) on Apr 14, 2005 at 13:24 UTC | |
|
Re: package FixUserIssues;
by bibliophile (Prior) on Apr 12, 2005 at 14:55 UTC |