Bitchslap it baby!!* 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__
Bitchslap it baby!!* 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__
Bitchslap it baby!!* 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 *
* 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 *
This is all old new, reumors of the Palm i700 surfaced months ago. They even got aproval from the FCC, which had product pictures on their site. These were later withdrawn at Palms request. All of this can be found in the archives of PalmInfoCenter.
Log in, bitch!* 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 *
That has to be the greatest/. informational site of ALL TIME!! Keep it up!
* 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 *
Natalie Portman come arenas calientes de mi racimo del boewulf!* 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)Natalie (> / \ 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 *
* 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 )/ orng\ (> / t
s //\ C)|cnty (> / \ 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 *
* 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 )/ open\ (> / t
s //\ C)|source (> / \ 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 *
* 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)|Java!! (> / \ 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 *
* 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)|Crypto (> / \ 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 *
* 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)UCSD (> / \ 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 *
* 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 *
Natalie Portman come arenas calientes de mi racimo del boewulf!
* 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 )/Klerck!\ (> / 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 *
* 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)OPENPKG (> / \ 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 *
* 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 *
* 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 *
Important Stuff:
Please try to keep posts on topic.
Try to reply to other people comments instead of starting new threads.
Read other people's messages before posting your own to avoid simply
duplicating what has already been said.
Use a clear subject that describes what your message is about.
Offtopic, Inflammatory, Inappropriate, Illegal, or Offensive comments might
be moderated. (You can read everything, even moderated posts, by adjusting your
threshold on the User Preferences Page)
Problems regarding accounts or comment posting should be sent to
CowboyNeal.
But if that sort of thing gets you by, here is a gaping asshole:
* 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 *
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__
Bitchslap it baby!!* 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__
Bitchslap it baby!!* 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__
Bitchslap it baby!!* 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 *
Pizza lunchables with a coke. You should see what I have in our dept's fridge. I'm 25, eat like a 6th grader... Tommarow I am having Chef Boyardie!
* 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 *
This is all old new, reumors of the Palm i700 surfaced months ago. They even got aproval from the FCC, which had product pictures on their site. These were later withdrawn at Palms request. All of this can be found in the archives of PalmInfoCenter.
IE does not crash every ten minutes. Install an OS that does not use 1996 web browser technology.
Netscape is clearly distinguishable from magic...
Log in, bitch!* 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 *
That has to be the greatest /. informational site of ALL TIME!! Keep it up!
* 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 *
Natalie Portman come arenas calientes de mi racimo del boewulf!* 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)Natalie (> / \ 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 *
* 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 )/ orng\ (> / t
s / /\ C)|cnty (> / \ 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 *
* 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 )/ open\ (> / t
s / /\ C)|source (> / \ 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 *
* 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)|Java!! (> / \ 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 *
* 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)|Crypto (> / \ 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 *
* 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)UCSD (> / \ 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 *
* 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 *
Natalie Portman come arenas calientes de mi racimo del boewulf!
* 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 \ \Si, ese! Chupa mi verga, pinche culo!!
Let's see, what else, ah!
Natalie Portman come arenas calientes de mi racimo del boewulf!
* 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)OPENPKG (> / \ 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 *
* 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 *
* 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 *
Important Stuff:
Please try to keep posts on topic.
Try to reply to other people comments instead of starting new threads.
Read other people's messages before posting your own to avoid simply duplicating what has already been said.
Use a clear subject that describes what your message is about.
Offtopic, Inflammatory, Inappropriate, Illegal, or Offensive comments might be moderated. (You can read everything, even moderated posts, by adjusting your threshold on the User Preferences Page)
Problems regarding accounts or comment posting should be sent to CowboyNeal.
But if that sort of thing gets you by, here is a gaping asshole:
* 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 \ \