WIRED Sex Drive – Porn Prohibitionists Miss Point

By Regina Lynn

All week I’ve been thinking about the recent “porn is heroin” hearing, which concluded that porn bypasses the cognitive speechmaking part of the brain, turns men into rapists and — my favorite — releases damaging “erototoxins” into the bloodstream. […]

http://www.wired.com/news/culture/0,1284,65831,00.html

tee’ing perl output

I may want to output info both to screen and sometime to a log file. Perl Cookbook recipe 13-9 offers one approach with Tie::Tee.

I also found a thread at http://perl.org.il/pipermail/perl/2003-June/002302.html where Mark Dominus offered:

{
my $teefile = "/tmp/teefile";
open my $fh, ">", $teefile or die $!;
open SAVE_STDERR, ">&STDERR" or die $!;
tie *STDERR, 'TEE', *SAVE_STDERR, $fh or die $!;
}

die "I like pie.n";

package TEE;

sub TIEHANDLE {
my $package = shift;
my @handles = @_;
bless @handles => $package;
}

sub PRINT {
my ($self, $data) = @_;
for my $fh (@$self) {
print $fh $data;
}
}

Trouble joining the domain – RPCPing

I’m trying to join a system to the domain, and I’m getting an error:

The following error occured attempting to join the domain “campus.ad.uvm.edu”
The RPC Server is unavailable

I’ve used a utility in the past called rpcping, part of the server resource kit. I technical article is available at:

http://support.microsoft.com/default.aspx?scid=kb;en-us;177446

OK. Things look reasonable.

The other tool I’ve used is portqry.exe:
http://support.microsoft.com/?id=832919