/* (c)Copyright Pencil Co.,Ltd 2008 All rights reserved.
 * Version: 1.0
 */

// Base64
//document.write('<' + 'script type="text/javascript" src="/pasystem/js/base64.js"><' + '/script>');

// HTTP REFERRER
var ref = document.referrer;
//var ref = 'http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rlz=1T4GZEZ_jaJP279JP279&q=%e3%82%b7%e3%83%8e%e3%82%b1%e3%83%b3';
//ref = '';


// This URL
var url = document.URL;


//encodeURI
// var refenc = encodeURI(ref);
// var urlenc = encodeURI(url);


// BASE64 Encode
var refenc = rtmsbase64encode(ref);
var urlenc = rtmsbase64encode(url);


// Cookie
document.write('<' + 'script type="text/javascript" src="/pasystem/php/rtms.js.php?ref=' + refenc + '&url=' + urlenc + '"><' + '/script>');

/*
 * Interfaces:
 * b64 = rtmsbase64encode(data);
 */

function rtmsbase64encode(str) {
	// BASE64 Encode Chars
	var base64EncodeChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
	var out, i, len;
	var c1, c2, c3;
	len = str.length;
	i = 0;
	out = "";
	while(i < len) {
		c1 = str.charCodeAt(i++) & 0xff;
		if(i == len) {
			out += base64EncodeChars.charAt(c1 >> 2);
			out += base64EncodeChars.charAt((c1 & 0x3) << 4);
			out += "==";
			break;
		}
		c2 = str.charCodeAt(i++);
		if(i == len) {
			out += base64EncodeChars.charAt(c1 >> 2);
			out += base64EncodeChars.charAt(((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4));
			out += base64EncodeChars.charAt((c2 & 0xF) << 2);
			out += "=";
			break;
		}
		c3 = str.charCodeAt(i++);
		out += base64EncodeChars.charAt(c1 >> 2);
		out += base64EncodeChars.charAt(((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4));
		out += base64EncodeChars.charAt(((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6));
		out += base64EncodeChars.charAt(c3 & 0x3F);
	}
	return out;
}