#!/usr/local/bin/perl -w

use strict;

use Slash::DB;
use Slash::Utility;
use Slash::Constants qw( :messages );
use Time::HiRes qw( usleep );

createEnvironment('slashdot');
my $slashdb = getCurrentDB();
my $goodcount = my $badcount = 0;

while (my $email = <STDIN>) {
	chomp $email;
	my $uid = $slashdb->sqlSelect('uid','users',
		'realemail=' . $slashdb->sqlQuote($email));

	unless ($uid) {
		print "Could not find $email!\n";
		$badcount++;
		usleep 100;
		next;
	}

	$slashdb->sqlUpdate('users_info', { maillist => 0 }, "uid=$uid");
	$slashdb->sqlUpdate('users_messages', { mode => MSG_MODE_NONE },
		"uid=$uid AND mode=" . MSG_MODE_EMAIL);
	print "Unsubscribing UID $uid, $email...\n";
	$goodcount++;
	usleep 100;
}

print "--\n";
print "Unsubscribed $goodcount users, but could not find $badcount users.\n";

1;