[root@pod01-ema-01 httpd]# find /var/log/httpd/ -name "*.txt" -type f -mtime +7 -exec gzip {} \;
gzip: /var/log/httpd/ema.md-access_log.2013-03-10.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-access_log.2013-03-03.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-ssl-access_log.2013-03-03.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-error_log.2013-03-09.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-ssl-error_log.2013-03-03.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-error_log.2013-03-03.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-ssl-access_log.2013-03-10.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-ssl-error_log.2013-03-10.txt has 1 other link  -- unchanged
gzip: /var/log/httpd/ema.md-error_log.2013-03-16.txt has 1 other link  -- unchanged


[root@pod01-ema-01 httpd]# stat /var/log/httpd/ema.md-access_log.2013-03-10.txt
  File: `/var/log/httpd/ema.md-access_log.2013-03-10.txt'
  Size: 70688           Blocks: 152        IO Block: 4096   regular file
Device: ca41h/51777d    Inode: 21393       Links: 2
Access: (0644/-rw-r--r--)  Uid: (    0/    root)   Gid: (    0/    root)
Access: 2013-03-25 20:03:28.707043413 +0000
Modify: 2013-03-10 23:59:13.394046125 +0000
Change: 2013-03-11 00:03:40.273046121 +0000


[root@pod01-ema-01 httpd]# ls -i /var/log/httpd/ema.md-access_log.2013-03-10.txt | awk '{print $1}' | xargs find . -inum 
./ema.md-access_log-20130310
./ema.md-access_log.2013-03-10.txt

wget -nc http://s3tools.org/repo/RHEL_6/s3tools.repo -P /etc/yum.repos.d/

#!/bin/bash
#
# Usage
# ./parse_httpd_logs type (logfile)
# Eg: 
# parse_httpd_logs url(-summary)
#   will find top URLs in the access log entries
# parse_httpd_logs ip(-summary)
#   will find top IPs in the access log entries
# parse_httpd_logs agent(-summary)
#   will find top user agents in the log entries
# parse_httpd_logs stutus(-summary)
#   will find server status codes in the log entries

if [ $# -eq 0 ] ; then
        echo "Usage: $0 type count (logfile)"
        echo ""
        echo "Example: $0 ip"
        echo "Example: $0 ip-summary"
        echo "Example: $0 url"
        echo "Example: $0 url-summary"
        echo "Example: $0 agent"
        echo "Example: $0 agent-summary "
        echo "Example: $0 status"
        echo "Example: $0 status-epoch "
        echo "Example: $0 status-summary "
        exit
fi


type=$1

if [ "$2" == "" ]; then
  log_file="/var/log/httpd/access_log"
else
  # Sets the log file to be the second argument passed
  log_file="$2"
fi

# decide if it's cat or zcat
EXTENSION=`echo $log_file|rev | cut -d. -f1 | rev`
if [ "$EXTENSION" == "gz" ]; then
        cat_command="/bin/zcat"
else
        cat_command="/bin/cat"
fi


if [ "$type" = "ip" ]; then
  $cat_command $log_file | awk '{print $1}' | grep -o "[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}" 
elif [ "$type" = "ip-summary" ]; then
  $cat_command $log_file | awk '{print $1}' | grep -o "[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}" | sort -n | uniq -c | sort -rn
elif [ "$type" = "agent" ]; then
  $cat_command $log_file | awk -F\" '{print $6}'
elif [ "$type" = "agent-summary" ]; then
  $cat_command $log_file | awk -F\" '{print $6}'| sort -n | uniq -c | sort -rn
elif [ "$type" = "url" ]; then
  $cat_command $log_file | awk -F\" '{print $2}'
elif [ "$type" = "url-summary" ]; then
  $cat_command $log_file | awk -F\" '{print $2}'| sort -n | uniq -c | sort -rn
elif [ "$type" = "status" ]; then
  $cat_command $log_file | awk -F\" '{print $3}' | awk '{print $1}' 
elif [ "$type" = "status-summary" ]; then
  $cat_command $log_file | awk -F\" '{print $3}' | awk '{print $1}' | sort -n | uniq -c | sort -rn
elif [ "$type" = "status-epoch" ]; then
  $cat_command $log_file | /bin/awk 'BEGIN{
        m=split("Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec",d,"|")
        for(o=1;o<=m;o++){
        date[d[o]]=sprintf("%02d",o)
        }
        }
        {
        gsub(/\[/,"",$4); gsub(":","/",$4); gsub(/\]/,"",$5)
        n=split($4, DATE,"/")
        day=DATE[1]
        mth=DATE[2]
        year=DATE[3]
        hr=DATE[4]
        min=DATE[5]
        sec=DATE[6]
        MKTIME= mktime(year" "date[mth]" "day" "hr" "min" "sec)
        print MKTIME,$9
        }' 

fi

#!/usr/bin/perl

$heap_dump_dir="/nfs/tmp/dumps";

unless(-d $heap_dump_dir){
        print "Creating $heap_dump_dir\n";
        mkdir $heap_dump_dir or die "Can not create $heap_dump_dir\n";
}

$ /opt/local/binary_downloads/ffmpeg -i sample.mkv -vcodec copy -acodec copy sample.m4v 
ffmpeg version 1.0.1 Copyright (c) 2000-2012 the FFmpeg developers
  built on Dec  7 2012 09:31:51 with llvm-gcc 4.2.1 (LLVM build 2336.11.00)
  configuration: --prefix=/Volumes/Ramdisk/sw --enable-gpl --enable-pthreads --enable-version3 --enable-libspeex --enable-libvpx --disable-decoder=libvpx --enable-libmp3lame --enable-libtheora --enable-libvorbis --enable-libx264 --enable-avfilter --enable-libopencore_amrwb --enable-libopencore_amrnb --enable-filters --enable-libgsm --arch=x86_64 --enable-runtime-cpudetect
  libavutil      51. 73.101 / 51. 73.101
  libavcodec     54. 59.100 / 54. 59.100
  libavformat    54. 29.104 / 54. 29.104
  libavdevice    54.  2.101 / 54.  2.101
  libavfilter     3. 17.100 /  3. 17.100
  libswscale      2.  1.101 /  2.  1.101
  libswresample   0. 15.100 /  0. 15.100
  libpostproc    52.  0.100 / 52.  0.100
Input #0, matroska,webm, from 'sample.mkv':
  Metadata:
    creation_time   : 1970-01-01 00:00:02
  Duration: 00:02:16.85, start: 0.000000, bitrate: 1935 kb/s
    Stream #0:0(eng): Video: h264 (Main), yuv420p, 720x304, SAR 1:1 DAR 45:19, 23.98 fps, 23.98 tbr, 1k tbn, 180k tbc (default)
    Stream #0:1(eng): Audio: aac, 48000 Hz, stereo, s16 (default)
Output #0, ipod, to 'sample.m4v':
  Metadata:
    encoder         : Lavf54.29.104
    Stream #0:0(eng): Video: h264 (avc1 / 0x31637661), yuv420p, 720x304 [SAR 1:1 DAR 45:19], q=2-31, 23.98 fps, 1k tbn, 1k tbc (default)
    Stream #0:1(eng): Audio: aac (mp4a / 0x6134706D), 48000 Hz, stereo (default)
Stream mapping:
  Stream #0:0 -> #0:0 (copy)
  Stream #0:1 -> #0:1 (copy)
Press [q] to stop, [?] for help
[ipod @ 0x7fc6c18f0e00] st:0 PTS: 67 DTS: -83 < -82 invalid, clipping
frame= 4101 fps=0.0 q=-1.0 Lsize=   32485kB time=00:02:16.84 bitrate=1944.6kbits/s    
video:29531kB audio:2758kB subtitle:0 global headers:0kB muxing overhead 0.603822%

#!/bin/bash

echo $1
NAME=`echo $1| rev | cut -d. -f2- |rev`
echo $NAME

/opt/local/binary_downloads/ffmpeg -i $NAME.mkv -vcodec copy -acodec copy $NAME.m4v 

#!/usr/bin/perl
use strict;
use File::Basename;

my $debug=1;
my $inode;
my $output_dir="/recovery";
my $output_file="/tmp/foo.out";
# print "$ARGV[0]";
my $file="$ARGV[0]";
die "Exit - Need an argument/filename" if ($ARGV[0] eq "") ;

### Create the directory to put the recoveried file
my $dirname = dirname($file);
my $basename = basename($file);
print "Filename = $file\n" if ($debug) ;
print "DIRNAME = $dirname\n" if ($debug) ;
print "BASENAME= $basename\n" if ($debug);
my $single_file_recovery_directory="$output_dir/$dirname";
if ( ! -d $single_file_recovery_directory ) {
   print "$single_file_recovery_directory is not a directory\n" if ($debug);
        print "creating $single_file_recovery_directory\n" if ($debug);
        system("/bin/mkdir -p $single_file_recovery_directory");
}
$output_file="$single_file_recovery_directory/$basename";
print "Output file : $output_file\n" if ($debug);


my $dev="/dev/drbd10";
my $inode=`ls -i $file`;
$inode=(split(/ /,$inode))[0];
chomp($inode);
print "inode ='$inode'\n" if ($debug);
die "Exit - need an inode to continue" if ($inode eq "");

my $xfs_db_results=`xfs_db -r $dev -c "inode $inode" -c "bmap"`;
print $xfs_db_results;
die "Exit - xfs_db_results returned no results" if ($xfs_db_results eq "");
#data offset 0 startblock 648428604 (2/111557692) count 299 flag 0

my ($blocks_piece,$count)=(split(/ /,$xfs_db_results))[5,7];
# $blocks_piece =~ s/\//+/;
$blocks_piece =~ s/\(//;
$blocks_piece =~ s/\)//;
my ($blocks_piece_1,$blocks_piece_2)=(split(/\//,$blocks_piece))[0,1];
print "Blocks:$blocks_piece_1,$blocks_piece_2\n" if ($debug) ;
print "Count=$count\n" if ($debug) ;

# Determine the AG size
my $agblocks=`xfs_db -r $dev -c sb -c p | grep ^agblocks | sed 's/.* = //'`;
chomp($agblocks);
# my $agblocks="268435455";  # you can hardcode the value once you know it because it doesn't change
print "AG: $agblocks\n" if ($debug);

my $skip=$agblocks*$blocks_piece_1+$blocks_piece_2;

# Copy the extent in the first file, which consists of 6460 blocks (~26MB)
# in AG 7 starting at AG-relative block 2657536:
# system("dd if=$dev bs=4096 skip=$(($agblocks * 7 + 2657536)) count=6460 of=$output_file");
print "dd if=$dev bs=4096 skip=$skip count=$count of=$output_file\n" if ($debug);
system("dd if=$dev bs=4096 skip=$skip count=$count of=$output_file\n");

#!/usr/bin/perl

sub genRandomString {
   my ($max_length) = @_;
   $max_length ||= 10;
   return join('', map { chr(int(rand(26)) + ord('a')) } (1..$max_length));
}

my $foo=genRandomString(8) ;

print "$foo\n";

Hi Son,

Recently, Malinda and I visited her daughter in S.C.  We were invited to attend church, and Malinda had been there before and liked it.

The minister preached a good sermon, and then he went off on gay people and adultery.  We were both insulted and upset with what he said.  Even her daughter said he had never done that before.

I sat there and took it, but I was really agitated as was Malinda.  I didn't even speak to him as we left the church.  As Malinda said, "We'll never go there again."  Her daughter and grand daughter were quite upset also.

Later, I decided to write him a letter and let him know how upset we were.  It will probably be thrown in the trash can, but I couldn't let it pass.

At Malinda's suggestion, I am sending you a copy of the my letter.

I realize you live this every day but it was my first encounter with biased hatred.

Please realize this is not meant to upset you.  I love you more than ever and totally support you.

Love,
Dad

I've always loved game mechanics.  I love thinking of new games to play and the process of creating them. 

Back in the 90's I played Magic.  And I thought of a new game variant that I wrote up and played with my friends.

The game variant was called "Two-Headed Giant."

I liked the game, so I went online and I published my game variant to multiple Magic forums, websites, and even to the Mtg group on livejournal.   That was during the 90's.

Now, today, this morning, I'm reading the newest rulebook for Magic the Gathering and notice there's a Game Variant  section of the rules, and there printed in the rule book is my Game Variant "Two-Headed Giant."   And it's almost word for word exactly the way I wrote it.   Players start with 30 life.  Players on the same team share turns and phases.  On and on, exactly the way I created it.

So they published my idea, which I had already published on the internet a decade ago.  And yet, they gave me no credit for it. 

I would have liked to have just gotten a credit for the game which I created.

(( Now I'm gonna have to go through archive.org and see if I can find all the original publications I did when I originally created this game variant. ))

# sudo port install gimp
---> Computing dependencies for gimpError: Unable to execute port: can't read "startupitem.install": no such variable
To report a bug, see ...

# sudo port install gimp +no_startupitem