#!/usr/bin/ruby

#
# Copyright (c) 2004,2005 Florian Reitmeir <florian@reitmeir.org>
# based on a script from Peter Palfrader <peter@palfrader.org>
#
# All rights reserved.
#
# MIT license.
#

require 'optparse'
require 'find'

$VERBOSE = nil
$NOTHING = nil

def show_help(parser, code=0, io=STDOUT)
  io.puts parser
  exit(code)
end
ARGV.options do |opts|
  opts.on_tail("-h", "--help", "Display this help screen") { show_help(opts) }
  opts.on("-v", "--verbose"    , nil, "Be verbose")        { $VERBOSE = 1 }
  opts.on("-n", "--do-nothing"    , nil, "Do nothing")        { $VERBOSE = 1; $NOTHING = 1 }
  opts.parse!
end

root = '/var/www/'
dir = "/logs-archive/"

year = Time.new.year.to_s
month = Time.new.month.to_s

Dir.chdir(root)

Dir.glob("*").each{ |client|
	Dir.chdir(root)
	next unless File.stat( client ).directory?
	next unless File.exist?( client + dir )
	next unless File.stat( client + dir ).directory?

	Dir.chdir(client+dir)

	if $VERBOSE then
	  puts 'pwd   :'+root+client+dir
	end

	if ! File.writable?(root+client+dir) then
		puts 'log dir not writeable'
		exit 1
	end

	files = Array.new

	Find.find(root+client+dir) { |file|
		if File.file?(file) then
			files.push(file);
		end
	}
	files.sort! # sort by date (name in this case)

	files.each { |file|
			if file =~ %r{(.*)-(access|error).log.(\d+)-(\d)+-(\d+)(-\d+)?.gz} then
				if ($3 == year && $4 == month) then
					next
				else
					store = [$1,$2,$3].join('-')+'.gz'
				end
				puts ' src: '+file if $VERBOSE
				puts 'dest: '+store if $VERBOSE 
				if $NOTHING && system('cat '+file+' >>'+store) then
					File.unlink(file)
				end
			else
				puts 'did not match: '+file
			end
	}
}