wtfwasithinking.org

Go ahead, say [Religion greeting of choice] instead of Happy Holidays. However, don’t “correct” or get offended when someones says Happy Holidays or some other greeting from some other religion. This time of year means different things to different people of different religions. No one religion own the calendar and/or seasons. These things are dictated by the Earths path round the sun. The Earth could care less, as a whole, on how you celebrate.

If you are secure in Your religion, you should have no problem with other people being secure in theirs. Especially if you live in and plan to stay within the United States of America as a Citizen.

So, go ahead and pray – or don’t. Go to church – or sleep in. – www.illinoisfirstamendmentcenter.com

Here, let me google that for you: freedom of religion

There is no reason for the self-righteous, compassion-less posts…

I don’t care who I offend

You should care at least a little about who you offend, but be strong enough in your convictions that when challenged you can polity hold your own.

The level of oversensitive butt-hurt going around is getting ridiculous. Along with the King of the Hill mud slinging. If you feel the need to spout inaccuracies and lies to prove your point, then you don’t know how to prove your point.
Right:

I disagree with your beliefs

Wrong:

Your beliefs are Wrong!

If you have something on your mind or have something you feel passionately about, fine. say it. Don’t, however, turn it into a crusade. People can become enlightened through open discussion. People die in crusades.

So, I’ve been trying to teach myself perl at work. I haven’t had a “need” per say, but a vague interest at best. With the success in putting together a movie server for us to watch movies off of, I’ve had a need/want for an easy way to edit movie titles that I put on the server. This seems to fit the bill rather well.

#!/usr/bin/perl
#
use Text::Capitalize 0.2;
#
my $tobefixed = "";
my $original = "";
my @inprocess;
my $fixed = "";
my @movielisting = glob("*.m4v");
#
foreach $tobefixed (@movielisting) {
$original = $tobefixed; # preserve original file name for mv command
$tobefixed =~ s/_/ /gi; # replace _ with " "
@inprocess = split(/\./, $tobefixed); # break off the file type
$fixed = capitalize_title( "$inprocess[0]").".".@inprocess[1]; # fix capitilization and append file type
#
print "$original -> $fixed\n"; # list whats going to be done
system("mv", $original, $fixed); # change the name
}

EDIT: forgot to maintain the original name for the move.