\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write(" \n"); document.write("

\n"); document.write(" \n"); document.write("

1\n");
document.write("2\n");
document.write("3\n");
document.write("4\n");
document.write("5\n");
document.write("6\n");
document.write("7\n");
document.write("8\n");
document.write("9\n");
document.write("10\n");
document.write("11\n");
document.write("12\n");
document.write("13\n");
document.write("14\n");
document.write("15\n");
document.write("16\n");
document.write("17\n");
document.write("18\n");
document.write("19\n");
document.write("20\n");
document.write("21\n");
document.write("22\n");
document.write("23\n");
document.write("24\n");
document.write("25\n");
document.write("26\n");
document.write("27\n");
document.write("28\n");
document.write("29\n");
document.write("30\n");
document.write("31\n");
document.write("32\n");
document.write("33\n");
document.write("<\/pre>\n");
document.write("			<\/td>\n");
document.write("

\n"); document.write("

sub<\/span> shorten<\/span> <\/span>{\n");
document.write("    <\/span><\/span>my<\/span> $self<\/span> = shift<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $request<\/span> = ENDPOINT.\'/GetCompressedURLByURL?url=\'<\/span>.$self<\/span>-><\/span>_urlencode;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $xml<\/span> = $self<\/span>-><\/span>_do_http( $request<\/span> );\n");
document.write("    <\/span><\/span>return<\/span> undef<\/span> unless<\/span> $xml<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $xpc<\/span>   = $self<\/span>-><\/span>_get_xpc( $xml<\/span> );\n");
document.write("    <\/span><\/span>my<\/span> $puny<\/span>  = $xpc<\/span>-><\/span>findvalue( \'//p:puny\'<\/span> );\n");
document.write("    <\/span><\/span>my<\/span> $ascii<\/span> = $xpc<\/span>-><\/span>findvalue( \'//p:ascii\'<\/span> );\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>$self<\/span>-><\/span>puny( $puny<\/span> );\n");
document.write("    <\/span><\/span>$self<\/span>-><\/span>ascii( $ascii<\/span> );\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>return<\/span> 1;\n");
document.write("}\n");
document.write("\n");
document.write("sub<\/span> long<\/span> <\/span>{\n");
document.write("    <\/span><\/span>my<\/span> $self<\/span> = shift<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $request<\/span> = ENDPOINT.\'/GetURLByCompressedURL?url=\'<\/span>.$self<\/span>-><\/span>_urlencode;\n");
document.write("\n");
document.write("    <\/span><\/span>my<\/span> $xml<\/span> = $self<\/span>-><\/span>_do_http( $request<\/span> );\n");
document.write("    <\/span><\/span>return<\/span> undef<\/span> unless<\/span> $xml<\/span>;\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>my<\/span> $xpc<\/span>      = $self<\/span>-><\/span>_get_xpc( $xml<\/span> );    \n");
document.write("    <\/span><\/span>my<\/span> $original<\/span> = $xpc<\/span>-><\/span>findvalue( \'//p:url\'<\/span> );\n");
document.write("\n");
document.write("    <\/span><\/span>$self<\/span>-><\/span>original( $original<\/span> );\n");
document.write("    <\/span>\n");
document.write("    <\/span><\/span>return<\/span> 1;\n");
document.write("}\n");
document.write("<\/pre><\/pre>\n");
document.write("		<\/td>\n");
document.write("		<\/tr>\n");
document.write("		<\/table>\n");
document.write("	\n");
document.write("	<\/div>\n");
document.write("\n");
document.write("\n");
document.write("  \n");
document.write("  \n");
document.write("  \n");
document.write("    \n");
document.write("      \n");
document.write("      <\/a>\n");
document.write("    <\/div>\n");
document.write("  \n");
document.write("    Pastie #416749<\/a> linked directly from Pastie<\/a>.\n");
document.write("  <\/div><\/div>");