Life's End

fmodlog

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Download: fmodlog.rb

#!/usr/bin/ruby
#title:File Modification, backup and generation Log
#author:Aaron Radke
#date:2007-10-01
#		add include list
#date:2007-09-27
#		add skip_list
#		add dir_list
#		clean up the options file
#date: 2007-09-20
#		add file backup functions
#date: 2007-08-23
#  rubify for windows
#-------------
require 'find'
require 'fileutils'
   
#constants
HOME=ENV['userprofile']
LOG="#{HOME}/Library/Logs/fmodlog.log"
DIR_LIST = ["#{HOME}/Desktop","#{HOME}/My Documents","#{HOME}/bin"]
INCLUDE_LIST = ['\.rb$','\.aao$','\.txt','\.doc','\.ppt','\.html','\.vsd','\.xls','\.h','\.c','\.cpp','\.java','\.pde']
SKIP_LIST = ['\bTemp\b','\bLocal Settings','\bLogs\b','\.LOG$',"MS_HTML_Model_1_US_Only","no_sync"]
DO_BACKUP = true
BACKUP_DIR = "H:/backup"
PAUSE_MINUTES=5
   
      
def backup(filename)
   INCLUDE_LIST.each{|p|
      if filename =~ /#{p}/i
         copyToDateFolder(filename,BACKUP_DIR)
      end
   }
end
   
def copyToDateFolder(file,dir)
   now = Time.new()
   datestamp = now.strftime("%Y-%m-%d")
   date_dir = "#{dir}/#{datestamp}"
   if ! File.exists?(date_dir)
      Dir.mkdir(date_dir)
   end
   FileUtils.cp(file,date_dir)
end
   
      
puts "fmodlog.rb scanning every #{PAUSE_MINUTES} minutes..."
puts "==========="
pause_seconds = PAUSE_MINUTES*60
begin
   #init
   now = Time.new()
   datestamp = now.strftime("%Y-%m-%d %H:%M:%S")
   filecount = 0
   puts "------#{datestamp}----"
      
   logfile = File.open(LOG,"a")
   Find.find(*DIR_LIST) do |filename|
      SKIP_LIST.each{|p|
         if filename =~ /#{p}/i
            puts "Skip: #{filename}"
            Find.prune
            next
         end
      }
         
      if File.file?(filename)
         filecount = filecount.next
         file = File.stat(filename)
         if file.mtime > (now - pause_seconds)
            puts "#{file.mtime.strftime("%Y-%m-%d %H:%M:%S")} #{filename}"
            logfile.puts "#{datestamp} #{filename}"
            backup(filename) if DO_BACKUP
         end
         # print "#{filecount}, " if filecount % 1000 == 0
      end
   end
   logfile.close
   puts "Sleeping #{PAUSE_MINUTES} minutes after checking #{filecount} files ..."
end while sleep(pause_seconds)

rgrep

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Download: rgrep.rb

dirname = ARGV[0]
regexp_string = ARGV[1]
def search_file(file,regexp)
   f = File.open(file,'r')
   found = false
#	puts file
   f.each{|line|
      if line.match(regexp)
         if not found
            puts "\n#{file}"
         end
         puts "\t" + line
         found = true
      end
   }
   f.close
end
   
require 'find'
Find.find(dirname) do |file|
   print '.'
   search_file(file,/#{regexp_string}/) if File.file?(file)
end

rhttpd

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Download: cgi_handler.rb

require 'webrick'
include WEBrick
   
def start_webrick(config = {})
   # always listen on port 8080
   config.update(:Port => 8080)
   server = HTTPServer.new(config)
   yield server if block_given?
   ['INT', 'TERM'].each {|signal|
   trap(signal) {server.shutdown}
   }
   server.start
end
   
#start_webrick(:DocumentRoot => "g:/infoproweb/webfolder/cgi-bin/ruby",:CGIInterpreter => "g:/ruby/bin/ruby.exe")
#start_webrick(:DocumentRoot => File.expand_path(".."), :CGIInterpreter => "c:/ruby/bin/ruby.exe")
   
      
start_webrick( {:CGIInterpreter => "c:/ruby/bin/ruby.exe"}) {|server|
   cgi_dir = File.expand_path('cgi')
   fh = HTTPServlet::FileHandler
   fh.add_handler("rb",HTTPServlet::CGIHandler);
   fh.add_handler("rbw",HTTPServlet::CGIHandler);
   opts = {:FancyIndexing =>false}
   server.mount("/cgi", fh, "cgi", opts)
   server.mount("/", fh, ".." , opts)
}
#

Using the caps key for the control key

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Windows

Double click the following text field to move your caps lock key to a less used key and gain a nicer control key.

Download: user_swap_caps_lock_as_control_caps_to_scroll.reg

tag and cdt

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Download: tag

#!/usr/bin/env ruby
#title:tag
#author:Aaron Radke
#date:2008-01-30
#abstract:a simple tagging app to save snippits and retreave them back
#------------
tag_file = "#{ENV['HOME']}/.tags"
   
#puts "ARGV: #{ARGV.join(",")}"
   
key = ARGV.shift
   
if key == "-s" and ARGV.size >= 2
   f = File.open(tag_file,"a")
   tag = ARGV.shift
   value = ARGV.join(" ")
   f.puts "#{tag}\t#{value}"
   f.close
   exit
end
   
unless key
   null
      puts "Requries an argument"
      exit
end
   
tag_string = <

vim settings

Aaron Radke — Mon, 26 Nov 2007 15:23:04 +0000

Download: _vimrc

set nocompatible
source $VIMRUNTIME/vimrc_example.vim
source $VIMRUNTIME/mswin.vim
behave mswin
set ai
set spell
set ignorecase smartcase
set gfn=Lucida_Console:h9:cANSI
set selectmode=
set path+=**
   
set tabstop=2
set shiftwidth=2
   
colorscheme evening
   
      
"--------Commands to match vimized text mate
"iabbr aaotitlex title:Unsetauthor:Aaron Radkedate:=strftime("%Y-%m-%d")abstract:grammar:aaoDoc_blogWithToc.markdown---------
"ab aaotitle	kD!!ruby -e 'require "date"; puts "aaotitle:Unset\ndate:\#{DateTime.now}\nauthor:Aaron Radke\n---------\n"'kJJi
ab aaotitle	title:Unsetauthor:Aaron Radke!!ruby -e 'require "date"; puts "date:\#{DateTime.now}"'oabstract:grammar:aaoDoc_blogWithToc.markdown---------6kwwDa
ab datetime kD!!ruby -e 'require "date"; print DateTime.now'kJJi
ab datenow kD!!ruby -e 'puts Time.now.strftime("\%Y-\%m-\%d")'kJJi
   
"-comments
vmap 	:rubydo $_ = $_.match(/^(\S*)\#(.*)/)?"#{$1}#{$2}":"\##{$_}"
nmap 	V:rubydo $_ = $_.match(/^(\S*)\#(.*)/)?"#{$1}#{$2}":"\##{$_}"
imap 	V:rubydo $_ = $_.match(/^(\S*)\#(.*)/)?"#{$1}#{$2}":"\##{$_}"a
   
"-execute the current file
map 	:!start %
imap 	:!start %a
   
"-save
map 	:w
imap 	:wa
   
"-delete line
nmap 	dd
imap 	ddo
vmap 	d
   
"-duplicate line
nmap 	yyp
imap 	yyp
vmap 	ykp
   
"-select word
"nmap 	wbvw
imap 	wbvw
vmap 	bw
   
"-ruby evaluation
nmap 	V:rubydo $_ = eval($_).to_s
vmap 	:rubydo $_ = eval($_).to_s
   
      
set lines=70 columns=100
   
      
set diffexpr=MyDiff()
   
function MyDiff()
let opt = '-a --binary '
if &diffopt =~ 'icase' | let opt = opt . '-i ' | endif
if &diffopt =~ 'iwhite' | let opt = opt . '-b ' | endif
let arg1 = v:fname_in
if arg1 =~ ' ' | let arg1 = '"' . arg1 . '"' | endif
let arg2 = v:fname_new
if arg2 =~ ' ' | let arg2 = '"' . arg2 . '"' | endif
let arg3 = v:fname_out
if arg3 =~ ' ' | let arg3 = '"' . arg3 . '"' | endif
let eq = ''
if $VIMRUNTIME =~ ' '
   if &sh =~ '\ ' . arg3 . eq
endfunction
   
"auto cd to current file on load
autocmd BufEnter * lcd %:p:h
   
      
" Project settings
let g:proj_window_width = 40
nmap   ToggleProject

Life's End

fmodlog

Fmodlog

rgrep

Rgrep

rhttpd

Rhttpd

Using the caps key for the control key

Using the Caps Key for the Control Key

Windows

tag and cdt

Tag and Cdt

vim settings

Vim Settings