Slashdot Mirror

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

I wonder has this open sores image

quit posting this gay bullshit, at least link to the real thing

Splendid. Absolutely splendid. Would you believe it possible to purchase these hot items in bulk? I wish to air-drop them over the caves of the Taliban.

I just heard some sad news on the radio. Osama bin Laden, terrorist previously funded by the US, has died. I don't know how it happened. His age is unknown, but the rings in his beard suggest that he is between the ages of 45 and 60. Whether you were a fan of his work or not, bin Laden is truely an American icon.

Perhaps the crime most feared and most under reported is that of

male on male rape, says Rob Malda in his new book Male on

Male Rape: The CmdrTaco syndrome.

Like most efforts in the incipient victim's rights movement, the

book and CmdrTaco's own career as coordinator of Slashdot's Rape

Education and Prevention Program got their genesis in someone's

own victimization and transformation as a male rape survivor. For

CmdrTaco, the events leading up to and surrounding his and many
other
male rapes are rooted in homosexuality--the sexuality of
choice for
Slashdot authors.

It started for CmdrTaco in the fall of 1989 when he and his friend

Hemos began their sophomore year at the Slashdot school for the

sexually impaired, sharing a dormitory room at Bradly Hall and
serving
as President and Vice President of the Gay and Lesbian
Alliance.

As campus gay leaders they raised questions and initiated dialogue
on
issues about which many men on the campus felt uncomfortable,
including
all the men on the third floor of Bradly Hall.

As a result, they received anal penetrations, reach arounds,

offers to write for Slashdot, and a daily dirty sanchez from the

other men on their floor. To escape the hostility, Hemos
headed home
for the weekend and CmdrTaco visited a gay bar.

CmdrTaco meets a man there who hours later would in CmdrTaco's
dormitory
room would rape him. He describes dramatically how he
could not call
for help because he loved it too much.

"A culture that encourages and condones sexual violence wielded as

a tool for the control and subordination of those with less power
in our
society." Basically, CmdrTaco states that he, and other
flaming
homosexuals use male rape as the leverage to gain control of

Slashdot's readers. Slashdot has always been pro-gay, but CmdrTaco
has
turned the once "queers are people to" website into a man-sauce
guzzling
festival of uninvited anal penetration and reach arounds.

What we actually know about male rape is very little. It is, as

JonKatz describes it, "something like a stack of delicious,

shit crusted pancakes that I can't wait to stick my tongue into!"

His is not the first book on the subject however. Cowboy Neal,
also of
Slashdot fame wrote the first book in 1990, Male Rape:
Breaking the
Silence on my Favorite Pastime.

CmdrTaco though traverses the 20 studies that have been conducted
in the
past 30 years. These are the only studies that have
examined the issue
in a non-institutionalized setting, such as
Slashdot. Here is what we
do know, from the shards of information

CmdrTaco expertly and exclusively narrates.

* Male rapes constitute about five to 10 percent of all rapes.

* Male rapes account for 100% of all rapes in the Slashdot community.

* Most perpetrators self-identify as "uber geeks".

* Most offenders refer to themselves as a "CmdrTaco."

* Most offenders are Slashdot readers.

* Most offenders rape out of lust or passion or sexual desire.

* Most victims state that they are only trying to "root" a victim's
"box."

* When documented at all, Slashdot authors had no preference to heterosexual
or homosexual victims.

* Slashdot authors referred to these pack or gang rapings as "lan
parties.".

* Stigma and shame are common responses from male rape victims.

* This is followed by the victim's interest in the Linux operating
system.

* Contemplation of suicide is fairly common among male rape
survivors.

* The most common form of post-male raping suicide attempts is forcing a
huge member into the already violated "purple carnation" (Slashdot lingo for
a penetrated anus).

Here is an example of some of
CmdrTaco's brilliant research.

and theres an interesting portrayal of a freebsd user here. What a long strange trip it's been!

betty was also here. fuck betty up her tight little urethra. ill cum chunks into her ear.

GOATS??

But can it live here

I'm sure Fox can fill just about any gaping hole left by the X-Files. I'm not so sure about one left by "The Giver" though...

3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
63
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6

not true, /. also covers this holesometimes

You, sir, are a fucking luddite, and if I ever should meet your sorry punk ass I will shove a pound of refined plutonium up your gaping ass.

I meant 2nd DMCA post!!!
Maybe, I should preview....
Nah... Here are some numbers for you!!!

3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
63
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
63
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
63
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6
3
1
5
6
4
5
6
5
7
4
9
8
7
6
8
7
5
6
4
3
2
4
1
2
5
6
5
4
1
8
9
5
7
1
9
8
4
3
4
2
6
6
5
5
6
4
6
5
7
7
6
9
6
1
5
2
4
9
8
3
4
9
3
5
8
6
7
4
9
5
8
6
7
7
9
6
7
8
7
5
8
9
8
6
7
9
8
8
7
6
6
5
3
4
4
2
5
1
4
2
3
2
3
1
1
3
4
1
4
6
5
4
1
9
5
8
5
2
9
8
7
6
9
8
3
7
7
8
4
6
5
6
4
5
4
1
2
2
3
4
1
1
3
2
3
1
6
5
1
4
9
3
8
5
6
7
9
8
4
3
7
7
9
6
8
7
6
5
4
8
6
2
5
1
4
6
7
5
6
4
3
8
9
7
3
2
9
8
3
4
7
9
1
8
2
4
3
6
4
5
1
4
6
3
2
3
2
1
4
5
4
3
5
6
3
5
2
7
5
6
6
4
9
8
7
9
8
4
7
6
6
2
5
4
6