# coding: utf-8
#
# compress.rb
#
# cronとかいうので定期的にバックアップするのが普通。
#
# * 2005-09-24
#   文字とか順番とか些細な変更。

add_conf_proc('compress', 'データのバックアップ'){

	tar_path = '/usr/bin/tar';
	target_dir = @conf.data_path; # 圧縮対象のフォルダ
	out_dir = "/home/vvvvvv/cgi_data/ds14050/diary/cache/backup"; # 圧縮ファイルを置くフォルダ
	out_url = nil; # 圧縮ファイルを置くフォルダの URL。out_dirが非公開の場合は nil。

	error_message = '';
	compressed_files = '';
	byteformat = lambda{|size|
		size = size.to_f
		_ = %w(B KiB MiB GiB TiB).each{|unit|
			break "%d%s"%[size.ceil,unit] if size <= 999
			size /= 1024
			next
		}
		return _ || ("%dPiB" % size.ceil)
	}

	begin
		Dir.mkdir(out_dir) unless(FileTest.exist?(out_dir));

		if(@cgi['compress'] == 'data')
			out_file = "#{File.basename(target_dir)}.#{Time.now.strftime('%Y%m%d')}.tar.gz";
			command = %Q[#{tar_path} --create --gzip --file "#{File.join(out_dir, out_file)}" "#{target_dir}"];
			out = %x[#{command}];
			error_message << "<p><code>#{command}</code><br /> returned #{$?.exitstatus}.</p>\n";
			error_message << "<pre>#{CGI.escapeHTML(out)}</pre>\n";
		end
		if(@cgi['del'] == 'all')
			Dir.chdir(out_dir){
				File.delete( * Dir.glob("#{File.basename(target_dir)}.????????.tar.gz") );
			} if(FileTest.directory?(out_dir));
		elsif(@cgi['del'] =~ /^\d{8}$/)
			path = File.join(out_dir, "#{File.basename(target_dir)}.#{@cgi['del']}.tar.gz");
			File.delete(path) if(FileTest.file?(path));
		end

		Dir.chdir(out_dir){
			compressed_files << "<ul>\n";
			Dir.glob("#{File.basename(target_dir)}.????????.tar.gz").sort.reverse_each{|f|
				ymd = f[-15, 8];
				compressed_files << '<li>';
				if(out_url)
					compressed_files << %Q[ <a href="#{CGI.escapeHTML File.join(out_url, f)}">#{ymd}</a>];
				else
					compressed_files << ymd;
				end
				compressed_files << %Q[ (#{byteformat[File.size(f)]})]
				compressed_files << %Q[ [<a href="#{@conf.update}?conf=compress;del=#{ymd}">削除する</a>]</li>\n];
			}
			compressed_files << "</ul>\n";
		} if(FileTest.directory?(out_dir))

	rescue Exception => e
		error_message << "<h3>ERROR</h3>";
		error_message << "<pre>#{CGI.escapeHTML(e.message)}\n#{CGI.escapeHTML(e.backtrace.join("\n"))}</pre>\n";
	end

	<<-"HTML";
	#{error_message}
	<h3><a href="#{@conf.update}?conf=compress;compress=data">日記データを圧縮する</a></h3>
	<h3>圧縮されたファイル一覧</h3>
	#{compressed_files}
	<h3><a href="#{@conf.update}?conf=compress;del=all">全ての圧縮ファイルを削除する</a></h3>
	HTML
}