Amazing story! Shit, I leave town and everything goes to Hell. At least you held things down. I dunno wtf her problem is, when I confirmed that she was a Yid I tried to call it all off but she'd register new MSN and AIM screennames everyday and instant message me all day long. The more I blocked her the more names she registered. Like "SpaceB4wLzGrrrL" and "GritzGurl69" and shit.
I wondered why it had stopped.
What are you running on your ray? FreeBSD 4.4 just came out, but so did Darwin 1.4.1...
Well, here I am signing off. You caught me just as I was giving up posting on SLashdot for some time. See you soon, I have no idea how into trolling you are anymore but there's something in the works that may interest you. A return to the old days of trolltalk, sort of. My email's below if you're curious.
In any event, nice story. You seem to still have it.
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: bitchslap,v 1.1.2.2 2001/06/05 11:51:44 pudge Exp $
use strict;
use File::Basename;
use FindBin '$Bin';
use Getopt::Std;
use Slash::Utility;
use Slash::DB;
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 <<ERR if $user->{karma} > 10;
User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap.
ERR
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 <<EOT;
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 <<EOT;
$PROGNAME $VERSION
This code is a part of Slash, and is released under the GPL.
Copyright 1997-2001 by Open Source Development Network. See README
and COPYING for more information, or see http://slashcode.com/.
Well, I didn't read the article, and at this point I can't even remember what the title said it was about... So basically, I am spouting off like most of the Slashbottards.
Hey, guess what! Fuck off. The 5 will soon begin war.
Unban me, -ban me
How am I supposed to troll
Slashdot? My subnet is denied there
Unban me, -ban me
I shouldn't have to go
And use a fucking proxie
Show me how to troll freely
Tell me, I really wanna troll now,
oh because
[Chorus]
Not trolling Slashdot is killing me (and i)
I must confess I still believe (still believe)
When I'm not trolling i lose my mind
give me a sign
Please unban me one more time
Unban me, -ban me
The reason i troll is you
IP bans got me gagg-ed
Oh Taco baby
there's nothing that i wouldn't do
thats not the way i planned it
Show me how you want it to be
tell me Taco cause i need to troll now
oh because
[repeat chorus]
Unban me, Taco, how am i suposed to troll
Jamie McCarthy, you shouldn't censorware SLASH code
I must confess , that my trollishness
is killing me now
Don't you know I still believe
that you are so queer
So give me a break
Fuck'n unban me one more time
[repeat chorus]
UNBAN ME ONE MORE TIME
on
God's Debris
·
· Score: -1
[to the tune of Britney Spears's "Baby One More Time"]
Unban me, -ban me
How am I supposed to troll
Slashdot? My subnet is denied there
Unban me, -ban me
I shouldn't have to go
And use a fucking proxie
Show me how to troll freely
Tell me, I really wanna troll now,
oh because
[Chorus]
Not trolling Slashdot is killing me (and i)
I must confess I still believe (still believe)
When I'm not trolling i lose my mind
give me a sign
Please unban me one more time
Unban me, -ban me
The reason i troll is you
IP bans got me gagg-ed
Oh Taco baby
there's nothing that i wouldn't do
thats not the way i planned it
Show me how you want it to be
tell me Taco cause i need to troll now
oh because
[repeat chorus]
Unban me, Taco, how am i suposed to troll
Jamie McCarthy, you shouldn't censorware SLASH code
I must confess , that my trollishness
is killing me now
Don't you know I still believe
that you are so queer
So give me a break
Fuck'n unban me one more time
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
Why don't you just try waiting a while before you post again in the Friction Forum?? Say, 10-15 years. The way I figure it, at your present
rate of maturing, that ought to just about raise you to the mid-elementary level, where most children learn to exercise a little
decorum. (Yes, I know, that's a big artsy fartsy word, but if you write
it down real careful like, in 5 years or so you can look it up in the
Dic-tion-ary).
On the other hand, post all the feces you want. I really don't give a
shit. We just laugh our asses off at how stupid you sound anyway...
iBook/300- $ 500 (Blueberry)
iBook/366- $ 750 (Graphite or Tangerine)
iBook/466- $1000 (Graphite or Key Lime)
These are prices from eBay, which are cheaper than reseller prices. Most of
the places selling these used models would charge about %20-%50 more.
All of these iBooks above have 66MHz systems busses, which the CPU uses to
talk to the other system components (RAM, PCI bus, etc.). Max resolution is
800x600 on all of them. The model you're looking at won't have a FireWire
port.
One thing I have to say about the iBook 2 vs. the original-- the original is
so much more fucking durable. My new iBook has more ports, can hold more
RAM, higher resolution, etc-- so basically it's a desktop replacement-- but
as of now I am planning on selling my iBook/300 in another year to grab a
Graphite 466 model to take with me when I travel. For travel it can't be
beat. The thing can be taken anywhere in anything, whereas the new iBook is
so prone to micro-scratches in its outer shell it isn't funny. There's
concern for the keys scratching the screen, too, since the lid is flimisier
than the old iBooks', but so far mine hasn't.
With enough RAM all of the above iBooks can handle Mac OS X well-- just make
sure to be using at least 10.1 because it's a major improvement over 10. A
lot of the big software titles require 10.1 too. I can't find any links to
the 512 meg chip for the older iBooks, but I think the ones they sell for
the new iBooks will work (the specs seem to match).
iBook/300- $ 500 (Blueberry)
iBook/366- $ 750 (Graphite or Tangerine)
iBook/466- $1000 (Graphite or Key Lime)
These are prices from eBay, which are cheaper than reseller prices. Most of
the places selling these used models would charge about %20-%50 more.
All of these iBooks above have 66MHz systems busses, which the CPU uses to
talk to the other system components (RAM, PCI bus, etc.). Max resolution is
800x600 on all of them. The model you're looking at won't have a FireWire
port.
One thing I have to say about the iBook 2 vs. the original-- the original is
so much more fucking durable. My new iBook has more ports, can hold more
RAM, higher resolution, etc-- so basically it's a desktop replacement-- but
as of now I am planning on selling my iBook/300 in another year to grab a
Graphite 466 model to take with me when I travel. For travel it can't be
beat. The thing can be taken anywhere in anything, whereas the new iBook is
so prone to micro-scratches in its outer shell it isn't funny. There's
concern for the keys scratching the screen, too, since the lid is flimisier
than the old iBooks', but so far mine hasn't.
With enough RAM all of the above iBooks can handle Mac OS X well-- just make
sure to be using at least 10.1 because it's a major improvement over 10. A
lot of the big software titles require 10.1 too. I can't find any links to
the 512 meg chip for the older iBooks, but I think the ones they sell for
the new iBooks will work (the specs seem to match).</b>
Hey trolls, I need some good ideas for a spec for a new weblog.
I am going to use SLASH 2.2, but I want to know what changed would be good for trolls- many of the new "features" and "bug fixes" have really been troll-deterrents and I'd like to know what to change to make a SLASH-based site more friendly and less anti-troll-centric.
The resulting spec will become the basis for TrASH 1.0, which will result from modifications to SLASH 2.2.
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: bitchslap,v 1.1.2.2 2001/06/05 11:51:44 pudge Exp $
use strict;
use File::Basename;
use FindBin '$Bin';
use Getopt::Std;
use Slash::Utility;
use Slash::DB;
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 <<ERR if $user->{karma} > 10;
User $_ has a karma of $user->{karma}. Slap aborted. Use -f to forcibly slap.
ERR
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 <<EOT;
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 <<EOT;
$PROGNAME $VERSION
This code is a part of Slash, and is released under the GPL.
Copyright 1997-2001 by Open Source Development Network. See README
and COPYING for more information, or see http://slashcode.com/.
Slashdot Mirror
I have a question,
WHy is this woman Mina ANWAR so hot?
oooooh god.
Sounds like bile, man. You sure that wasn't blood? Ugh. It turns to a thick black slime after being in the acid in your stomach.
Every tyme I lyke load the page, there's a nyw sotry and I post within the typ twynty.
WTF!
Is a corruption of "Mohamet," the prophet of Islam (piss be upon him).
My question is, why does he have horns, wings, cloven hooves, tits, and a pussy?
Wil... what side will you choose? What side will you choose?
What this story is about, I saw a story with no comments and hit the link.
So what do I say now that I'm here?
Beware the war between the four. The fourth arrives after the new year to finish what was started by the other three.
Amazing story! Shit, I leave town and everything goes to Hell. At least you held things down. I dunno wtf her problem is, when I confirmed that she was a Yid I tried to call it all off but she'd register new MSN and AIM screennames everyday and instant message me all day long. The more I blocked her the more names she registered. Like "SpaceB4wLzGrrrL" and "GritzGurl69" and shit.
I wondered why it had stopped.
What are you running on your ray? FreeBSD 4.4 just came out, but so did Darwin 1.4.1...
Well, here I am signing off. You caught me just as I was giving up posting on SLashdot for some time. See you soon, I have no idea how into trolling you are anymore but there's something in the works that may interest you. A return to the old days of trolltalk, sort of. My email's below if you're curious.
In any event, nice story. You seem to still have it.
#!/usr/bin/perl -w
/\$Revision:\s+([^\s]+)/;
... [UIDs]
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: bitchslap,v 1.1.2.2 2001/06/05 11:51:44 pudge Exp $
use strict;
use File::Basename;
use FindBin '$Bin';
use Getopt::Std;
use Slash::Utility;
use Slash::DB;
(my $VERSION) = ' $Revision: 1.1.2.2 $ ' =~
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 <<ERR if $user->{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 <<EOT;
Usage: $PROGNAME [OPTIONS]
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 <<EOT;
$PROGNAME $VERSION
This code is a part of Slash, and is released under the GPL.
Copyright 1997-2001 by Open Source Development Network. See README
and COPYING for more information, or see http://slashcode.com/.
EOT
exit;
}
__END__
10 cmpr_fag(fag1,fag2);
20 "YOU==FAGG0T!"
It shall begin soon. Sooner than any of the 'quoids thought.
Faeryman,
How the Hell are you? It's been ages.
-Trollaxor
Well, I didn't read the article, and at this point I can't even remember what the title said it was about... So basically, I am spouting off like most of the Slashbottards.
Hey, guess what! Fuck off. The 5 will soon begin war.
yeah, that sounds like something taco'd be in to.
Not original, but damn it feels good to say!
Unban me, -ban me
How am I supposed to troll
Slashdot? My subnet is denied there
Unban me, -ban me
I shouldn't have to go
And use a fucking proxie
Show me how to troll freely
Tell me, I really wanna troll now,
oh because
[Chorus]
Not trolling Slashdot is killing me (and i)
I must confess I still believe (still believe)
When I'm not trolling i lose my mind
give me a sign
Please unban me one more time
Unban me, -ban me
The reason i troll is you
IP bans got me gagg-ed
Oh Taco baby
there's nothing that i wouldn't do
thats not the way i planned it
Show me how you want it to be
tell me Taco cause i need to troll now
oh because
[repeat chorus]
Unban me, Taco, how am i suposed to troll
Jamie McCarthy, you shouldn't censorware SLASH code
I must confess , that my trollishness
is killing me now
Don't you know I still believe
that you are so queer
So give me a break
Fuck'n unban me one more time
[repeat chorus]
[to the tune of Britney Spears's "Baby One More Time"]
Unban me, -ban me
How am I supposed to troll
Slashdot? My subnet is denied there
Unban me, -ban me
I shouldn't have to go
And use a fucking proxie
Show me how to troll freely
Tell me, I really wanna troll now,
oh because
[Chorus]
Not trolling Slashdot is killing me (and i)
I must confess I still believe (still believe)
When I'm not trolling i lose my mind
give me a sign
Please unban me one more time
Unban me, -ban me
The reason i troll is you
IP bans got me gagg-ed
Oh Taco baby
there's nothing that i wouldn't do
thats not the way i planned it
Show me how you want it to be
tell me Taco cause i need to troll now
oh because
[repeat chorus]
Unban me, Taco, how am i suposed to troll
Jamie McCarthy, you shouldn't censorware SLASH code
I must confess , that my trollishness
is killing me now
Don't you know I still believe
that you are so queer
So give me a break
Fuck'n unban me one more time
[repeat chorus]
[to the tune of Queen's "We Will Rock You,".]
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
[to the tune of Queen's "We Will Rock You,".]
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
[to the tune of Queen's "We Will Rock You,".]
Taco you're a boy make a big noise
Trickin' in the street gonna be a gay man some day
You got cum on yo' face
You big disgrace
Suckin' mad dick all over the place
Singin'
We will we will troll you
We will we will troll you
Hemos you're a gay man skinny man
Hairless in the street gonna take on a bear some day
You got cum on yo' face
You big disgrace
Wavin' your pinky all over the place
We will we will troll you
Flood it
We will we will troll you
Eric you're an old man poor man
Surprised by cock, gonna make
You some money some day
You got cum on your face
Big disgrace
The stock market sure as Hell put you back into your place
We will we will troll you
Sing it
We will we will troll you
Everybody
We will we will troll you
We will we will troll you
Alright
Why don't you just try waiting a while before you post again in the Friction Forum?? Say, 10-15 years. The way I figure it, at your present rate of maturing, that ought to just about raise you to the mid-elementary level, where most children learn to exercise a little decorum. (Yes, I know, that's a big artsy fartsy word, but if you write it down real careful like, in 5 years or so you can look it up in the Dic-tion-ary).
On the other hand, post all the feces you want. I really don't give a shit. We just laugh our asses off at how stupid you sound anyway ...
Allen Heinrich Poetry Editor Friction Magazine
iMac/233- $300
iBook/300- $ 500 (Blueberry)
iBook/366- $ 750 (Graphite or Tangerine)
iBook/466- $1000 (Graphite or Key Lime)
These are prices from eBay, which are cheaper than reseller prices. Most of
the places selling these used models would charge about %20-%50 more.
All of these iBooks above have 66MHz systems busses, which the CPU uses to
talk to the other system components (RAM, PCI bus, etc.). Max resolution is
800x600 on all of them. The model you're looking at won't have a FireWire
port.
One thing I have to say about the iBook 2 vs. the original-- the original is
so much more fucking durable. My new iBook has more ports, can hold more
RAM, higher resolution, etc-- so basically it's a desktop replacement-- but
as of now I am planning on selling my iBook/300 in another year to grab a
Graphite 466 model to take with me when I travel. For travel it can't be
beat. The thing can be taken anywhere in anything, whereas the new iBook is
so prone to micro-scratches in its outer shell it isn't funny. There's
concern for the keys scratching the screen, too, since the lid is flimisier
than the old iBooks', but so far mine hasn't.
With enough RAM all of the above iBooks can handle Mac OS X well-- just make
sure to be using at least 10.1 because it's a major improvement over 10. A
lot of the big software titles require 10.1 too. I can't find any links to
the 512 meg chip for the older iBooks, but I think the ones they sell for
the new iBooks will work (the specs seem to match).
iMac/233- $300
iBook/300- $ 500 (Blueberry)
iBook/366- $ 750 (Graphite or Tangerine)
iBook/466- $1000 (Graphite or Key Lime)
These are prices from eBay, which are cheaper than reseller prices. Most of
the places selling these used models would charge about %20-%50 more.
All of these iBooks above have 66MHz systems busses, which the CPU uses to
talk to the other system components (RAM, PCI bus, etc.). Max resolution is
800x600 on all of them. The model you're looking at won't have a FireWire
port.
One thing I have to say about the iBook 2 vs. the original-- the original is
so much more fucking durable. My new iBook has more ports, can hold more
RAM, higher resolution, etc-- so basically it's a desktop replacement-- but
as of now I am planning on selling my iBook/300 in another year to grab a
Graphite 466 model to take with me when I travel. For travel it can't be
beat. The thing can be taken anywhere in anything, whereas the new iBook is
so prone to micro-scratches in its outer shell it isn't funny. There's
concern for the keys scratching the screen, too, since the lid is flimisier
than the old iBooks', but so far mine hasn't.
With enough RAM all of the above iBooks can handle Mac OS X well-- just make
sure to be using at least 10.1 because it's a major improvement over 10. A
lot of the big software titles require 10.1 too. I can't find any links to
the 512 meg chip for the older iBooks, but I think the ones they sell for
the new iBooks will work (the specs seem to match).</b>
Hey trolls, I need some good ideas for a spec for a new weblog.
I am going to use SLASH 2.2, but I want to know what changed would be good for trolls- many of the new "features" and "bug fixes" have really been troll-deterrents and I'd like to know what to change to make a SLASH-based site more friendly and less anti-troll-centric.
The resulting spec will become the basis for TrASH 1.0, which will result from modifications to SLASH 2.2.
Ideas? Post away.
#!/usr/bin/perl -w
/\$Revision:\s+([^\s]+)/;
... [UIDs]
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: bitchslap,v 1.1.2.2 2001/06/05 11:51:44 pudge Exp $
use strict;
use File::Basename;
use FindBin '$Bin';
use Getopt::Std;
use Slash::Utility;
use Slash::DB;
(my $VERSION) = ' $Revision: 1.1.2.2 $ ' =~
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 <<ERR if $user->{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 <<EOT;
Usage: $PROGNAME [OPTIONS]
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 <<EOT;
$PROGNAME $VERSION
This code is a part of Slash, and is released under the GPL.
Copyright 1997-2001 by Open Source Development Network. See README
and COPYING for more information, or see http://slashcode.com/.
EOT
exit;
}
__END__
SUx my cock.
Wait til I release TrASH, you assholes.