Slashdot Mirror

Here is a link to a picture of a man attempting to turn himself inside out, via the sphincter. Please give me some of those nice karma whore points too. Thank you.

I am content masturbating to this

Here is a mirror of the article... http://www.mirrors.org/censoring

I am awed and inspired by the quality of Trolls and their posts. So much so, that I desire to join your ranks.

Can anyone point me in the right direction where I might find information on this subject?

And I'm supposed to post this a lot, right?

Uh. That sucks. I have attempted a subtle improvement to 'Your mother', the crackwhore. The results can be seen here.

All your base jokes are so one year ago. However, goatse.cx jokes NEVER get old.

I troll, and many of the comments you'll see in my history are full of lies-yet many also make points valuable enough to justify +5 ratings. While trolls and offtopics may not fit the editors' desires they are the way to generate interesting discussion and get people to start thinking. That's why I post misinformation and flawed logic, to make you think about why it's flawed, and by debunking it clarify the truth.

This is a goatsex link. Now let's pour some hot grits down our pants to celebrate this thread!

You know, I have been posting Goatse.cx links and ASCII art for a while now. After seeing that MPEG, however, I am thinking about stopping. That is just plain nauseating . That poor girl has some serious problems that will haunt her for years to come. I seriously doubt her ability to hold her shit. How is that sexually appealing? My new sexual ideal is an average woman with a nice, tight, never been fucked asshole. She will keep her anal virginity as I now no longer have any type of anal sex fantasies tucked away anywhere in my brain...

Hope you're proud of yourself!

*BSD is dying
Yet another crippling bombshell hit the beleaguered *BSD community when last month IDC confirmed that *BSD accounts for less than a fraction of 1 percent of all servers. Coming on the heels of the latest Netcraft survey which plainly states that *BSD has lost more market share, this news serves to reinforce what we've known all along. *BSD is collapsing in complete disarray, as further exemplified by falling dead last in the recent Kreskin test.

You don't need to be a Kreskin to predict *BSD's future. The hand writing is on the wall: *BSD faces a bleak future. In fact there won't be any future at all for *BSD because *BSD is dying. Things are looking very bad for *BSD. As many of us are already aware, *BSD continues to lose market share. Red ink flows like a river of blood. FreeBSDis the most endangered of them all.

Let's keep to the facts and look at the numbers.

OpenBSD leader Theo states that there are 7000 users of OpenBSD. How many users of NetBSD are there? Let's see. The number of OpenBSD versus NetBSD posts on Usenet is roughly in ratio of 5 to 1. Therefore there are about 7000/5 = 1400 NetBSD users. BSD/OS posts on Usenet are about half of the volume of NetBSD posts. Therefore there are about 700 users of BSD/OS. Arecent article put FreeBSD at about 80 percent of the *BSD market. Therefore there are (7000+1400+700)*4 = 36400 FreeBSD users. This is consistent with the number of FreeBSD Usenet posts.

Due to the troubles of Walnut Creek,abysmal sales and so on,FreeBSD went out of business and was taken over by BSDI who sell another troubled *BSD. Now BSDI is also dead, its corpse turned over to another charnel house.

All major surveys show that *BSD has steadily declined in market share. *BSD is very sick and its long term survival prospects are very dim. If *BSD is survive at all it will be among *BSD hobbyist dabblers. *BSD continues to decay. Nothing short of a miracle could save it at this point in time. For all practical purposes, *BSD is dead.

*BSD is dying

_THIS_ is the real goatse girl

-Metrollica

you've never seen anyone anywhere complaining about aol???????? oh my god, I think I've seen a few pictures on goatse.cx that must be a good approximation of the size of your ass... since your head must have been there for a loooooong time.

People who don't understand these terms can get a quick education by clicking here.

Thank you.

Maybe this will refresh your memory.

Might I suggest using a virtual machine to browse Slashdot in case you click a Goatse link.

-Metrollica

Some mad scientest has ported linux to a rats brain! Its wierd, but now linux has been ported to yet another system!

Microsoft also tried to port windows to a rats brain, unfourtunatley, it brought a whole new meaning to the blue screen of death :(

Protesters, go kick bill gates ass now!

Im ZOOMing down the info superLOWway on my 56.6kb modem!

Because im a troll, i don't need broadband to download crappy operating systems! Luckly mr goatse dosent take long to load!

The Porn Count writes "I was perusing my usual Usenet newsgroups looking for some hot new wank material (38,757 images to date!) and came across this set of newsgroups, which Im sure youll all be most interested in.

• alt.binaries.pictures.erotica.linux.tux: Pictures of everyones favorite Linux mascot in a variety of nude poses. There are petitions in alt.config for the creation of subroups for anal, oral, and plumper porn.
• alt.binaries.pictures.erotica.linux.tux.hardcore : Tux getting it on with the Beastie, the BSD Daemon.
• alt.binaries.pictures.erotica.linux.tux.bondage: When Tuxs and Beasties romps get especially kinky.
• alt.binaries.pictures.erotica.linux.d: All porn is moderated to (-1; Redundant) immediately upon arrival.
• alt.binaries.pictures.erotica.linux.goatsecx: Constant reposts of everyones favorite anus, the Goatse.cx man.
• alt.binaries.pictures.erotica.linux.celebrities. rm s: Dirty GNU Hippie porn. Need I say more?
• alt.binaries.pictures.erotica.linux.celebrities. ac : Alan Coxs anal cox.
• alt.binaries.pictures.erotica.linux.celebrities. fa kes: Pictures of actual Linux users having sex with mainstream celebrities.*
• alt.binaries.pictures.erotica.linux.fakes: Pictures of actual Linux users having sex with ordinary females.

The Porn Count writes "I was perusing my usual Usenet newsgroups looking for some hot new wank material (38,757 images to date!) and came across this set of newsgroups, which Im sure youll all be most interested in.

• alt.binaries.pictures.erotica.linux.tux: Pictures of everyones favorite Linux mascot in a variety of nude poses. There are petitions in alt.config for the creation of subroups for anal, oral, and plumper porn.
• alt.binaries.pictures.erotica.linux.tux.hardcore : Tux getting it on with the Beastie, the BSD Daemon.
• alt.binaries.pictures.erotica.linux.tux.bondage: When Tuxs and Beasties romps get especially kinky.
• alt.binaries.pictures.erotica.linux.d: All porn is moderated to (-1; Redundant) immediately upon arrival.
• alt.binaries.pictures.erotica.linux.goatsecx: Constant reposts of everyones favorite anus, the Goatse.cx man.
• alt.binaries.pictures.erotica.linux.celebrities. rm s: Dirty GNU Hippie porn. Need I say more?
• alt.binaries.pictures.erotica.linux.celebrities. ac : Alan Coxs anal cox.
• alt.binaries.pictures.erotica.linux.celebrities. fa kes: Pictures of actual Linux users having sex with mainstream celebrities.*
• alt.binaries.pictures.erotica.linux.fakes: Pictures of actual Linux users having sex with ordinary females.

The Porn Count writes "I was perusing my usual Usenet newsgroups looking for some hot new wank material (38,757 images to date!) and came across this set of newsgroups, which Im sure youll all be most interested in.

• alt.binaries.pictures.erotica.linux.tux: Pictures of everyones favorite Linux mascot in a variety of nude poses. There are petitions in alt.config for the creation of subroups for anal, oral, and plumper porn.
• alt.binaries.pictures.erotica.linux.tux.hardcore : Tux getting it on with the Beastie, the BSD Daemon.
• alt.binaries.pictures.erotica.linux.tux.bondage: When Tuxs and Beasties romps get especially kinky.
• alt.binaries.pictures.erotica.linux.d: All porn is moderated to (-1; Redundant) immediately upon arrival.
• alt.binaries.pictures.erotica.linux.goatsecx: Constant reposts of everyones favorite anus, the Goatse.cx man.
• alt.binaries.pictures.erotica.linux.celebrities. rm s: Dirty GNU Hippie porn. Need I say more?
• alt.binaries.pictures.erotica.linux.celebrities. ac : Alan Coxs anal cox.
• alt.binaries.pictures.erotica.linux.celebrities. fa kes: Pictures of actual Linux users having sex with mainstream celebrities.*
• alt.binaries.pictures.erotica.linux.fakes: Pictures of actual Linux users having sex with ordinary females.

Is this a gravastar or a black hole?

You can think of it as the rocket continually speeds up until it runs out of fuel. When it runs out, we have a rocket with no thrust, and this is the simple version of the escape velocity problem again. (It won't need to be actually moving at escape velocity when it runs out near Pluto because the potential energy with respect to Earth is removed from its kinetic energy, so the velocity is adjusted for distance. It just has to keep moving away from Earth.)

If the rocket had infinite fuel, the only way to avoid getting back to the simple no thrust problem at some point, due to the laws of thermodynamics the rocket would need to store an infinite amount of energy, and it would have to have infinite mass, so it's not getting too far.

enough seriousness. Why is my font messed up? either netscape is being gay again or somebody decided to beat slashdot with the ugly stick.

behold the red hole.

some of you may be interested in this site. "...perhaps reap some of the booty of the cold war that Mr. Reagan won"-H. W. Hickman President Southwestern Technologies Inc.

I molest dolphins. I have threesomes involving Natalie Portman, dolphins, and hot grits.

ha ha, i hope this post has thrown you moderators into confusion. is it informative or a troll? mod me down and spread ignorance about physics!ha ha ha!

Here?


Sorry. I had to.

I think there is no dispute

So by "our" you mean the United States. By "go further" you mean further up America's rectum. And by "work better" you mean that it works better than George Bush's manrod reaming out that same enlarged rectum that is America.

-Metrollica

Nah, maybe this is more to your taste.

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__

* g o a t s e x * g o a t s e x * g o a t s e x * g g o / \ \ / \ o a \ a t `. : t s` \ s e \ / / \\\ -- \\ : e x \ \/ --~~ ~-- \ x * \ \-~ ~-\ * g \ \ .--------.___\ g o \ \// ((> \ o a \ . C ) ((> / a t /\ C )/ \ (> / t s / /\ C) (> / \ s e ( C__)\___/ // _/ / \ e x \ \\// (/ x * \ \) `---- --' * g \ \ / / g o / \ o a / \ \ a t / / \ t s / / \/\/ s e / e x x * g o a t s e x * g o a t s e x * g o a t s e x * #!/usr/bin/perl -w # This code is a part of Slash, and is released under the GPL. # Copyright 1997-2002 by Open Source Development Network. See README # and COPYING for more information, or see http://slashcode.com/. # $Id: bitchslap,v 1.3 2002/01/08 17:22:09 pudge Exp $ use strict; use File::Basename; use FindBin '$Bin'; use Getopt::Std; use Slash::Utility; use Slash::DB; (my $VERSION) = ' $Revision: 1.3 $ ' =~ /\$Revision:\s+([^\s]+)/; my $PROGNAME = basename($0); (my $PREFIX = $Bin) =~ s|/[^/]+/?$||; my %opts; # Remember to doublecheck these match usage()! usage('Options used incorrectly') unless getopts('hvu:', \%opts); usage() if ($opts{'h'} || !keys %opts); usage('Please specify a list of User IDs') if (! scalar @ARGV); version() if $opts{'v'}; $opts{'u'} ||= 'slash'; # We turn off warnings here because it's distracting. $^W = 0; createEnvironment($opts{'u'}); $^W = 1; my $slashdb = getCurrentDB(); my $constants = getCurrentStatic(); # main program logic (in braces to offset nicely) { for (@ARGV) { my $user = $slashdb->getUser($_); if (! $user) { print "User ID#$_ is invalid.\n"; next; } unless ($opts{'f'}) { die {karma} > 10; User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap. ERR } print "Bitch Slapping #$_...\n"; print "Karma Reduced\n"; print "Default Score Reduced\n"; $slashdb->setUser($_, { -karma => $constants->{badkarma}, -defaultpoints => -1, }); print "ALL live comments moderated down\n\n"; $slashdb->sqlDo("UPDATE comments SET points=-1,reason=1 WHERE uid=$_"); } } sub usage { print "*** $_[0]\n" if $_[0]; # Remember to doublecheck these match getopts()! print Usage: $PROGNAME [OPTIONS] ... [UIDs] SHORT PROGRAM DESCRIPTION Main options: -h Help (this message) -v Version -u Virtual user (default is "slash") -f Force slap. [UIDs] Space separated list of IDs to slap. EOT exit; } sub version { print $PROGNAME $VERSION This code is a part of Slash, and is released under the GPL. Copyright 1997-2002 by Open Source Development Network. See README and COPYING for more information, or see http://slashcode.com/. EOT exit; } __END__