Test mode for email

[Jonathan Schatz]

i usually do this (sorry for the weird line wrapping):

use strict;
use lib ".";
require "globals.pl";
my $emailflags =
"ExcludeSelf~~FlagRequestee~~FlagRequester~~emailOwnerRemoveme~~emailOwnerComments~~emailOwnerAttachments~~emailOwnerStatus~~emailOwnerResolved~~emailOwnerKeywords~~emailOwnerCC~~emailOwnerOther~~emailOwnerUnconfirmed~~emailReporterRemoveme~~emailReporterComments~~emailReporterAttachments~~emailReporterStatus~~emailReporterResolved~~emailReporterKeywords~~emailReporterCC~~emailReporterOther~~emailReporterUnconfirmed~~emailQAcontactRemoveme~~emailQAcontactComments~~emailQAcontactAttachments~~emailQAcontactStatus~~emailQAcontactResolved~~emailQAcontactKeywords~~emailQAcontactCC~~emailQAcontactOther~~emailQAcontactUnconfirmed~~emailCClistRemoveme~~emailCClistComments~~emailCClistAttachments~~emailCClistStatus~~emailCClistResolved~~emailCClistKeywords~~emailCClistCC~~emailCClistOther~~emailCClistUnconfirmed~~emailVoterRemoveme~~emailVoterComments~~emailVoterAttachments~~emailVoterStatus~~emailVoterResolved~~emailVoterKeywords~~emailVoterCC~~emailVoterOther~~emailVoterUnconfirmed"
 ;
 
main::SendSQL("UPDATE profiles SET profiles.emailflags =
'$emailflags'");

and then turn my own email back on to test.

-jon
-- 
Jonathan Schatz
Engineering System Administrator
VMware, Inc
"Te occidere possunt sed te edere non possunt nefas est."