Untitled

sub js_string($)
{
	my $str=shift;

	$str=~s/\\/\\\\/g;
	$str=~s/'/\\'/g;
	$str=~s/([\x00-\x1f\x80-\xff])/sprintf "\\x%02x",ord($1)/ge;
	$str=~s/([\x{100}-\x{ffff}])/sprintf "\\u%04x",ord($1)/ge;
	$str=~s/(\r\n|\r|\n)/\\n/g;

	return "'$str'";
}