#!/usr/bin/perl

=head1 NAME

firewall.pl - a thing to turn off/on the outgoing mail ports on the router here
at least until I can find out what's generating the spam on this network.

=head1 SYNOPSIS

This script can be tested from the command-line: 

    perl firewall.pl
    perl firewall.pl action=open rulename=SMTP  # opens firewall rules for outgoing SMTP traffic
    perl firewall.pl action=close rulename=SMTP # closes firewall rules to outgoing SMTP traffic

=head1 DESCRIPTION

The B<firewall.pl> script logs on to a router, runs an iptables -L command, and,
if a requested action has been supplied, checks to see whether any modifications 
to those rules are required in order to get to the required state, and will
perform those commands.

If modifications to the iptables are attempted, then they are checked again to 
see whether the modifications took place successfully.

Rules are configured via the B<firewall.json> file).

=head1 INSTALLATION

sudo apt-get install libexpect-perl
sudo apt-get install libjavascript-minifier-perl (or libjavascript-minifier-xs-perl) 

(this should be the Peter Michaux and Eric Herrera minifier, not the Douglas Crockford one)

Update firewall.json. 
Place the script in a cgi-bin directory.
Try running it. 

=head1 TODO

- make the command-line interface nicer
- rewrite the functionality of <a href="http://www.checkpoint.com/">checkpoint</a> in perl
- document the configuration file format

=head1 VERSION

$Id: firewall.pl,v 1.24 2013-02-25 21:51:18 knoxg Exp $

=head1 AUTHOR

Greg Knox <knoxg@randomnoun.com>

http://www.randomnoun.com/wp/2013/02/25/firewalling-your-smtp-traffic/

=head1 LICENSE

(c) 2013 randomnoun. All Rights Reserved. 

This work is licensed under a Creative Commons Attribution 3.0 Unported License. 
(http://creativecommons.org/licenses/by/3.0/)

=cut

use CGI;
use JSON;
use Expect;
use Data::Dumper;
use MIME::Base64;
use JavaScript::Minifier qw(minify);
use List::Util qw(first);
use Net::Domain qw(hostname hostfqdn hostdomain); # has been in standard distribution since perl 5.7.3
 
my @cmd;
my $procIn, $procOut, $procErr;
my %config;
my %exp;

# to disable comments on router, prefix all commands with 'echo'
#my $DEBUG_ECHO = "echo ";
my $DEBUG_ECHO = "";
 
$STATUS_CLOSED=0;
$STATUS_PARTIAL=1;
$STATUS_OPEN=2;

@textStatus=("CLOSED", "PARTIALLY CLOSED", "OPEN");

#################################################################
# logging / configuration

sub getStructuredListItem {
  my $listRef = shift;
  my $key = shift;
  my $value = shift;
  my @list = @{$listRef};
  for (my $i=0; $i<=$#list; $i++) {
    if ($listRef->[$i]{$key} eq $value) { return $listRef->[$i]; }
  }
  return ();
}

sub logOutput {
  my $text = shift;
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  my $output = sprintf("%02d/%02d/%04d %02d:%02d:%02d\t%s\n", 
      $mday, $mon+1, $year+1900, $hour, $min, $sec, $text);
  open (LOG, ">>" . $config{"logfile"} ) || die "Could not open " . $config{"logfile"} . ": $!"; 
  print LOG $output;
  close (LOG);
}

sub parseConfig {
    my $firewallJsonText, %firewallJson;
    open (INPUT, "firewall.json") || die "Could not open firewall.json: $!";
    $firewallJsonText = do { local $/; <INPUT> };
    close(INPUT);
    $firewallJsonText = minify(input => $firewallJsonText);
    %firewallJson = %{decode_json $firewallJsonText}; 
    %config = %{$firewallJson{"config"}};
}

#################################################################
# expect subroutines

sub exp_connect {
  my @expres;
  if ($config{"connection"} eq "telnet-busybox") { 
    $exp = new Expect();
    $exp->raw_pty(1);
    $exp->log_stdout(0);
    $exp->spawn("telnet", $config{"machine"}) || die "Cannot run telnet: $!\n";
    # print "spawned\n";
    @expres = $exp->expect($config{"timeout"}, "BusyBox on (none) login:");
    if ($expres[1]!=undef) { die "Error: $expres[1]; before=" . $exp->before() . "\n"; }
    $exp->send($config{"username"} . "\n");
    # print "sent user\n";
    @expres = $exp->expect($config{"timeout"}, "Password:");
    if ($expres[1]!=undef) { die "Error: $expres[1]; before=" . $exp->before() . "\n"; }
    $exp->send($config{"password"} . "\n");
    @expres = $exp->expect($config{"timeout"}, "# ");
    if ($expres[1]!=undef) { die "Error: $expres[1]; before=" . $exp->before() . "\n"; }
    $exp->clear_accum();
  } else {
    die "Unknown connection type '$config{connection}'\n";
  }    
}

sub exp_getiptables {
  if ($config{"connection"} eq "telnet-busybox") {
    $exp->clear_accum(); 
    $exp->send("iptables -L FORWARD\n");
    $exp->expect(undef, "# ");
  } else {
    die "Unknown connection type '$config{connection}'\n";
  }  
  return $exp->before();
}

sub exp_disconnect {
  if ($config{"connection"} eq "telnet-busybox") { 
    $exp->send("exit\n");
    $exp->close();
  } else {
    die "Unknown connection type '$config{connection}'\n";
  }  
}

# parse the output from an iptables -L command
sub parseRules {
  my $iptablesOutput = shift;
  @lines = split("\n", $iptablesOutput);
  my @rules;
  my $state=0;
  for $line (@lines) {
    #print "$state: $line\n";
    if ($state==0 && $line=~/^target/) {
      $state=1;
    } elsif ($state==1 && $line=~/^#/) {
      $state=2;
    } elsif ($state==1) {
      if (($target, $prot, $opt, $source, $dest, $spec)=($line=~/^(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.*?)\s*$/)) {
        #print "$target,$prot,$opt$,$source,$dest,$spec\n";
        $idx++; 
        my %hash = ("target"=>$target,"prot"=>$prot,"opt"=>$opt,"source"=>$source,"dest"=>$dest,"spec"=>$spec);
        @rules[$#rules+1] = \%hash;
      } else {
        die "parse error on $line\n";
      }
    };
  }
  return @rules;  
}

# determine the status of a rule, given the parsed result of an iptables -L command
sub getStatus {
  my $rulename = shift;
  my $allIpRulesRef = shift;
  my ($i, $specRegex, $rc);
  my $thisFwRuleRef = getStructuredListItem(\@{$config{"rules"}}, "name", $rulename);
  my %thisFwRule = %{$thisFwRuleRef};
  my @thisIpRule = @{$thisFwRule{"iptable"}};
  my @allIpRules = @{$allIpRulesRef};
  
  $rc = 0; # matching rulecount
  for ($i=0; $i<=$#thisIpRule; $i++) {
    $specRegex = $thisIpRule[$i]{"specAsServiceName"} eq "" ? 
      $thisIpRule[$i]{"prot"} . " dpt:" . $thisIpRule[$i]{"spec"} :
      $thisIpRule[$i]{"prot"} . " dpt:(" . $thisIpRule[$i]{"spec"} . "|" . $thisIpRule[$i]{"specAsServiceName"} . ")";
    if (0 < grep { %x=%{$_}; $x{"target"} eq $thisIpRule[$i]{"target"} && $x{"prot"} eq $thisIpRule[$i]{"prot"} &&
      $x{"opt"} eq $thisIpRule[$i]{"opt"} && $x{"source"} eq $thisIpRule[$i]{"source"} && $x{"dest"} eq $thisIpRule[$i]{"dest"} &&
      $x{"spec"} =~ qr/$specRegex/ } @allIpRules) {
        $rc++;
    }
  }
  print "Rule " . $thisFwRule{"name"} . ": has " . $rc . " of " . ($#thisIpRule+1) . " rules active\n"; 
  if ($rc>=$#thisIpRule+1) { return $STATUS_CLOSED; }
  elsif ($rc==0) { return $STATUS_OPEN; }
  else { return $STATUS_PARTIAL; } 
}


# convert a ASP/JSP-like string into its perl script equivalent. 
# The returned string can be eval'ed in order to execute the script. 
sub getTemplateAsPerl {
  my $src = shift;
  my ($eval, $pre, $post, $inmlb);
  #print "src is $src\n";
  $eval = "";
  while ($src =~ m/\G(.*?)<%/sgc) {
    $pre = $1;
    $pre =~ s/'/\\'/g; $pre =~ s/\n/'."\\n";\nprint '/gs;
    if ($pre ne "") { $eval .= "print '" . $pre . "';\n"; }
    if ($src =~ m/\G=(.*?)%>/gc) {
      $eval .= "print " . $1 . ";\n";
        
    } elsif ($src =~ m/\G(.*?)%>/gsc) {
      $eval .= $1 . "\n";
      
    } else {
      # '<%' without matching '%>'; could raise a syntax error but will just pass it through
	  $eval .= "print '<%'\n";
      
    } 
  }
  if ($src =~ m/\G(.+)$/s) {
    $post = $1;
    $post =~ s/'/\\'/g; $post =~ s/\n/'."\\n";\nprint '/gs;
    if ($pre ne "") { $eval .= "print '" . $post . "';\n"; }
  }
  
  #print "eval is $eval\n===================\n";
  $eval =~ s/print '';\n//g;
  return $eval;
}

#################################################################
# main processing
my $q = CGI->new;
eval {
    my $action = $q->param("action");
    my $rulename = $q->param("rulename"); 
    my $pathInfo = $q->path_info();
    my $msg = "";
	my @modcmd=(); # modification commands
	my @oldIpRules=();
	my @allIpRules=();

	if ($pathInfo =~ m!image/(.*\.(?:gif|png))!) {
        $key = $1;
        setResources();
        if (defined $resources{$key}) {
            # should probably set safe-to-cache headers here
            $resourceBase64 = $resources{$key};
            $resourceBinary = MIME::Base64::decode($resourceBase64);
            print $q->header( {
              -type=> ($key=~/.gif$/ ? "image/gif" : "image/png"), 
              -Content_length=>length($resourceBinary) } );
            print $resourceBinary;
        } else {
            print $q->header( {-status=>"404 File Not Found"} );
        }
        exit;
    
    } elsif ($pathInfo =~ m!prototype.js.min!) {
        print $q->header( {-type=>"text/javascript" } );
        printPrototypeJsMin();
        exit;

    } elsif ($pathInfo =~ m!firewall.css!) {
        print $q->header( {-type=>"text/css" } );
        printFirewallCss();
        exit;

    } elsif ($pathInfo =~ m!firewall.js!) {
        print $q->header( {-type=>"text/javascript" } );
        printFirewallJs();
        exit;
    
    } else {
    
    	# open, close or nothing
		

		parseConfig();
		if ($^O ne "MSWin32") { $ENV{"PATH"}="/usr/bin:/bin"; }

		# $rulename = "SMTP"; # only rule we're interested in atm
	
		exp_connect();
		$procOut = exp_getiptables();
		exp_disconnect();
		@allIpRules = parseRules($procOut);  # previous rules

	    # i have absolutely no idea why I need to reference and then dereference this
	    $rulesRef = \@{$config{"rules"}};
	    @rules = @{$rulesRef};
	    for ($i=0; $i<=$#rules; $i++) {
	      $thisFwRuleRef = $rules[$i];
  	 	  #$thisFwRuleRef = getStructuredListItem(\@{$config{"rules"}}, "name", $rulename);
  	 	  $status = getStatus($thisFwRuleRef->{"name"}, \@allIpRules);
		  $thisFwRuleRef->{"oldstatus"} = ($status == 0 ? "closed" : ($status == 1 ? "partial" : "open"));
		  $thisFwRuleRef->{"status"} = ($status == 0 ? "closed" : ($status == 1 ? "partial" : "open"));
		  $thisFwRuleRef->{"verb"} = ($status == 0 ? "open" : ($status == 1 ? "open" : "close"));
		}
		
		$status = getStatus($rulename, \@allIpRules);
		if ($action eq "close") {
		  logOutput "Firewall rule '$rulename' close requested (status=$textStatus[$status])";
		  $msg = "Firewall closed";
		} elsif ($action eq "open") {
		  logOutput "Firewall rule '$rulename' open requested (status=$textStatus[$status])";
		  $msg = "Firewall opened";
		}
	    
		$thisFwRuleRef = getStructuredListItem(\@{$config{"rules"}}, "name", $rulename);
		#$thisFwRuleRef->{"oldstatus"} = ($status == 0 ? "closed" : ($status == 1 ? "partial" : "open"));
		#$thisFwRuleRef->{"status"} = ($status == 0 ? "closed" : ($status == 1 ? "partial" : "open"));
		@thisIpRule = @{$thisFwRuleRef->{"iptable"}}; 
		
		#print Dumper %thisFwRule;
		#print " in \n";
		#print Dumper %config;
		
		####################### up to about here

        @oldIpRules = @allIpRules;
        		
		for ($i=0; $i<=$#thisIpRule; $i++) {
		    $specRegex = $thisIpRule[$i]{"specAsServiceName"} eq "" ? 
		      $thisIpRule[$i]{"prot"} . " dpt:" . $thisIpRule[$i]{"spec"} :
		      $thisIpRule[$i]{"prot"} . " dpt:(" . $thisIpRule[$i]{"spec"} . "|" . $thisIpRule[$i]{"specAsServiceName"} . ")";
		    # print $specRegex;    
		    @matching = grep {   
		      ($allIpRules[$_]{"target"} eq $thisIpRule[$i]{"target"} && 
		      $allIpRules[$_]{"prot"} eq $thisIpRule[$i]{"prot"} &&
		      $allIpRules[$_]{"opt"} eq $thisIpRule[$i]{"opt"} && 
		      $allIpRules[$_]{"source"} eq $thisIpRule[$i]{"source"} && 
		      $allIpRules[$_]{"dest"} eq $thisIpRule[$i]{"dest"} &&
		      $allIpRules[$_]{"spec"} =~ qr/$specRegex/)  } 0..$#allIpRules;
		    # print Dumper @matching;  
		    if ($#matching == -1) {   
		        #print "rule $i missing\n";
		        if ($action eq "close") {
		            # rule is missing, add it
		         	push @modcmd, $DEBUG_ECHO . "iptables -I FORWARD 1 -p $thisIpRule[$i]{prot} --dport $thisIpRule[$i]{spec} -j $thisIpRule[$i]{target}";
		        }  
		    } else {
		        #print "rule $i present\n";
		        if ($action eq "open") {
		            for ($j=0; $j<=$#matching; $j++) {
		                # rule is present, delete it
		         	    push @modcmd, $DEBUG_ECHO . "iptables -D FORWARD " . (($matching[$j]-$j) + 1);  # TODO: exit on failure
		         	    splice @allIpRules, ($matching[$j]-$j), 1;
		         	}
		        }  
		    }
		}
		
		# print Dumper @modcmd;
		
		if ( $#modcmd >= 0) {
			# perform actions on the router
			
			exp_connect();
			for ($i=0; $i<=$#modcmd; $i++) {
			  $exp->send($modcmd[$i] . "; if [ \"$?\" -ne \"0\" ]; then echo \"Failed\"; exit; fi\n");
		      $exp->expect(undef, "# ");
			}
		    $procOut = exp_getiptables();
		    exp_disconnect();
		    
		    @allIpRules = parseRules($procOut);  # could check to see if this is what we expected
		    $status = getStatus($rulename, \@allIpRules);
		    # XXX: not sure if this is updating properly
		    $thisFwRuleRef->{"status"} = ($status == 0 ? "closed" : ($status == 1 ? "partial" : "open"));
		    $thisFwRuleRef->{"verb"} = ($status == 0 ? "open" : ($status == 1 ? "open" : "close"));
		
		} else {
		    # no commands executed; don't display new/old rules
		    @oldIpRules = ();
		}
		if ($action eq "close") {
		  logOutput "Firewall closed (status=$textStatus[$status])";
		  $msg = "Firewall closed";
		} elsif ($action eq "open") {
		  logOutput "Firewall opened (status=$textStatus[$status])";
		  $msg = "Firewall opened";
		}
	}

    print $q->header( {-type=>"text/html" } );	
	$html = getFirewallHtmlTemplate();
	# convert this into a perl function and run it
	$html = getTemplateAsPerl($html);
	eval $html;
	if ($@) { die $@; }
};
if ($@) {
    $errorString = $@;
    $host = ($^O eq "linux" || $^O eq "darwin" ? hostfqdn() : $q->server_name());
    if ($host eq "localhost") { $host = hostfqdn(); } # win32 cmdline
    
    $errorString = "Error in firewall.pl script on $host: $errorString<br/>\nprocOut: ${procOut}<br/>\nprocErr: ${procErr}<br/>\n";
    print $q->header();
    print $errorString;
    print "<hr/>\n";
    print "Real user id: $< , Effective userId: $> <br/>\n";
}



########################################################
# firewall.html
sub getFirewallHtmlTemplate {
    return <<'__EOFIREWALLHTML';
<%
  my $i, $status;
  my @drules;
  my %drule;
%>
<html>
<head>
<title>Simple ADSL firewall</title>
<link rel="stylesheet" href="firewall.pl/firewall.css" type="text/css" />
<link rel="shortcut icon" type="image/gif" href="firewall.pl/image/favicon.gif" />
<script src="firewall.pl/prototype.js.min"  type="text/javascript"></script>
<script src="firewall.pl/firewall.js"  type="text/javascript"></script>
</head>
<body onload="initWindow()">
<div class="header">
<a href="firewall.pl"><img src="firewall.pl/image/firewall48.png" style="border:none; float:left; margin: 10px;"></a> 
<a href="firewall.pl"><div class="large">Simple ADSL Firewall</div></a>
<div class="small">Protecting your multinational corporation / family from something&trade;.</div>
</div>
<% 
  if ($#modcmd>=0 || $msg ne "") { 
%>
<div class="action"><div class="m">
  <div class="actionText"><%= $msg %></div>
<% 
    if ($#modcmd>=0) { 
%>
  <div class="toggleLink toggleText" target="commands">Click to view commands sent to router</div>
  <div id="commands" class="toggleTarget command"><pre>
<%= join "\n", @modcmd %>
  </pre></div>
<%  
    }
%>
</div></div>
<% 
  } 
%>
<% 
  if ($#oldIpRules>=0) { 
%>
<div class="status previous"><div class="m">
  <div class="statusHeader"><div class="m">Previous state</div></div>
<%
  $rulesRef = \@{$config{"rules"}};
  @rules = @{$rulesRef};
  for ($i=0; $i<=$#rules; $i++) {
    %rule = %{$rules[$i]};
%>  
  <div class="rule <%= $rule{"oldstatus"} %>" title="<%= $rule{"comment"} %>">
    <div class="ruleName"><%= $rule{"name"} %></div>
    <div class="ruleDirection <%= $rule{"image"} %>"></div>
    <div class="ruleStatus"><%= $rule{"oldstatus"} %></div>
  </div>
<%
  }
%>

    
  <div class="toggleLink toggleText" target="previousRules">Click to view iptables rules</div>
  <div id="previousRules" class="toggleTarget ipTable">
    <div class="iptableHeader">Previous iptables rules (FORWARD chain only):</div>
<table class="iptable">    
<tr><th>Target     <th>Protocol<th>Option<th>Source          <th>Destination        <th>Specification
<%
    for ($i=0; $i<=$#oldIpRules; $i++) {
%>    
<tr><td><%= $oldIpRules[$i]{"target"} %>
  <td><%= $oldIpRules[$i]{"prot"} %>
  <td><%= $oldIpRules[$i]{"src"} %>
  <td><%= $oldIpRules[$i]{"source"} %>
  <td><%= $oldIpRules[$i]{"dest"} %>
  <td><%= $oldIpRules[$i]{"spec"} %>
<%
    }
%>
</table>
  </div>
</div></div>
<%
  }
%>
  
<div class="status current"><div class="m">
  <div class="statusHeader"><div class="m">Current state: Click items below to toggle rule state</div></div>
<%
  # i have absolutely no idea why I need to reference and then dereference this
  $rulesRef = \@{$config{"rules"}};
  @rules = @{$rulesRef};
  for ($i=0; $i<=$#rules; $i++) {
    %rule = %{$rules[$i]};
%>  
  <a href="firewall.pl?action=<%= $rule{"verb"} %>&rulename=<%= $rule{"name"} %>"><div class="rule <%= $rule{"status"} %>" title="<%= $rule{"comment"} %>">
    <div class="ruleName"><%= $rule{"name"} %></div>
    <div class="ruleDirection <%= $rule{"image"} %>"></div>
    <div class="ruleStatus"><%= $rule{"status"} %></div>
  </div></a>
<%
  }
%>

  <div class="toggleLink toggleText" target="currentRules">Click to view iptables rules</div>
  <div id="currentRules" class="toggleTarget ipTable">
    <div class="iptableHeader">Current iptables rules (FORWARD chain only):</div>
<table class="iptable">    
<%
    for ($i=0; $i<=$#allIpRules; $i++) {
%>    
<tr><td><%= $allIpRules[$i]{"target"} %>
  <td><%= $allIpRules[$i]{"prot"} %>
  <td><%= $allIpRules[$i]{"src"} %>
  <td><%= $allIpRules[$i]{"source"} %>
  <td><%= $allIpRules[$i]{"dest"} %>
  <td><%= $allIpRules[$i]{"spec"} %>
<%
    }
%>
</table>
  </div>
</div></div>

</body>
</html>
__EOFIREWALLHTML
}


########################################################
# firewall.css

sub printFirewallCss {
    print<<'__EOFIREWALLCSS';
/* TODO some media selector to say 'tap' instead of 'click' on mobile devices */
BODY { font-family: Arial; }
.header {
  clear: left; width: 100%; 
  background-color: #0013a2;
  border-radius: 5px;
  color: white;
  font-family: Verdana, Arial, sans-serif; text-weight: bold;
  height: 68px;
  margin-bottom: 10px;
}
A:link { text-decoration: none; }
A:visited { text-decoration: none; }
A:hover { text-decoration: none; }
A:active { text-decoration: none; }
.header A .large { font-size: 16pt; padding-top: 8px; color: white; text-decoration: none; /* font-weight: bold; */ }
.header .small { font-size: 8pt; padding-top: 5px; }
.action { 
   clear: left; width: 100%; 
   background-color: #ffffe7;
   border: solid 1px #c6c400;
   border-radius: 5px;
}
.actionText { 
   font-weight: bold;
}
.m { margin: 5px; }

.toggleLink { } /* pseudo-class */
.toggleTarget { display: none; } /* pseudo-class */
.toggleText { cursor: pointer; text-decoration: underline; color: #686700; font-size: 8pt; }
.toggleVisible { display: block; } 

/* a status can either be previous or current */
.status { 
  clear: left; width: 100%; 
  margin-top: 10px;
  border: solid 1px #979797;
  border-radius: 5px;
}
.previous { background-color: #cbcbcb; }
.current { background-color: #f1f1f1; }
.statusHeader { 
  width: 100%; 
  border: solid 1px #979797;
  border-radius: 5px;
}
.status.previous .statusHeader { color: white; background-color: #686868; font-weight: bold; }
.status.current .statusHeader { color: white; background-color: #686868; font-weight: bold; }


/* a rule can either be indeterminate, open or closed */
.rule { 
  position: relative;
  display: inline-block;
  width: 100px; height: 70px;
  border: solid 1px #979797;
  border-radius: 5px;
  margin: 5px 5px 5px 0px;
} 
.closed { background-color: #a20008; }
.open { background-color: white; }
.ruleName { 
  position: absolute; top: 24px; left: 0px; width: 100px; height: 20px;
  text-align: center;
  font-weight: bold;
}
.ruleStatus {
  position: absolute; top: 51px; left: 5px; width: 90px; height: 14px;
  text-align: center;
  font-weight: bold;
  border-radius: 5px;
  font-size: 8pt; font-weight: normal;
  text-transform: uppercase;
}
.rule.open .ruleName { color: black; }
.rule.closed .ruleName { color: white; }
.rule.partial .ruleName { color: black; }
.rule.open .ruleStatus { background-color: #00a204; color: white; }
.rule.partial .ruleStatus { border: 1px solid #00a204; color: #00a204; }
.rule.closed .ruleStatus { color: white; border: 1px solid white; }

.ruleDirection { position: absolute; top: 2px; left: 26px; width: 48px; height: 16px; } 
.open .ruleDirection.globe2pc { background-image: url(image/globe2pc.png); }
.open .ruleDirection.pc2globe { background-image: url(image/pc2globe.png); }

.partial .ruleDirection.globe2pc { background-image: url(image/globe2pc.png); }
.partial .ruleDirection.pc2globe { background-image: url(image/pc2globe.png); }

/* closed images are identical to open, with -50 brightness, -30 contrast */
.closed .ruleDirection.globe2pc { background-image: url(image/no-globe2pc.png); }
.closed .ruleDirection.pc2globe { background-image: url(image/no-pc2globe.png); }


#commands PRE {
  font-size: 8pt;
  font-family: Lucida Console, Courier New;
}
#previousRules, #currentRules {
    
}
.iptable { }
.iptable TH { text-align: left; font-family: Arial; font-size: 10pt; border-bottom: solid 1px black; padding-right: 5px; }
.iptable TD { text-align: left; font-family: Lucida Console, Courier New; font-size: 8pt; padding-right: 5px; }
.iptableHeader {
   margin-top: 5px;
   font-family: Arial; font-size: 12pt; font-weight: bold;
}


__EOFIREWALLCSS
}



########################################################
# firewall.js

sub printFirewallJs {
    print<<'__EOFIREWALLJS';
function toggleClick(el) {
  var targetEl = $(el.getAttribute("target"));
  if (targetEl.hasClassName("toggleVisible")) {
    targetEl.removeClassName("toggleVisible");
    el.innerHTML = el.innerHTML.replace("hide", "view");
  } else {
    targetEl.addClassName("toggleVisible");
    el.innerHTML = el.innerHTML.replace("view", "hide");
  }
}
function initWindow() {
  $$(".toggleLink").each(function(el){el.observe("click",toggleClick.curry(el));});
}

__EOFIREWALLJS
}
    


########################################################
# prototype.js.min
# (minified prototype.js 1.6.0)
# + removed headers causing preflight OPTIONS to be sent - see https://developer.mozilla.org/En/HTTP_access_control
# + timeout functionality - see http://positionabsolute.net/blog/2008/07/prototype-ajax-request-timeout.php

sub printPrototypeJsMin {
    print<<'__EOPROTOTYPEJSMIN';
var Prototype={Version:'1.6.1',Browser:(function(){var ua=navigator.userAgent;var isOpera=Object.prototype.toString.call(window.opera)=='[object Opera]';return{IE:!!window.attachEvent&&!isOpera,Opera:isOpera,WebKit:ua.indexOf('AppleWebKit/')>-1,Gecko:ua.indexOf('Gecko')>-1&&ua.indexOf('KHTML')===-1,MobileSafari:/Apple.*Mobile.*Safari/.test(ua)}})(),BrowserFeatures:{XPath:!!document.evaluate,SelectorsAPI:!!document.querySelector,ElementExtensions:(function(){var constructor=window.Element||window.HTMLElement;return!!(constructor&&constructor.prototype);})(),SpecificElementExtensions:(function(){if(typeof window.HTMLDivElement!=='undefined')
return true;var div=document.createElement('div');var form=document.createElement('form');var isSupported=false;if(div['__proto__']&&(div['__proto__']!==form['__proto__'])){isSupported=true;}
div=form=null;return isSupported;})()},ScriptFragment:'<script[^>]*>([\\S\\s]*?)<\/script>',JSONFilter:/^\/\*-secure-([\s\S]*)\*\/\s*$/,emptyFunction:function(){},K:function(x){return x}};if(Prototype.Browser.MobileSafari)
Prototype.BrowserFeatures.SpecificElementExtensions=false;var Abstract={};var Try={these:function(){var returnValue;for(var i=0,length=arguments.length;i<length;i++){var lambda=arguments[i];try{returnValue=lambda();break;}catch(e){}}
return returnValue;}};var Class=(function(){function subclass(){};function create(){var parent=null,properties=$A(arguments);if(Object.isFunction(properties[0]))
parent=properties.shift();function klass(){this.initialize.apply(this,arguments);}
Object.extend(klass,Class.Methods);klass.superclass=parent;klass.subclasses=[];if(parent){subclass.prototype=parent.prototype;klass.prototype=new subclass;parent.subclasses.push(klass);}
for(var i=0;i<properties.length;i++)
klass.addMethods(properties[i]);if(!klass.prototype.initialize)
klass.prototype.initialize=Prototype.emptyFunction;klass.prototype.constructor=klass;return klass;}
function addMethods(source){var ancestor=this.superclass&&this.superclass.prototype;var properties=Object.keys(source);if(!Object.keys({toString:true}).length){if(source.toString!=Object.prototype.toString)
properties.push("toString");if(source.valueOf!=Object.prototype.valueOf)
properties.push("valueOf");}
for(var i=0,length=properties.length;i<length;i++){var property=properties[i],value=source[property];if(ancestor&&Object.isFunction(value)&&value.argumentNames().first()=="$super"){var method=value;value=(function(m){return function(){return ancestor[m].apply(this,arguments);};})(property).wrap(method);value.valueOf=method.valueOf.bind(method);value.toString=method.toString.bind(method);}
this.prototype[property]=value;}
return this;}
return{create:create,Methods:{addMethods:addMethods}};})();(function(){var _toString=Object.prototype.toString;function extend(destination,source){for(var property in source)
destination[property]=source[property];return destination;}
function inspect(object){try{if(isUndefined(object))return'undefined';if(object===null)return'null';return object.inspect?object.inspect():String(object);}catch(e){if(e instanceof RangeError)return'...';throw e;}}
function toJSON(object){var type=typeof object;switch(type){case'undefined':case'function':case'unknown':return;case'boolean':return object.toString();}
if(object===null)return'null';if(object.toJSON)return object.toJSON();if(isElement(object))return;var results=[];for(var property in object){var value=toJSON(object[property]);if(!isUndefined(value))
results.push(property.toJSON()+': '+value);}
return'{'+results.join(', ')+'}';}
function toQueryString(object){return $H(object).toQueryString();}
function toHTML(object){return object&&object.toHTML?object.toHTML():String.interpret(object);}
function keys(object){var results=[];for(var property in object)
results.push(property);return results;}
function values(object){var results=[];for(var property in object)
results.push(object[property]);return results;}
function clone(object){return extend({},object);}
function isElement(object){return!!(object&&object.nodeType==1);}
function isArray(object){return _toString.call(object)=="[object Array]";}
function isHash(object){return object instanceof Hash;}
function isFunction(object){return typeof object==="function";}
function isString(object){return _toString.call(object)=="[object String]";}
function isNumber(object){return _toString.call(object)=="[object Number]";}
function isUndefined(object){return typeof object==="undefined";}
extend(Object,{extend:extend,inspect:inspect,toJSON:toJSON,toQueryString:toQueryString,toHTML:toHTML,keys:keys,values:values,clone:clone,isElement:isElement,isArray:isArray,isHash:isHash,isFunction:isFunction,isString:isString,isNumber:isNumber,isUndefined:isUndefined});})();Object.extend(Function.prototype,(function(){var slice=Array.prototype.slice;function update(array,args){var arrayLength=array.length,length=args.length;while(length--)array[arrayLength+length]=args[length];return array;}
function merge(array,args){array=slice.call(array,0);return update(array,args);}
function argumentNames(){var names=this.toString().match(/^[\s\(]*function[^(]*\(([^)]*)\)/)[1].replace(/\/\/.*?[\r\n]|\/\*(?:.|[\r\n])*?\*\//g,'').replace(/\s+/g,'').split(',');return names.length==1&&!names[0]?[]:names;}
function bind(context){if(arguments.length<2&&Object.isUndefined(arguments[0]))return this;var __method=this,args=slice.call(arguments,1);return function(){var a=merge(args,arguments);return __method.apply(context,a);}}
function bindAsEventListener(context){var __method=this,args=slice.call(arguments,1);return function(event){var a=update([event||window.event],args);return __method.apply(context,a);}}
function curry(){if(!arguments.length)return this;var __method=this,args=slice.call(arguments,0);return function(){var a=merge(args,arguments);return __method.apply(this,a);}}
function delay(timeout){var __method=this,args=slice.call(arguments,1);timeout=timeout*1000
return window.setTimeout(function(){return __method.apply(__method,args);},timeout);}
function defer(){var args=update([0.01],arguments);return this.delay.apply(this,args);}
function wrap(wrapper){var __method=this;return function(){var a=update([__method.bind(this)],arguments);return wrapper.apply(this,a);}}
function methodize(){if(this._methodized)return this._methodized;var __method=this;return this._methodized=function(){var a=update([this],arguments);return __method.apply(null,a);};}
return{argumentNames:argumentNames,bind:bind,bindAsEventListener:bindAsEventListener,curry:curry,delay:delay,defer:defer,wrap:wrap,methodize:methodize}})());Date.prototype.toJSON=function(){return'"'+this.getUTCFullYear()+'-'+
(this.getUTCMonth()+1).toPaddedString(2)+'-'+
this.getUTCDate().toPaddedString(2)+'T'+
this.getUTCHours().toPaddedString(2)+':'+
this.getUTCMinutes().toPaddedString(2)+':'+
this.getUTCSeconds().toPaddedString(2)+'Z"';};RegExp.prototype.match=RegExp.prototype.test;RegExp.escape=function(str){return String(str).replace(/([.*+?^=!:${}()|[\]\/\\])/g,'\\$1');};var PeriodicalExecuter=Class.create({initialize:function(callback,frequency){this.callback=callback;this.frequency=frequency;this.currentlyExecuting=false;this.registerCallback();},registerCallback:function(){this.timer=setInterval(this.onTimerEvent.bind(this),this.frequency*1000);},execute:function(){this.callback(this);},stop:function(){if(!this.timer)return;clearInterval(this.timer);this.timer=null;},onTimerEvent:function(){if(!this.currentlyExecuting){try{this.currentlyExecuting=true;this.execute();this.currentlyExecuting=false;}catch(e){this.currentlyExecuting=false;throw e;}}}});Object.extend(String,{interpret:function(value){return value==null?'':String(value);},specialChar:{'\b':'\\b','\t':'\\t','\n':'\\n','\f':'\\f','\r':'\\r','\\':'\\\\'}});Object.extend(String.prototype,(function(){function prepareReplacement(replacement){if(Object.isFunction(replacement))return replacement;var template=new Template(replacement);return function(match){return template.evaluate(match)};}
function gsub(pattern,replacement){var result='',source=this,match;replacement=prepareReplacement(replacement);if(Object.isString(pattern))
pattern=RegExp.escape(pattern);if(!(pattern.length||pattern.source)){replacement=replacement('');return replacement+source.split('').join(replacement)+replacement;}
while(source.length>0){if(match=source.match(pattern)){result+=source.slice(0,match.index);result+=String.interpret(replacement(match));source=source.slice(match.index+match[0].length);}else{result+=source,source='';}}
return result;}
function sub(pattern,replacement,count){replacement=prepareReplacement(replacement);count=Object.isUndefined(count)?1:count;return this.gsub(pattern,function(match){if(--count<0)return match[0];return replacement(match);});}
function scan(pattern,iterator){this.gsub(pattern,iterator);return String(this);}
function truncate(length,truncation){length=length||30;truncation=Object.isUndefined(truncation)?'...':truncation;return this.length>length?this.slice(0,length-truncation.length)+truncation:String(this);}
function strip(){return this.replace(/^\s+/,'').replace(/\s+$/,'');}
function stripTags(){return this.replace(/<\w+(\s+("[^"]*"|'[^']*'|[^>])+)?>|<\/\w+>/gi,'');}
function stripScripts(){return this.replace(new RegExp(Prototype.ScriptFragment,'img'),'');}
function extractScripts(){var matchAll=new RegExp(Prototype.ScriptFragment,'img');var matchOne=new RegExp(Prototype.ScriptFragment,'im');return(this.match(matchAll)||[]).map(function(scriptTag){return(scriptTag.match(matchOne)||['',''])[1];});}
function evalScripts(){return this.extractScripts().map(function(script){return eval(script)});}
function escapeHTML(){return this.replace(/&/g,'&amp;').replace(/</g,'&lt;').replace(/>/g,'&gt;');}
function unescapeHTML(){return this.stripTags().replace(/&lt;/g,'<').replace(/&gt;/g,'>').replace(/&amp;/g,'&');}
function toQueryParams(separator){var match=this.strip().match(/([^?#]*)(#.*)?$/);if(!match)return{};return match[1].split(separator||'&').inject({},function(hash,pair){if((pair=pair.split('='))[0]){var key=decodeURIComponent(pair.shift());var value=pair.length>1?pair.join('='):pair[0];if(value!=undefined)value=decodeURIComponent(value);if(key in hash){if(!Object.isArray(hash[key]))hash[key]=[hash[key]];hash[key].push(value);}
else hash[key]=value;}
return hash;});}
function toArray(){return this.split('');}
function succ(){return this.slice(0,this.length-1)+
String.fromCharCode(this.charCodeAt(this.length-1)+1);}
function times(count){return count<1?'':new Array(count+1).join(this);}
function camelize(){var parts=this.split('-'),len=parts.length;if(len==1)return parts[0];var camelized=this.charAt(0)=='-'?parts[0].charAt(0).toUpperCase()+parts[0].substring(1):parts[0];for(var i=1;i<len;i++)
camelized+=parts[i].charAt(0).toUpperCase()+parts[i].substring(1);return camelized;}
function capitalize(){return this.charAt(0).toUpperCase()+this.substring(1).toLowerCase();}
function underscore(){return this.replace(/::/g,'/').replace(/([A-Z]+)([A-Z][a-z])/g,'$1_$2').replace(/([a-z\d])([A-Z])/g,'$1_$2').replace(/-/g,'_').toLowerCase();}
function dasherize(){return this.replace(/_/g,'-');}
function inspect(useDoubleQuotes){var escapedString=this.replace(/[\x00-\x1f\\]/g,function(character){if(character in String.specialChar){return String.specialChar[character];}
return'\\u00'+character.charCodeAt().toPaddedString(2,16);});if(useDoubleQuotes)return'"'+escapedString.replace(/"/g,'\\"')+'"';return"'"+escapedString.replace(/'/g,'\\\'')+"'";}
function toJSON(){return this.inspect(true);}
function unfilterJSON(filter){return this.replace(filter||Prototype.JSONFilter,'$1');}
function isJSON(){var str=this;if(str.blank())return false;str=this.replace(/\\./g,'@').replace(/"[^"\\\n\r]*"/g,'');return(/^[,:{}\[\]0-9.\-+Eaeflnr-u \n\r\t]*$/).test(str);}
function evalJSON(sanitize){var json=this.unfilterJSON();try{if(!sanitize||json.isJSON())return eval('('+json+')');}catch(e){}
throw new SyntaxError('Badly formed JSON string: '+this.inspect());}
function include(pattern){return this.indexOf(pattern)>-1;}
function startsWith(pattern){return this.indexOf(pattern)===0;}
function endsWith(pattern){var d=this.length-pattern.length;return d>=0&&this.lastIndexOf(pattern)===d;}
function empty(){return this=='';}
function blank(){return/^\s*$/.test(this);}
function interpolate(object,pattern){return new Template(this,pattern).evaluate(object);}
return{gsub:gsub,sub:sub,scan:scan,truncate:truncate,strip:String.prototype.trim?String.prototype.trim:strip,stripTags:stripTags,stripScripts:stripScripts,extractScripts:extractScripts,evalScripts:evalScripts,escapeHTML:escapeHTML,unescapeHTML:unescapeHTML,toQueryParams:toQueryParams,parseQuery:toQueryParams,toArray:toArray,succ:succ,times:times,camelize:camelize,capitalize:capitalize,underscore:underscore,dasherize:dasherize,inspect:inspect,toJSON:toJSON,unfilterJSON:unfilterJSON,isJSON:isJSON,evalJSON:evalJSON,include:include,startsWith:startsWith,endsWith:endsWith,empty:empty,blank:blank,interpolate:interpolate};})());var Template=Class.create({initialize:function(template,pattern){this.template=template.toString();this.pattern=pattern||Template.Pattern;},evaluate:function(object){if(object&&Object.isFunction(object.toTemplateReplacements))
object=object.toTemplateReplacements();return this.template.gsub(this.pattern,function(match){if(object==null)return(match[1]+'');var before=match[1]||'';if(before=='\\')return match[2];var ctx=object,expr=match[3];var pattern=/^([^.[]+|\[((?:.*?[^\\])?)\])(\.|\[|$)/;match=pattern.exec(expr);if(match==null)return before;while(match!=null){var comp=match[1].startsWith('[')?match[2].replace(/\\\\]/g,']'):match[1];ctx=ctx[comp];if(null==ctx||''==match[3])break;expr=expr.substring('['==match[3]?match[1].length:match[0].length);match=pattern.exec(expr);}
return before+String.interpret(ctx);});}});Template.Pattern=/(^|.|\r|\n)(#\{(.*?)\})/;var $break={};var Enumerable=(function(){function each(iterator,context){var index=0;try{this._each(function(value){iterator.call(context,value,index++);});}catch(e){if(e!=$break)throw e;}
return this;}
function eachSlice(number,iterator,context){var index=-number,slices=[],array=this.toArray();if(number<1)return array;while((index+=number)<array.length)
slices.push(array.slice(index,index+number));return slices.collect(iterator,context);}
function all(iterator,context){iterator=iterator||Prototype.K;var result=true;this.each(function(value,index){result=result&&!!iterator.call(context,value,index);if(!result)throw $break;});return result;}
function any(iterator,context){iterator=iterator||Prototype.K;var result=false;this.each(function(value,index){if(result=!!iterator.call(context,value,index))
throw $break;});return result;}
function collect(iterator,context){iterator=iterator||Prototype.K;var results=[];this.each(function(value,index){results.push(iterator.call(context,value,index));});return results;}
function detect(iterator,context){var result;this.each(function(value,index){if(iterator.call(context,value,index)){result=value;throw $break;}});return result;}
function findAll(iterator,context){var results=[];this.each(function(value,index){if(iterator.call(context,value,index))
results.push(value);});return results;}
function grep(filter,iterator,context){iterator=iterator||Prototype.K;var results=[];if(Object.isString(filter))
filter=new RegExp(RegExp.escape(filter));this.each(function(value,index){if(filter.match(value))
results.push(iterator.call(context,value,index));});return results;}
function include(object){if(Object.isFunction(this.indexOf))
if(this.indexOf(object)!=-1)return true;var found=false;this.each(function(value){if(value==object){found=true;throw $break;}});return found;}
function inGroupsOf(number,fillWith){fillWith=Object.isUndefined(fillWith)?null:fillWith;return this.eachSlice(number,function(slice){while(slice.length<number)slice.push(fillWith);return slice;});}
function inject(memo,iterator,context){this.each(function(value,index){memo=iterator.call(context,memo,value,index);});return memo;}
function invoke(method){var args=$A(arguments).slice(1);return this.map(function(value){return value[method].apply(value,args);});}
function max(iterator,context){iterator=iterator||Prototype.K;var result;this.each(function(value,index){value=iterator.call(context,value,index);if(result==null||value>=result)
result=value;});return result;}
function min(iterator,context){iterator=iterator||Prototype.K;var result;this.each(function(value,index){value=iterator.call(context,value,index);if(result==null||value<result)
result=value;});return result;}
function partition(iterator,context){iterator=iterator||Prototype.K;var trues=[],falses=[];this.each(function(value,index){(iterator.call(context,value,index)?trues:falses).push(value);});return[trues,falses];}
function pluck(property){var results=[];this.each(function(value){results.push(value[property]);});return results;}
function reject(iterator,context){var results=[];this.each(function(value,index){if(!iterator.call(context,value,index))
results.push(value);});return results;}
function sortBy(iterator,context){return this.map(function(value,index){return{value:value,criteria:iterator.call(context,value,index)};}).sort(function(left,right){var a=left.criteria,b=right.criteria;return a<b?-1:a>b?1:0;}).pluck('value');}
function toArray(){return this.map();}
function zip(){var iterator=Prototype.K,args=$A(arguments);if(Object.isFunction(args.last()))
iterator=args.pop();var collections=[this].concat(args).map($A);return this.map(function(value,index){return iterator(collections.pluck(index));});}
function size(){return this.toArray().length;}
function inspect(){return'#<Enumerable:'+this.toArray().inspect()+'>';}
return{each:each,eachSlice:eachSlice,all:all,every:all,any:any,some:any,collect:collect,map:collect,detect:detect,findAll:findAll,select:findAll,filter:findAll,grep:grep,include:include,member:include,inGroupsOf:inGroupsOf,inject:inject,invoke:invoke,max:max,min:min,partition:partition,pluck:pluck,reject:reject,sortBy:sortBy,toArray:toArray,entries:toArray,zip:zip,size:size,inspect:inspect,find:detect};})();function $A(iterable){if(!iterable)return[];if('toArray'in Object(iterable))return iterable.toArray();var length=iterable.length||0,results=new Array(length);while(length--)results[length]=iterable[length];return results;}
function $w(string){if(!Object.isString(string))return[];string=string.strip();return string?string.split(/\s+/):[];}
Array.from=$A;(function(){var arrayProto=Array.prototype,slice=arrayProto.slice,_each=arrayProto.forEach;function each(iterator){for(var i=0,length=this.length;i<length;i++)
iterator(this[i]);}
if(!_each)_each=each;function clear(){this.length=0;return this;}
function first(){return this[0];}
function last(){return this[this.length-1];}
function compact(){return this.select(function(value){return value!=null;});}
function flatten(){return this.inject([],function(array,value){if(Object.isArray(value))
return array.concat(value.flatten());array.push(value);return array;});}
function without(){var values=slice.call(arguments,0);return this.select(function(value){return!values.include(value);});}
function reverse(inline){return(inline!==false?this:this.toArray())._reverse();}
function uniq(sorted){return this.inject([],function(array,value,index){if(0==index||(sorted?array.last()!=value:!array.include(value)))
array.push(value);return array;});}
function intersect(array){return this.uniq().findAll(function(item){return array.detect(function(value){return item===value});});}
function clone(){return slice.call(this,0);}
function size(){return this.length;}
function inspect(){return'['+this.map(Object.inspect).join(', ')+']';}
function toJSON(){var results=[];this.each(function(object){var value=Object.toJSON(object);if(!Object.isUndefined(value))results.push(value);});return'['+results.join(', ')+']';}
function indexOf(item,i){i||(i=0);var length=this.length;if(i<0)i=length+i;for(;i<length;i++)
if(this[i]===item)return i;return-1;}
function lastIndexOf(item,i){i=isNaN(i)?this.length:(i<0?this.length+i:i)+1;var n=this.slice(0,i).reverse().indexOf(item);return(n<0)?n:i-n-1;}
function concat(){var array=slice.call(this,0),item;for(var i=0,length=arguments.length;i<length;i++){item=arguments[i];if(Object.isArray(item)&&!('callee'in item)){for(var j=0,arrayLength=item.length;j<arrayLength;j++)
array.push(item[j]);}else{array.push(item);}}
return array;}
Object.extend(arrayProto,Enumerable);if(!arrayProto._reverse)
arrayProto._reverse=arrayProto.reverse;Object.extend(arrayProto,{_each:_each,clear:clear,first:first,last:last,compact:compact,flatten:flatten,without:without,reverse:reverse,uniq:uniq,intersect:intersect,clone:clone,toArray:clone,size:size,inspect:inspect,toJSON:toJSON});var CONCAT_ARGUMENTS_BUGGY=(function(){return[].concat(arguments)[0][0]!==1;})(1,2)
if(CONCAT_ARGUMENTS_BUGGY)arrayProto.concat=concat;if(!arrayProto.indexOf)arrayProto.indexOf=indexOf;if(!arrayProto.lastIndexOf)arrayProto.lastIndexOf=lastIndexOf;})();function $H(object){return new Hash(object);};var Hash=Class.create(Enumerable,(function(){function initialize(object){this._object=Object.isHash(object)?object.toObject():Object.clone(object);}
function _each(iterator){for(var key in this._object){var value=this._object[key],pair=[key,value];pair.key=key;pair.value=value;iterator(pair);}}
function set(key,value){return this._object[key]=value;}
function get(key){if(this._object[key]!==Object.prototype[key])
return this._object[key];}
function unset(key){var value=this._object[key];delete this._object[key];return value;}
function toObject(){return Object.clone(this._object);}
function keys(){return this.pluck('key');}
function values(){return this.pluck('value');}
function index(value){var match=this.detect(function(pair){return pair.value===value;});return match&&match.key;}
function merge(object){return this.clone().update(object);}
function update(object){return new Hash(object).inject(this,function(result,pair){result.set(pair.key,pair.value);return result;});}
function toQueryPair(key,value){if(Object.isUndefined(value))return key;return key+'='+encodeURIComponent(String.interpret(value));}
function toQueryString(){return this.inject([],function(results,pair){var key=encodeURIComponent(pair.key),values=pair.value;if(values&&typeof values=='object'){if(Object.isArray(values))
return results.concat(values.map(toQueryPair.curry(key)));}else results.push(toQueryPair(key,values));return results;}).join('&');}
function inspect(){return'#<Hash:{'+this.map(function(pair){return pair.map(Object.inspect).join(': ');}).join(', ')+'}>';}
function toJSON(){return Object.toJSON(this.toObject());}
function clone(){return new Hash(this);}
return{initialize:initialize,_each:_each,set:set,get:get,unset:unset,toObject:toObject,toTemplateReplacements:toObject,keys:keys,values:values,index:index,merge:merge,update:update,toQueryString:toQueryString,inspect:inspect,toJSON:toJSON,clone:clone};})());Hash.from=$H;Object.extend(Number.prototype,(function(){function toColorPart(){return this.toPaddedString(2,16);}
function succ(){return this+1;}
function times(iterator,context){$R(0,this,true).each(iterator,context);return this;}
function toPaddedString(length,radix){var string=this.toString(radix||10);return'0'.times(length-string.length)+string;}
function toJSON(){return isFinite(this)?this.toString():'null';}
function abs(){return Math.abs(this);}
function round(){return Math.round(this);}
function ceil(){return Math.ceil(this);}
function floor(){return Math.floor(this);}
return{toColorPart:toColorPart,succ:succ,times:times,toPaddedString:toPaddedString,toJSON:toJSON,abs:abs,round:round,ceil:ceil,floor:floor};})());function $R(start,end,exclusive){return new ObjectRange(start,end,exclusive);}
var ObjectRange=Class.create(Enumerable,(function(){function initialize(start,end,exclusive){this.start=start;this.end=end;this.exclusive=exclusive;}
function _each(iterator){var value=this.start;while(this.include(value)){iterator(value);value=value.succ();}}
function include(value){if(value<this.start)
return false;if(this.exclusive)
return value<this.end;return value<=this.end;}
return{initialize:initialize,_each:_each,include:include};})());var Ajax={getTransport:function(){return Try.these(function(){return new XMLHttpRequest()},function(){return new ActiveXObject('Msxml2.XMLHTTP')},function(){return new ActiveXObject('Microsoft.XMLHTTP')})||false;},activeRequestCount:0};Ajax.Responders={responders:[],_each:function(iterator){this.responders._each(iterator);},register:function(responder){if(!this.include(responder))
this.responders.push(responder);},unregister:function(responder){this.responders=this.responders.without(responder);},dispatch:function(callback,request,transport,json){this.each(function(responder){if(Object.isFunction(responder[callback])){try{responder[callback].apply(responder,[request,transport,json]);}catch(e){}}});}};Object.extend(Ajax.Responders,Enumerable);Ajax.Responders.register({onCreate:function(){Ajax.activeRequestCount++},onComplete:function(){Ajax.activeRequestCount--}});Ajax.Base=Class.create({initialize:function(options){this.options={method:'post',asynchronous:true,contentType:'application/x-www-form-urlencoded',encoding:'UTF-8',parameters:'',evalJSON:true,evalJS:true};Object.extend(this.options,options||{});this.options.method=this.options.method.toLowerCase();if(Object.isString(this.options.parameters))
this.options.parameters=this.options.parameters.toQueryParams();else if(Object.isHash(this.options.parameters))
this.options.parameters=this.options.parameters.toObject();}});Ajax.Request=Class.create(Ajax.Base,{_complete:false,timeout:false,initialize:function($super,url,options){$super(options);this.transport=Ajax.getTransport();this.request(url);},request:function(url){this.url=url;this.method=this.options.method;var params=Object.clone(this.options.parameters);if(!['get','post'].include(this.method)){params['_method']=this.method;this.method='post';}
this.parameters=params;if(params=Object.toQueryString(params)){if(this.method=='get')
this.url+=(this.url.include('?')?'&':'?')+params;else if(/Konqueror|Safari|KHTML/.test(navigator.userAgent))
params+='&_=';}
try{var response=new Ajax.Response(this);if(this.options.onCreate)this.options.onCreate(response);Ajax.Responders.dispatch('onCreate',this,response);this.transport.open(this.method.toUpperCase(),this.url,this.options.asynchronous);if(this.options.asynchronous)this.respondToReadyState.bind(this).defer(1);this.transport.onreadystatechange=this.onStateChange.bind(this);this.setRequestHeaders();this.body=this.method=='post'?(this.options.postBody||params):null;this.transport.send(this.body);if(!this.options.asynchronous&&this.transport.overrideMimeType)
this.onStateChange();
if (this.options.timeoutDelay&&this.options.onTimeout){this.startTimer(this.options.timeoutDelay);}}
catch(e){this.dispatchException(e);}},onStateChange:function(){var readyState=this.transport.readyState;if(readyState>1&&!((readyState==4)&&this._complete)&&!this.timeout)
this.respondToReadyState(this.transport.readyState);},setRequestHeaders:function(){var headers={'Accept':'text/javascript, text/html, application/xml, text/xml, */*'};if(this.method=='post'){headers['Content-type']=this.options.contentType+
(this.options.encoding?'; charset='+this.options.encoding:'');if(this.transport.overrideMimeType&&(navigator.userAgent.match(/Gecko\/(\d{4})/)||[0,2005])[1]<2005)
headers['Connection']='close';}
if(typeof this.options.requestHeaders=='object'){var extras=this.options.requestHeaders;if(Object.isFunction(extras.push))
for(var i=0,length=extras.length;i<length;i+=2)
headers[extras[i]]=extras[i+1];else
$H(extras).each(function(pair){headers[pair.key]=pair.value});}
for(var name in headers)
this.transport.setRequestHeader(name,headers[name]);},success:function(){var status=this.getStatus();return!status||(status>=200&&status<300);},getStatus:function(){try{return this.transport.status||0;}catch(e){return 0}},clearTimeout:function(){clearTimeout(this.timer);},startTimer:function(sec){this.timer=setTimeout(this.handleTimeout.bind(this),(sec*1000));},handleTimeout:function(){try{this.timeout=true;this.transport.abort();this.options.onTimeout(new Ajax.Response(this));}catch(e){this.dispatchException(e);}},respondToReadyState:function(readyState){var state=Ajax.Request.Events[readyState],response=new Ajax.Response(this);if(state=='Complete'){try{this._complete=true;(this.options['on'+response.status]||this.options['on'+(this.success()?'Success':'Failure')]||Prototype.emptyFunction)(response,response.headerJSON);}catch(e){this.dispatchException(e);}
var contentType=response.getHeader('Content-type');if(this.options.evalJS=='force'||(this.options.evalJS&&this.isSameOrigin()&&contentType&&contentType.match(/^\s*(text|application)\/(x-)?(java|ecma)script(;.*)?\s*$/i)))
this.evalResponse();}
try{(this.options['on'+state]||Prototype.emptyFunction)(response,response.headerJSON);Ajax.Responders.dispatch('on'+state,this,response,response.headerJSON);}catch(e){this.dispatchException(e);}
if(state=='Complete'){this.clearTimeout();this.transport.onreadystatechange=Prototype.emptyFunction;}},isSameOrigin:function(){var m=this.url.match(/^\s*https?:\/\/[^\/]*/);return!m||(m[0]=='#{protocol}//#{domain}#{port}'.interpolate({protocol:location.protocol,domain:document.domain,port:location.port?':'+location.port:''}));},getHeader:function(name){try{return this.transport.getResponseHeader(name)||null;}catch(e){return null;}},evalResponse:function(){try{return eval((this.transport.responseText||'').unfilterJSON());}catch(e){this.dispatchException(e);}},dispatchException:function(exception){(this.options.onException||Prototype.emptyFunction)(this,exception);Ajax.Responders.dispatch('onException',this,exception);}});Ajax.Request.Events=['Uninitialized','Loading','Loaded','Interactive','Complete'];Ajax.Response=Class.create({initialize:function(request){this.request=request;var transport=this.transport=request.transport,readyState=this.readyState=transport.readyState;if((readyState>2&&!Prototype.Browser.IE)||readyState==4){this.status=this.getStatus();this.statusText=this.getStatusText();this.responseText=String.interpret(transport.responseText);this.headerJSON=this._getHeaderJSON();}
if(readyState==4){var xml=transport.responseXML;this.responseXML=Object.isUndefined(xml)?null:xml;this.responseJSON=this._getResponseJSON();}},status:0,statusText:'',getStatus:Ajax.Request.prototype.getStatus,getStatusText:function(){try{return this.transport.statusText||'';}catch(e){return''}},getHeader:Ajax.Request.prototype.getHeader,getAllHeaders:function(){try{return this.getAllResponseHeaders();}catch(e){return null}},getResponseHeader:function(name){return this.transport.getResponseHeader(name);},getAllResponseHeaders:function(){return this.transport.getAllResponseHeaders();},_getHeaderJSON:function(){var json=this.getHeader('X-JSON');if(!json)return null;json=decodeURIComponent(escape(json));try{return json.evalJSON(this.request.options.sanitizeJSON||!this.request.isSameOrigin());}catch(e){this.request.dispatchException(e);}},_getResponseJSON:function(){var options=this.request.options;if(!options.evalJSON||(options.evalJSON!='force'&&!(this.getHeader('Content-type')||'').include('application/json'))||this.responseText.blank())
return null;try{return this.responseText.evalJSON(options.sanitizeJSON||!this.request.isSameOrigin());}catch(e){this.request.dispatchException(e);}}});Ajax.Updater=Class.create(Ajax.Request,{initialize:function($super,container,url,options){this.container={success:(container.success||container),failure:(container.failure||(container.success?null:container))};options=Object.clone(options);var onComplete=options.onComplete;options.onComplete=(function(response,json){this.updateContent(response.responseText);if(Object.isFunction(onComplete))onComplete(response,json);}).bind(this);$super(url,options);},updateContent:function(responseText){var receiver=this.container[this.success()?'success':'failure'],options=this.options;if(!options.evalScripts)responseText=responseText.stripScripts();if(receiver=$(receiver)){if(options.insertion){if(Object.isString(options.insertion)){var insertion={};insertion[options.insertion]=responseText;receiver.insert(insertion);}
else options.insertion(receiver,responseText);}
else receiver.update(responseText);}}});Ajax.PeriodicalUpdater=Class.create(Ajax.Base,{initialize:function($super,container,url,options){$super(options);this.onComplete=this.options.onComplete;this.frequency=(this.options.frequency||2);this.decay=(this.options.decay||1);this.updater={};this.container=container;this.url=url;this.start();},start:function(){this.options.onComplete=this.updateComplete.bind(this);this.onTimerEvent();},stop:function(){this.updater.options.onComplete=undefined;clearTimeout(this.timer);(this.onComplete||Prototype.emptyFunction).apply(this,arguments);},updateComplete:function(response){if(this.options.decay){this.decay=(response.responseText==this.lastText?this.decay*this.options.decay:1);this.lastText=response.responseText;}
this.timer=this.onTimerEvent.bind(this).delay(this.decay*this.frequency);},onTimerEvent:function(){this.updater=new Ajax.Updater(this.container,this.url,this.options);}});function $(element){if(arguments.length>1){for(var i=0,elements=[],length=arguments.length;i<length;i++)
elements.push($(arguments[i]));return elements;}
if(Object.isString(element))
element=document.getElementById(element);return Element.extend(element);}
if(Prototype.BrowserFeatures.XPath){document._getElementsByXPath=function(expression,parentElement){var results=[];var query=document.evaluate(expression,$(parentElement)||document,null,XPathResult.ORDERED_NODE_SNAPSHOT_TYPE,null);for(var i=0,length=query.snapshotLength;i<length;i++)
results.push(Element.extend(query.snapshotItem(i)));return results;};}
if(!window.Node)var Node={};if(!Node.ELEMENT_NODE){Object.extend(Node,{ELEMENT_NODE:1,ATTRIBUTE_NODE:2,TEXT_NODE:3,CDATA_SECTION_NODE:4,ENTITY_REFERENCE_NODE:5,ENTITY_NODE:6,PROCESSING_INSTRUCTION_NODE:7,COMMENT_NODE:8,DOCUMENT_NODE:9,DOCUMENT_TYPE_NODE:10,DOCUMENT_FRAGMENT_NODE:11,NOTATION_NODE:12});}
(function(global){var SETATTRIBUTE_IGNORES_NAME=(function(){var elForm=document.createElement("form");var elInput=document.createElement("input");var root=document.documentElement;elInput.setAttribute("name","test");elForm.appendChild(elInput);root.appendChild(elForm);var isBuggy=elForm.elements?(typeof elForm.elements.test=="undefined"):null;root.removeChild(elForm);elForm=elInput=null;return isBuggy;})();var element=global.Element;global.Element=function(tagName,attributes){attributes=attributes||{};tagName=tagName.toLowerCase();var cache=Element.cache;if(SETATTRIBUTE_IGNORES_NAME&&attributes.name){tagName='<'+tagName+' name="'+attributes.name+'">';delete attributes.name;return Element.writeAttribute(document.createElement(tagName),attributes);}
if(!cache[tagName])cache[tagName]=Element.extend(document.createElement(tagName));return Element.writeAttribute(cache[tagName].cloneNode(false),attributes);};Object.extend(global.Element,element||{});if(element)global.Element.prototype=element.prototype;})(this);Element.cache={};Element.idCounter=1;Element.Methods={visible:function(element){return $(element).style.display!='none';},toggle:function(element){element=$(element);Element[Element.visible(element)?'hide':'show'](element);return element;},hide:function(element){element=$(element);element.style.display='none';return element;},show:function(element){element=$(element);element.style.display='';return element;},remove:function(element){element=$(element);element.parentNode.removeChild(element);return element;},update:(function(){var SELECT_ELEMENT_INNERHTML_BUGGY=(function(){var el=document.createElement("select"),isBuggy=true;el.innerHTML="<option value=\"test\">test</option>";if(el.options&&el.options[0]){isBuggy=el.options[0].nodeName.toUpperCase()!=="OPTION";}
el=null;return isBuggy;})();var TABLE_ELEMENT_INNERHTML_BUGGY=(function(){try{var el=document.createElement("table");if(el&&el.tBodies){el.innerHTML="<tbody><tr><td>test</td></tr></tbody>";var isBuggy=typeof el.tBodies[0]=="undefined";el=null;return isBuggy;}}catch(e){return true;}})();var SCRIPT_ELEMENT_REJECTS_TEXTNODE_APPENDING=(function(){var s=document.createElement("script"),isBuggy=false;try{s.appendChild(document.createTextNode(""));isBuggy=!s.firstChild||s.firstChild&&s.firstChild.nodeType!==3;}catch(e){isBuggy=true;}
s=null;return isBuggy;})();function update(element,content){element=$(element);if(content&&content.toElement)
content=content.toElement();if(Object.isElement(content))
return element.update().insert(content);content=Object.toHTML(content);var tagName=element.tagName.toUpperCase();if(tagName==='SCRIPT'&&SCRIPT_ELEMENT_REJECTS_TEXTNODE_APPENDING){element.text=content;return element;}
if(SELECT_ELEMENT_INNERHTML_BUGGY||TABLE_ELEMENT_INNERHTML_BUGGY){if(tagName in Element._insertionTranslations.tags){while(element.firstChild){element.removeChild(element.firstChild);}
Element._getContentFromAnonymousElement(tagName,content.stripScripts()).each(function(node){element.appendChild(node)});}
else{element.innerHTML=content.stripScripts();}}
else{element.innerHTML=content.stripScripts();}
content.evalScripts.bind(content).defer();return element;}
return update;})(),replace:function(element,content){element=$(element);if(content&&content.toElement)content=content.toElement();else if(!Object.isElement(content)){content=Object.toHTML(content);var range=element.ownerDocument.createRange();range.selectNode(element);content.evalScripts.bind(content).defer();content=range.createContextualFragment(content.stripScripts());}
element.parentNode.replaceChild(content,element);return element;},insert:function(element,insertions){element=$(element);if(Object.isString(insertions)||Object.isNumber(insertions)||Object.isElement(insertions)||(insertions&&(insertions.toElement||insertions.toHTML)))
insertions={bottom:insertions};var content,insert,tagName,childNodes;for(var position in insertions){content=insertions[position];position=position.toLowerCase();insert=Element._insertionTranslations[position];if(content&&content.toElement)content=content.toElement();if(Object.isElement(content)){insert(element,content);continue;}
content=Object.toHTML(content);tagName=((position=='before'||position=='after')?element.parentNode:element).tagName.toUpperCase();childNodes=Element._getContentFromAnonymousElement(tagName,content.stripScripts());if(position=='top'||position=='after')childNodes.reverse();childNodes.each(insert.curry(element));content.evalScripts.bind(content).defer();}
return element;},wrap:function(element,wrapper,attributes){element=$(element);if(Object.isElement(wrapper))
$(wrapper).writeAttribute(attributes||{});else if(Object.isString(wrapper))wrapper=new Element(wrapper,attributes);else wrapper=new Element('div',wrapper);if(element.parentNode)
element.parentNode.replaceChild(wrapper,element);wrapper.appendChild(element);return wrapper;},inspect:function(element){element=$(element);var result='<'+element.tagName.toLowerCase();$H({'id':'id','className':'class'}).each(function(pair){var property=pair.first(),attribute=pair.last();var value=(element[property]||'').toString();if(value)result+=' '+attribute+'='+value.inspect(true);});return result+'>';},recursivelyCollect:function(element,property){element=$(element);var elements=[];while(element=element[property])
if(element.nodeType==1)
elements.push(Element.extend(element));return elements;},ancestors:function(element){return Element.recursivelyCollect(element,'parentNode');},descendants:function(element){return Element.select(element,"*");},firstDescendant:function(element){element=$(element).firstChild;while(element&&element.nodeType!=1)element=element.nextSibling;return $(element);},immediateDescendants:function(element){if(!(element=$(element).firstChild))return[];while(element&&element.nodeType!=1)element=element.nextSibling;if(element)return[element].concat($(element).nextSiblings());return[];},previousSiblings:function(element){return Element.recursivelyCollect(element,'previousSibling');},nextSiblings:function(element){return Element.recursivelyCollect(element,'nextSibling');},siblings:function(element){element=$(element);return Element.previousSiblings(element).reverse().concat(Element.nextSiblings(element));},match:function(element,selector){if(Object.isString(selector))
selector=new Selector(selector);return selector.match($(element));},up:function(element,expression,index){element=$(element);if(arguments.length==1)return $(element.parentNode);var ancestors=Element.ancestors(element);return Object.isNumber(expression)?ancestors[expression]:Selector.findElement(ancestors,expression,index);},down:function(element,expression,index){element=$(element);if(arguments.length==1)return Element.firstDescendant(element);return Object.isNumber(expression)?Element.descendants(element)[expression]:Element.select(element,expression)[index||0];},previous:function(element,expression,index){element=$(element);if(arguments.length==1)return $(Selector.handlers.previousElementSibling(element));var previousSiblings=Element.previousSiblings(element);return Object.isNumber(expression)?previousSiblings[expression]:Selector.findElement(previousSiblings,expression,index);},next:function(element,expression,index){element=$(element);if(arguments.length==1)return $(Selector.handlers.nextElementSibling(element));var nextSiblings=Element.nextSiblings(element);return Object.isNumber(expression)?nextSiblings[expression]:Selector.findElement(nextSiblings,expression,index);},select:function(element){var args=Array.prototype.slice.call(arguments,1);return Selector.findChildElements(element,args);},adjacent:function(element){var args=Array.prototype.slice.call(arguments,1);return Selector.findChildElements(element.parentNode,args).without(element);},identify:function(element){element=$(element);var id=Element.readAttribute(element,'id');if(id)return id;do{id='anonymous_element_'+Element.idCounter++}while($(id));Element.writeAttribute(element,'id',id);return id;},readAttribute:function(element,name){element=$(element);if(Prototype.Browser.IE){var t=Element._attributeTranslations.read;if(t.values[name])return t.values[name](element,name);if(t.names[name])name=t.names[name];if(name.include(':')){return(!element.attributes||!element.attributes[name])?null:element.attributes[name].value;}}
return element.getAttribute(name);},writeAttribute:function(element,name,value){element=$(element);var attributes={},t=Element._attributeTranslations.write;if(typeof name=='object')attributes=name;else attributes[name]=Object.isUndefined(value)?true:value;for(var attr in attributes){name=t.names[attr]||attr;value=attributes[attr];if(t.values[attr])name=t.values[attr](element,value);if(value===false||value===null)
element.removeAttribute(name);else if(value===true)
element.setAttribute(name,name);else element.setAttribute(name,value);}
return element;},getHeight:function(element){return Element.getDimensions(element).height;},getWidth:function(element){return Element.getDimensions(element).width;},classNames:function(element){return new Element.ClassNames(element);},hasClassName:function(element,className){if(!(element=$(element)))return;var elementClassName=element.className;return(elementClassName.length>0&&(elementClassName==className||new RegExp("(^|\\s)"+className+"(\\s|$)").test(elementClassName)));},addClassName:function(element,className){if(!(element=$(element)))return;if(!Element.hasClassName(element,className))
element.className+=(element.className?' ':'')+className;return element;},removeClassName:function(element,className){if(!(element=$(element)))return;element.className=element.className.replace(new RegExp("(^|\\s+)"+className+"(\\s+|$)"),' ').strip();return element;},toggleClassName:function(element,className){if(!(element=$(element)))return;return Element[Element.hasClassName(element,className)?'removeClassName':'addClassName'](element,className);},cleanWhitespace:function(element){element=$(element);var node=element.firstChild;while(node){var nextNode=node.nextSibling;if(node.nodeType==3&&!/\S/.test(node.nodeValue))
element.removeChild(node);node=nextNode;}
return element;},empty:function(element){return $(element).innerHTML.blank();},descendantOf:function(element,ancestor){element=$(element),ancestor=$(ancestor);if(element.compareDocumentPosition)
return(element.compareDocumentPosition(ancestor)&8)===8;if(ancestor.contains)
return ancestor.contains(element)&&ancestor!==element;while(element=element.parentNode)
if(element==ancestor)return true;return false;},scrollTo:function(element){element=$(element);var pos=Element.cumulativeOffset(element);window.scrollTo(pos[0],pos[1]);return element;},getStyle:function(element,style){element=$(element);style=style=='float'?'cssFloat':style.camelize();var value=element.style[style];if(!value||value=='auto'){var css=document.defaultView.getComputedStyle(element,null);value=css?css[style]:null;}
if(style=='opacity')return value?parseFloat(value):1.0;return value=='auto'?null:value;},getOpacity:function(element){return $(element).getStyle('opacity');},setStyle:function(element,styles){element=$(element);var elementStyle=element.style,match;if(Object.isString(styles)){element.style.cssText+=';'+styles;return styles.include('opacity')?element.setOpacity(styles.match(/opacity:\s*(\d?\.?\d*)/)[1]):element;}
for(var property in styles)
if(property=='opacity')element.setOpacity(styles[property]);else
elementStyle[(property=='float'||property=='cssFloat')?(Object.isUndefined(elementStyle.styleFloat)?'cssFloat':'styleFloat'):property]=styles[property];return element;},setOpacity:function(element,value){element=$(element);element.style.opacity=(value==1||value==='')?'':(value<0.00001)?0:value;return element;},getDimensions:function(element){element=$(element);var display=Element.getStyle(element,'display');if(display!='none'&&display!=null)
return{width:element.offsetWidth,height:element.offsetHeight};var els=element.style;var originalVisibility=els.visibility;var originalPosition=els.position;var originalDisplay=els.display;els.visibility='hidden';if(originalPosition!='fixed')
els.position='absolute';els.display='block';var originalWidth=element.clientWidth;var originalHeight=element.clientHeight;els.display=originalDisplay;els.position=originalPosition;els.visibility=originalVisibility;return{width:originalWidth,height:originalHeight};},makePositioned:function(element){element=$(element);var pos=Element.getStyle(element,'position');if(pos=='static'||!pos){element._madePositioned=true;element.style.position='relative';if(Prototype.Browser.Opera){element.style.top=0;element.style.left=0;}}
return element;},undoPositioned:function(element){element=$(element);if(element._madePositioned){element._madePositioned=undefined;element.style.position=element.style.top=element.style.left=element.style.bottom=element.style.right='';}
return element;},makeClipping:function(element){element=$(element);if(element._overflow)return element;element._overflow=Element.getStyle(element,'overflow')||'auto';if(element._overflow!=='hidden')
element.style.overflow='hidden';return element;},undoClipping:function(element){element=$(element);if(!element._overflow)return element;element.style.overflow=element._overflow=='auto'?'':element._overflow;element._overflow=null;return element;},cumulativeOffset:function(element){var valueT=0,valueL=0;do{valueT+=element.offsetTop||0;valueL+=element.offsetLeft||0;element=element.offsetParent;}while(element);return Element._returnOffset(valueL,valueT);},positionedOffset:function(element){var valueT=0,valueL=0;do{valueT+=element.offsetTop||0;valueL+=element.offsetLeft||0;element=element.offsetParent;if(element){if(element.tagName.toUpperCase()=='BODY')break;var p=Element.getStyle(element,'position');if(p!=='static')break;}}while(element);return Element._returnOffset(valueL,valueT);},absolutize:function(element){element=$(element);if(Element.getStyle(element,'position')=='absolute')return element;var offsets=Element.positionedOffset(element);var top=offsets[1];var left=offsets[0];var width=element.clientWidth;var height=element.clientHeight;element._originalLeft=left-parseFloat(element.style.left||0);element._originalTop=top-parseFloat(element.style.top||0);element._originalWidth=element.style.width;element._originalHeight=element.style.height;element.style.position='absolute';element.style.top=top+'px';element.style.left=left+'px';element.style.width=width+'px';element.style.height=height+'px';return element;},relativize:function(element){element=$(element);if(Element.getStyle(element,'position')=='relative')return element;element.style.position='relative';var top=parseFloat(element.style.top||0)-(element._originalTop||0);var left=parseFloat(element.style.left||0)-(element._originalLeft||0);element.style.top=top+'px';element.style.left=left+'px';element.style.height=element._originalHeight;element.style.width=element._originalWidth;return element;},cumulativeScrollOffset:function(element){var valueT=0,valueL=0;do{valueT+=element.scrollTop||0;valueL+=element.scrollLeft||0;element=element.parentNode;}while(element);return Element._returnOffset(valueL,valueT);},getOffsetParent:function(element){if(element.offsetParent)return $(element.offsetParent);if(element==document.body)return $(element);while((element=element.parentNode)&&element!=document.body)
if(Element.getStyle(element,'position')!='static')
return $(element);return $(document.body);},viewportOffset:function(forElement){var valueT=0,valueL=0;var element=forElement;do{valueT+=element.offsetTop||0;valueL+=element.offsetLeft||0;if(element.offsetParent==document.body&&Element.getStyle(element,'position')=='absolute')break;}while(element=element.offsetParent);element=forElement;do{if(!Prototype.Browser.Opera||(element.tagName&&(element.tagName.toUpperCase()=='BODY'))){valueT-=element.scrollTop||0;valueL-=element.scrollLeft||0;}}while(element=element.parentNode);return Element._returnOffset(valueL,valueT);},clonePosition:function(element,source){var options=Object.extend({setLeft:true,setTop:true,setWidth:true,setHeight:true,offsetTop:0,offsetLeft:0},arguments[2]||{});source=$(source);var p=Element.viewportOffset(source);element=$(element);var delta=[0,0];var parent=null;if(Element.getStyle(element,'position')=='absolute'){parent=Element.getOffsetParent(element);delta=Element.viewportOffset(parent);}
if(parent==document.body){delta[0]-=document.body.offsetLeft;delta[1]-=document.body.offsetTop;}
if(options.setLeft)element.style.left=(p[0]-delta[0]+options.offsetLeft)+'px';if(options.setTop)element.style.top=(p[1]-delta[1]+options.offsetTop)+'px';if(options.setWidth)element.style.width=source.offsetWidth+'px';if(options.setHeight)element.style.height=source.offsetHeight+'px';return element;}};Object.extend(Element.Methods,{getElementsBySelector:Element.Methods.select,childElements:Element.Methods.immediateDescendants});Element._attributeTranslations={write:{names:{className:'class',htmlFor:'for'},values:{}}};if(Prototype.Browser.Opera){Element.Methods.getStyle=Element.Methods.getStyle.wrap(function(proceed,element,style){switch(style){case'left':case'top':case'right':case'bottom':if(proceed(element,'position')==='static')return null;case'height':case'width':if(!Element.visible(element))return null;var dim=parseInt(proceed(element,style),10);if(dim!==element['offset'+style.capitalize()])
return dim+'px';var properties;if(style==='height'){properties=['border-top-width','padding-top','padding-bottom','border-bottom-width'];}
else{properties=['border-left-width','padding-left','padding-right','border-right-width'];}
return properties.inject(dim,function(memo,property){var val=proceed(element,property);return val===null?memo:memo-parseInt(val,10);})+'px';default:return proceed(element,style);}});Element.Methods.readAttribute=Element.Methods.readAttribute.wrap(function(proceed,element,attribute){if(attribute==='title')return element.title;return proceed(element,attribute);});}
else if(Prototype.Browser.IE){Element.Methods.getOffsetParent=Element.Methods.getOffsetParent.wrap(function(proceed,element){element=$(element);try{element.offsetParent}
catch(e){return $(document.body)}
var position=element.getStyle('position');if(position!=='static')return proceed(element);element.setStyle({position:'relative'});var value=proceed(element);element.setStyle({position:position});return value;});$w('positionedOffset viewportOffset').each(function(method){Element.Methods[method]=Element.Methods[method].wrap(function(proceed,element){element=$(element);try{element.offsetParent}
catch(e){return Element._returnOffset(0,0)}
var position=element.getStyle('position');if(position!=='static')return proceed(element);var offsetParent=element.getOffsetParent();if(offsetParent&&offsetParent.getStyle('position')==='fixed')
offsetParent.setStyle({zoom:1});element.setStyle({position:'relative'});var value=proceed(element);element.setStyle({position:position});return value;});});Element.Methods.cumulativeOffset=Element.Methods.cumulativeOffset.wrap(function(proceed,element){try{element.offsetParent}
catch(e){return Element._returnOffset(0,0)}
return proceed(element);});Element.Methods.getStyle=function(element,style){element=$(element);style=(style=='float'||style=='cssFloat')?'styleFloat':style.camelize();var value=element.style[style];if(!value&&element.currentStyle)value=element.currentStyle[style];if(style=='opacity'){if(value=(element.getStyle('filter')||'').match(/alpha\(opacity=(.*)\)/))
if(value[1])return parseFloat(value[1])/100;return 1.0;}
if(value=='auto'){if((style=='width'||style=='height')&&(element.getStyle('display')!='none'))
return element['offset'+style.capitalize()]+'px';return null;}
return value;};Element.Methods.setOpacity=function(element,value){function stripAlpha(filter){return filter.replace(/alpha\([^\)]*\)/gi,'');}
element=$(element);var currentStyle=element.currentStyle;if((currentStyle&&!currentStyle.hasLayout)||(!currentStyle&&element.style.zoom=='normal'))
element.style.zoom=1;var filter=element.getStyle('filter'),style=element.style;if(value==1||value===''){(filter=stripAlpha(filter))?style.filter=filter:style.removeAttribute('filter');return element;}else if(value<0.00001)value=0;style.filter=stripAlpha(filter)+'alpha(opacity='+(value*100)+')';return element;};Element._attributeTranslations=(function(){var classProp='className';var forProp='for';var el=document.createElement('div');el.setAttribute(classProp,'x');if(el.className!=='x'){el.setAttribute('class','x');if(el.className==='x'){classProp='class';}}
el=null;el=document.createElement('label');el.setAttribute(forProp,'x');if(el.htmlFor!=='x'){el.setAttribute('htmlFor','x');if(el.htmlFor==='x'){forProp='htmlFor';}}
el=null;return{read:{names:{'class':classProp,'className':classProp,'for':forProp,'htmlFor':forProp},values:{_getAttr:function(element,attribute){return element.getAttribute(attribute);},_getAttr2:function(element,attribute){return element.getAttribute(attribute,2);},_getAttrNode:function(element,attribute){var node=element.getAttributeNode(attribute);return node?node.value:"";},_getEv:(function(){var el=document.createElement('div');el.onclick=Prototype.emptyFunction;var value=el.getAttribute('onclick');var f;if(String(value).indexOf('{')>-1){f=function(element,attribute){attribute=element.getAttribute(attribute);if(!attribute)return null;attribute=attribute.toString();attribute=attribute.split('{')[1];attribute=attribute.split('}')[0];return attribute.strip();};}
else if(value===''){f=function(element,attribute){attribute=element.getAttribute(attribute);if(!attribute)return null;return attribute.strip();};}
el=null;return f;})(),_flag:function(element,attribute){return $(element).hasAttribute(attribute)?attribute:null;},style:function(element){return element.style.cssText.toLowerCase();},title:function(element){return element.title;}}}}})();Element._attributeTranslations.write={names:Object.extend({cellpadding:'cellPadding',cellspacing:'cellSpacing'},Element._attributeTranslations.read.names),values:{checked:function(element,value){element.checked=!!value;},style:function(element,value){element.style.cssText=value?value:'';}}};Element._attributeTranslations.has={};$w('colSpan rowSpan vAlign dateTime accessKey tabIndex '+'encType maxLength readOnly longDesc frameBorder').each(function(attr){Element._attributeTranslations.write.names[attr.toLowerCase()]=attr;Element._attributeTranslations.has[attr.toLowerCase()]=attr;});(function(v){Object.extend(v,{href:v._getAttr2,src:v._getAttr2,type:v._getAttr,action:v._getAttrNode,disabled:v._flag,checked:v._flag,readonly:v._flag,multiple:v._flag,onload:v._getEv,onunload:v._getEv,onclick:v._getEv,ondblclick:v._getEv,onmousedown:v._getEv,onmouseup:v._getEv,onmouseover:v._getEv,onmousemove:v._getEv,onmouseout:v._getEv,onfocus:v._getEv,onblur:v._getEv,onkeypress:v._getEv,onkeydown:v._getEv,onkeyup:v._getEv,onsubmit:v._getEv,onreset:v._getEv,onselect:v._getEv,onchange:v._getEv});})(Element._attributeTranslations.read.values);if(Prototype.BrowserFeatures.ElementExtensions){(function(){function _descendants(element){var nodes=element.getElementsByTagName('*'),results=[];for(var i=0,node;node=nodes[i];i++)
if(node.tagName!=="!")
results.push(node);return results;}
Element.Methods.down=function(element,expression,index){element=$(element);if(arguments.length==1)return element.firstDescendant();return Object.isNumber(expression)?_descendants(element)[expression]:Element.select(element,expression)[index||0];}})();}}
else if(Prototype.Browser.Gecko&&/rv:1\.8\.0/.test(navigator.userAgent)){Element.Methods.setOpacity=function(element,value){element=$(element);element.style.opacity=(value==1)?0.999999:(value==='')?'':(value<0.00001)?0:value;return element;};}
else if(Prototype.Browser.WebKit){Element.Methods.setOpacity=function(element,value){element=$(element);element.style.opacity=(value==1||value==='')?'':(value<0.00001)?0:value;if(value==1)
if(element.tagName.toUpperCase()=='IMG'&&element.width){element.width++;element.width--;}else try{var n=document.createTextNode(' ');element.appendChild(n);element.removeChild(n);}catch(e){}
return element;};Element.Methods.cumulativeOffset=function(element){var valueT=0,valueL=0;do{valueT+=element.offsetTop||0;valueL+=element.offsetLeft||0;if(element.offsetParent==document.body)
if(Element.getStyle(element,'position')=='absolute')break;element=element.offsetParent;}while(element);return Element._returnOffset(valueL,valueT);};}
if('outerHTML'in document.documentElement){Element.Methods.replace=function(element,content){element=$(element);if(content&&content.toElement)content=content.toElement();if(Object.isElement(content)){element.parentNode.replaceChild(content,element);return element;}
content=Object.toHTML(content);var parent=element.parentNode,tagName=parent.tagName.toUpperCase();if(Element._insertionTranslations.tags[tagName]){var nextSibling=element.next();var fragments=Element._getContentFromAnonymousElement(tagName,content.stripScripts());parent.removeChild(element);if(nextSibling)
fragments.each(function(node){parent.insertBefore(node,nextSibling)});else
fragments.each(function(node){parent.appendChild(node)});}
else element.outerHTML=content.stripScripts();content.evalScripts.bind(content).defer();return element;};}
Element._returnOffset=function(l,t){var result=[l,t];result.left=l;result.top=t;return result;};Element._getContentFromAnonymousElement=function(tagName,html){var div=new Element('div'),t=Element._insertionTranslations.tags[tagName];if(t){div.innerHTML=t[0]+html+t[1];t[2].times(function(){div=div.firstChild});}else div.innerHTML=html;return $A(div.childNodes);};Element._insertionTranslations={before:function(element,node){element.parentNode.insertBefore(node,element);},top:function(element,node){element.insertBefore(node,element.firstChild);},bottom:function(element,node){element.appendChild(node);},after:function(element,node){element.parentNode.insertBefore(node,element.nextSibling);},tags:{TABLE:['<table>','</table>',1],TBODY:['<table><tbody>','</tbody></table>',2],TR:['<table><tbody><tr>','</tr></tbody></table>',3],TD:['<table><tbody><tr><td>','</td></tr></tbody></table>',4],SELECT:['<select>','</select>',1]}};(function(){var tags=Element._insertionTranslations.tags;Object.extend(tags,{THEAD:tags.TBODY,TFOOT:tags.TBODY,TH:tags.TD});})();Element.Methods.Simulated={hasAttribute:function(element,attribute){attribute=Element._attributeTranslations.has[attribute]||attribute;var node=$(element).getAttributeNode(attribute);return!!(node&&node.specified);}};Element.Methods.ByTag={};Object.extend(Element,Element.Methods);(function(div){if(!Prototype.BrowserFeatures.ElementExtensions&&div['__proto__']){window.HTMLElement={};window.HTMLElement.prototype=div['__proto__'];Prototype.BrowserFeatures.ElementExtensions=true;}
div=null;})(document.createElement('div'))
Element.extend=(function(){function checkDeficiency(tagName){if(typeof window.Element!='undefined'){var proto=window.Element.prototype;if(proto){var id='_'+(Math.random()+'').slice(2);var el=document.createElement(tagName);proto[id]='x';var isBuggy=(el[id]!=='x');delete proto[id];el=null;return isBuggy;}}
return false;}
function extendElementWith(element,methods){for(var property in methods){var value=methods[property];if(Object.isFunction(value)&&!(property in element))
element[property]=value.methodize();}}
var HTMLOBJECTELEMENT_PROTOTYPE_BUGGY=checkDeficiency('object');if(Prototype.BrowserFeatures.SpecificElementExtensions){if(HTMLOBJECTELEMENT_PROTOTYPE_BUGGY){return function(element){if(element&&typeof element._extendedByPrototype=='undefined'){var t=element.tagName;if(t&&(/^(?:object|applet|embed)$/i.test(t))){extendElementWith(element,Element.Methods);extendElementWith(element,Element.Methods.Simulated);extendElementWith(element,Element.Methods.ByTag[t.toUpperCase()]);}}
return element;}}
return Prototype.K;}
var Methods={},ByTag=Element.Methods.ByTag;var extend=Object.extend(function(element){if(!element||typeof element._extendedByPrototype!='undefined'||element.nodeType!=1||element==window)return element;var methods=Object.clone(Methods),tagName=element.tagName.toUpperCase();if(ByTag[tagName])Object.extend(methods,ByTag[tagName]);extendElementWith(element,methods);element._extendedByPrototype=Prototype.emptyFunction;return element;},{refresh:function(){if(!Prototype.BrowserFeatures.ElementExtensions){Object.extend(Methods,Element.Methods);Object.extend(Methods,Element.Methods.Simulated);}}});extend.refresh();return extend;})();Element.hasAttribute=function(element,attribute){if(element.hasAttribute)return element.hasAttribute(attribute);return Element.Methods.Simulated.hasAttribute(element,attribute);};Element.addMethods=function(methods){var F=Prototype.BrowserFeatures,T=Element.Methods.ByTag;if(!methods){Object.extend(Form,Form.Methods);Object.extend(Form.Element,Form.Element.Methods);Object.extend(Element.Methods.ByTag,{"FORM":Object.clone(Form.Methods),"INPUT":Object.clone(Form.Element.Methods),"SELECT":Object.clone(Form.Element.Methods),"TEXTAREA":Object.clone(Form.Element.Methods)});}
if(arguments.length==2){var tagName=methods;methods=arguments[1];}
if(!tagName)Object.extend(Element.Methods,methods||{});else{if(Object.isArray(tagName))tagName.each(extend);else extend(tagName);}
function extend(tagName){tagName=tagName.toUpperCase();if(!Element.Methods.ByTag[tagName])
Element.Methods.ByTag[tagName]={};Object.extend(Element.Methods.ByTag[tagName],methods);}
function copy(methods,destination,onlyIfAbsent){onlyIfAbsent=onlyIfAbsent||false;for(var property in methods){var value=methods[property];if(!Object.isFunction(value))continue;if(!onlyIfAbsent||!(property in destination))
destination[property]=value.methodize();}}
function findDOMClass(tagName){var klass;var trans={"OPTGROUP":"OptGroup","TEXTAREA":"TextArea","P":"Paragraph","FIELDSET":"FieldSet","UL":"UList","OL":"OList","DL":"DList","DIR":"Directory","H1":"Heading","H2":"Heading","H3":"Heading","H4":"Heading","H5":"Heading","H6":"Heading","Q":"Quote","INS":"Mod","DEL":"Mod","A":"Anchor","IMG":"Image","CAPTION":"TableCaption","COL":"TableCol","COLGROUP":"TableCol","THEAD":"TableSection","TFOOT":"TableSection","TBODY":"TableSection","TR":"TableRow","TH":"TableCell","TD":"TableCell","FRAMESET":"FrameSet","IFRAME":"IFrame"};if(trans[tagName])klass='HTML'+trans[tagName]+'Element';if(window[klass])return window[klass];klass='HTML'+tagName+'Element';if(window[klass])return window[klass];klass='HTML'+tagName.capitalize()+'Element';if(window[klass])return window[klass];var element=document.createElement(tagName);var proto=element['__proto__']||element.constructor.prototype;element=null;return proto;}
var elementPrototype=window.HTMLElement?HTMLElement.prototype:Element.prototype;if(F.ElementExtensions){copy(Element.Methods,elementPrototype);copy(Element.Methods.Simulated,elementPrototype,true);}
if(F.SpecificElementExtensions){for(var tag in Element.Methods.ByTag){var klass=findDOMClass(tag);if(Object.isUndefined(klass))continue;copy(T[tag],klass.prototype);}}
Object.extend(Element,Element.Methods);delete Element.ByTag;if(Element.extend.refresh)Element.extend.refresh();Element.cache={};};document.viewport={getDimensions:function(){return{width:this.getWidth(),height:this.getHeight()};},getScrollOffsets:function(){return Element._returnOffset(window.pageXOffset||document.documentElement.scrollLeft||document.body.scrollLeft,window.pageYOffset||document.documentElement.scrollTop||document.body.scrollTop);}};(function(viewport){var B=Prototype.Browser,doc=document,element,property={};function getRootElement(){if(B.WebKit&&!doc.evaluate)
return document;if(B.Opera&&window.parseFloat(window.opera.version())<9.5)
return document.body;return document.documentElement;}
function define(D){if(!element)element=getRootElement();property[D]='client'+D;viewport['get'+D]=function(){return element[property[D]]};return viewport['get'+D]();}
viewport.getWidth=define.curry('Width');viewport.getHeight=define.curry('Height');})(document.viewport);Element.Storage={UID:1};Element.addMethods({getStorage:function(element){if(!(element=$(element)))return;var uid;if(element===window){uid=0;}else{if(typeof element._prototypeUID==="undefined")
element._prototypeUID=[Element.Storage.UID++];uid=element._prototypeUID[0];}
if(!Element.Storage[uid])
Element.Storage[uid]=$H();return Element.Storage[uid];},store:function(element,key,value){if(!(element=$(element)))return;if(arguments.length===2){Element.getStorage(element).update(key);}else{Element.getStorage(element).set(key,value);}
return element;},retrieve:function(element,key,defaultValue){if(!(element=$(element)))return;var hash=Element.getStorage(element),value=hash.get(key);if(Object.isUndefined(value)){hash.set(key,defaultValue);value=defaultValue;}
return value;},clone:function(element,deep){if(!(element=$(element)))return;var clone=element.cloneNode(deep);clone._prototypeUID=void 0;if(deep){var descendants=Element.select(clone,'*'),i=descendants.length;while(i--){descendants[i]._prototypeUID=void 0;}}
return Element.extend(clone);}});var Selector=Class.create({initialize:function(expression){this.expression=expression.strip();if(this.shouldUseSelectorsAPI()){this.mode='selectorsAPI';}else if(this.shouldUseXPath()){this.mode='xpath';this.compileXPathMatcher();}else{this.mode="normal";this.compileMatcher();}},shouldUseXPath:(function(){var IS_DESCENDANT_SELECTOR_BUGGY=(function(){var isBuggy=false;if(document.evaluate&&window.XPathResult){var el=document.createElement('div');el.innerHTML='<ul><li></li></ul><div><ul><li></li></ul></div>';var xpath=".//*[local-name()='ul' or local-name()='UL']"+"//*[local-name()='li' or local-name()='LI']";var result=document.evaluate(xpath,el,null,XPathResult.ORDERED_NODE_SNAPSHOT_TYPE,null);isBuggy=(result.snapshotLength!==2);el=null;}
return isBuggy;})();return function(){if(!Prototype.BrowserFeatures.XPath)return false;var e=this.expression;if(Prototype.Browser.WebKit&&(e.include("-of-type")||e.include(":empty")))
return false;if((/(\[[\w-]*?:|:checked)/).test(e))
return false;if(IS_DESCENDANT_SELECTOR_BUGGY)return false;return true;}})(),shouldUseSelectorsAPI:function(){if(!Prototype.BrowserFeatures.SelectorsAPI)return false;if(Selector.CASE_INSENSITIVE_CLASS_NAMES)return false;if(!Selector._div)Selector._div=new Element('div');try{Selector._div.querySelector(this.expression);}catch(e){return false;}
return true;},compileMatcher:function(){var e=this.expression,ps=Selector.patterns,h=Selector.handlers,c=Selector.criteria,le,p,m,len=ps.length,name;if(Selector._cache[e]){this.matcher=Selector._cache[e];return;}
this.matcher=["this.matcher = function(root) {","var r = root, h = Selector.handlers, c = false, n;"];while(e&&le!=e&&(/\S/).test(e)){le=e;for(var i=0;i<len;i++){p=ps[i].re;name=ps[i].name;if(m=e.match(p)){this.matcher.push(Object.isFunction(c[name])?c[name](m):new Template(c[name]).evaluate(m));e=e.replace(m[0],'');break;}}}
this.matcher.push("return h.unique(n);\n}");eval(this.matcher.join('\n'));Selector._cache[this.expression]=this.matcher;},compileXPathMatcher:function(){var e=this.expression,ps=Selector.patterns,x=Selector.xpath,le,m,len=ps.length,name;if(Selector._cache[e]){this.xpath=Selector._cache[e];return;}
this.matcher=['.//*'];while(e&&le!=e&&(/\S/).test(e)){le=e;for(var i=0;i<len;i++){name=ps[i].name;if(m=e.match(ps[i].re)){this.matcher.push(Object.isFunction(x[name])?x[name](m):new Template(x[name]).evaluate(m));e=e.replace(m[0],'');break;}}}
this.xpath=this.matcher.join('');Selector._cache[this.expression]=this.xpath;},findElements:function(root){root=root||document;var e=this.expression,results;switch(this.mode){case'selectorsAPI':if(root!==document){var oldId=root.id,id=$(root).identify();id=id.replace(/([\.:])/g,"\\$1");e="#"+id+" "+e;}
results=$A(root.querySelectorAll(e)).map(Element.extend);root.id=oldId;return results;case'xpath':return document._getElementsByXPath(this.xpath,root);default:return this.matcher(root);}},match:function(element){this.tokens=[];var e=this.expression,ps=Selector.patterns,as=Selector.assertions;var le,p,m,len=ps.length,name;while(e&&le!==e&&(/\S/).test(e)){le=e;for(var i=0;i<len;i++){p=ps[i].re;name=ps[i].name;if(m=e.match(p)){if(as[name]){this.tokens.push([name,Object.clone(m)]);e=e.replace(m[0],'');}else{return this.findElements(document).include(element);}}}}
var match=true,name,matches;for(var i=0,token;token=this.tokens[i];i++){name=token[0],matches=token[1];if(!Selector.assertions[name](element,matches)){match=false;break;}}
return match;},toString:function(){return this.expression;},inspect:function(){return"#<Selector:"+this.expression.inspect()+">";}});if(Prototype.BrowserFeatures.SelectorsAPI&&document.compatMode==='BackCompat'){Selector.CASE_INSENSITIVE_CLASS_NAMES=(function(){var div=document.createElement('div'),span=document.createElement('span');div.id="prototype_test_id";span.className='Test';div.appendChild(span);var isIgnored=(div.querySelector('#prototype_test_id .test')!==null);div=span=null;return isIgnored;})();}
Object.extend(Selector,{_cache:{},xpath:{descendant:"//*",child:"/*",adjacent:"/following-sibling::*[1]",laterSibling:'/following-sibling::*',tagName:function(m){if(m[1]=='*')return'';return"[local-name()='"+m[1].toLowerCase()+"' or local-name()='"+m[1].toUpperCase()+"']";},className:"[contains(concat(' ', @class, ' '), ' #{1} ')]",id:"[@id='#{1}']",attrPresence:function(m){m[1]=m[1].toLowerCase();return new Template("[@#{1}]").evaluate(m);},attr:function(m){m[1]=m[1].toLowerCase();m[3]=m[5]||m[6];return new Template(Selector.xpath.operators[m[2]]).evaluate(m);},pseudo:function(m){var h=Selector.xpath.pseudos[m[1]];if(!h)return'';if(Object.isFunction(h))return h(m);return new Template(Selector.xpath.pseudos[m[1]]).evaluate(m);},operators:{'=':"[@#{1}='#{3}']",'!=':"[@#{1}!='#{3}']",'^=':"[starts-with(@#{1}, '#{3}')]",'$=':"[substring(@#{1}, (string-length(@#{1}) - string-length('#{3}') + 1))='#{3}']",'*=':"[contains(@#{1}, '#{3}')]",'~=':"[contains(concat(' ', @#{1}, ' '), ' #{3} ')]",'|=':"[contains(concat('-', @#{1}, '-'), '-#{3}-')]"},pseudos:{'first-child':'[not(preceding-sibling::*)]','last-child':'[not(following-sibling::*)]','only-child':'[not(preceding-sibling::* or following-sibling::*)]','empty':"[count(*) = 0 and (count(text()) = 0)]",'checked':"[@checked]",'disabled':"[(@disabled) and (@type!='hidden')]",'enabled':"[not(@disabled) and (@type!='hidden')]",'not':function(m){var e=m[6],p=Selector.patterns,x=Selector.xpath,le,v,len=p.length,name;var exclusion=[];while(e&&le!=e&&(/\S/).test(e)){le=e;for(var i=0;i<len;i++){name=p[i].name
if(m=e.match(p[i].re)){v=Object.isFunction(x[name])?x[name](m):new Template(x[name]).evaluate(m);exclusion.push("("+v.substring(1,v.length-1)+")");e=e.replace(m[0],'');break;}}}
return"[not("+exclusion.join(" and ")+")]";},'nth-child':function(m){return Selector.xpath.pseudos.nth("(count(./preceding-sibling::*) + 1) ",m);},'nth-last-child':function(m){return Selector.xpath.pseudos.nth("(count(./following-sibling::*) + 1) ",m);},'nth-of-type':function(m){return Selector.xpath.pseudos.nth("position() ",m);},'nth-last-of-type':function(m){return Selector.xpath.pseudos.nth("(last() + 1 - position()) ",m);},'first-of-type':function(m){m[6]="1";return Selector.xpath.pseudos['nth-of-type'](m);},'last-of-type':function(m){m[6]="1";return Selector.xpath.pseudos['nth-last-of-type'](m);},'only-of-type':function(m){var p=Selector.xpath.pseudos;return p['first-of-type'](m)+p['last-of-type'](m);},nth:function(fragment,m){var mm,formula=m[6],predicate;if(formula=='even')formula='2n+0';if(formula=='odd')formula='2n+1';if(mm=formula.match(/^(\d+)$/))
return'['+fragment+"= "+mm[1]+']';if(mm=formula.match(/^(-?\d*)?n(([+-])(\d+))?/)){if(mm[1]=="-")mm[1]=-1;var a=mm[1]?Number(mm[1]):1;var b=mm[2]?Number(mm[2]):0;predicate="[((#{fragment} - #{b}) mod #{a} = 0) and "+"((#{fragment} - #{b}) div #{a} >= 0)]";return new Template(predicate).evaluate({fragment:fragment,a:a,b:b});}}}},criteria:{tagName:'n = h.tagName(n, r, "#{1}", c);      c = false;',className:'n = h.className(n, r, "#{1}", c);    c = false;',id:'n = h.id(n, r, "#{1}", c);           c = false;',attrPresence:'n = h.attrPresence(n, r, "#{1}", c); c = false;',attr:function(m){m[3]=(m[5]||m[6]);return new Template('n = h.attr(n, r, "#{1}", "#{3}", "#{2}", c); c = false;').evaluate(m);},pseudo:function(m){if(m[6])m[6]=m[6].replace(/"/g,'\\"');return new Template('n = h.pseudo(n, "#{1}", "#{6}", r, c); c = false;').evaluate(m);},descendant:'c = "descendant";',child:'c = "child";',adjacent:'c = "adjacent";',laterSibling:'c = "laterSibling";'},patterns:[{name:'laterSibling',re:/^\s*~\s*/},{name:'child',re:/^\s*>\s*/},{name:'adjacent',re:/^\s*\+\s*/},{name:'descendant',re:/^\s/},{name:'tagName',re:/^\s*(\*|[\w\-]+)(\b|$)?/},{name:'id',re:/^#([\w\-\*]+)(\b|$)/},{name:'className',re:/^\.([\w\-\*]+)(\b|$)/},{name:'pseudo',re:/^:((first|last|nth|nth-last|only)(-child|-of-type)|empty|checked|(en|dis)abled|not)(\((.*?)\))?(\b|$|(?=\s|[:+~>]))/},{name:'attrPresence',re:/^\[((?:[\w-]+:)?[\w-]+)\]/},{name:'attr',re:/\[((?:[\w-]*:)?[\w-]+)\s*(?:([!^$*~|]?=)\s*((['"])([^\4]*?)\4|([^'"][^\]]*?)))?\]/}],assertions:{tagName:function(element,matches){return matches[1].toUpperCase()==element.tagName.toUpperCase();},className:function(element,matches){return Element.hasClassName(element,matches[1]);},id:function(element,matches){return element.id===matches[1];},attrPresence:function(element,matches){return Element.hasAttribute(element,matches[1]);},attr:function(element,matches){var nodeValue=Element.readAttribute(element,matches[1]);return nodeValue&&Selector.operators[matches[2]](nodeValue,matches[5]||matches[6]);}},handlers:{concat:function(a,b){for(var i=0,node;node=b[i];i++)
a.push(node);return a;},mark:function(nodes){var _true=Prototype.emptyFunction;for(var i=0,node;node=nodes[i];i++)
node._countedByPrototype=_true;return nodes;},unmark:(function(){var PROPERTIES_ATTRIBUTES_MAP=(function(){var el=document.createElement('div'),isBuggy=false,propName='_countedByPrototype',value='x'
el[propName]=value;isBuggy=(el.getAttribute(propName)===value);el=null;return isBuggy;})();return PROPERTIES_ATTRIBUTES_MAP?function(nodes){for(var i=0,node;node=nodes[i];i++)
node.removeAttribute('_countedByPrototype');return nodes;}:function(nodes){for(var i=0,node;node=nodes[i];i++)
node._countedByPrototype=void 0;return nodes;}})(),index:function(parentNode,reverse,ofType){parentNode._countedByPrototype=Prototype.emptyFunction;if(reverse){for(var nodes=parentNode.childNodes,i=nodes.length-1,j=1;i>=0;i--){var node=nodes[i];if(node.nodeType==1&&(!ofType||node._countedByPrototype))node.nodeIndex=j++;}}else{for(var i=0,j=1,nodes=parentNode.childNodes;node=nodes[i];i++)
if(node.nodeType==1&&(!ofType||node._countedByPrototype))node.nodeIndex=j++;}},unique:function(nodes){if(nodes.length==0)return nodes;var results=[],n;for(var i=0,l=nodes.length;i<l;i++)
if(typeof(n=nodes[i])._countedByPrototype=='undefined'){n._countedByPrototype=Prototype.emptyFunction;results.push(Element.extend(n));}
return Selector.handlers.unmark(results);},descendant:function(nodes){var h=Selector.handlers;for(var i=0,results=[],node;node=nodes[i];i++)
h.concat(results,node.getElementsByTagName('*'));return results;},child:function(nodes){var h=Selector.handlers;for(var i=0,results=[],node;node=nodes[i];i++){for(var j=0,child;child=node.childNodes[j];j++)
if(child.nodeType==1&&child.tagName!='!')results.push(child);}
return results;},adjacent:function(nodes){for(var i=0,results=[],node;node=nodes[i];i++){var next=this.nextElementSibling(node);if(next)results.push(next);}
return results;},laterSibling:function(nodes){var h=Selector.handlers;for(var i=0,results=[],node;node=nodes[i];i++)
h.concat(results,Element.nextSiblings(node));return results;},nextElementSibling:function(node){while(node=node.nextSibling)
if(node.nodeType==1)return node;return null;},previousElementSibling:function(node){while(node=node.previousSibling)
if(node.nodeType==1)return node;return null;},tagName:function(nodes,root,tagName,combinator){var uTagName=tagName.toUpperCase();var results=[],h=Selector.handlers;if(nodes){if(combinator){if(combinator=="descendant"){for(var i=0,node;node=nodes[i];i++)
h.concat(results,node.getElementsByTagName(tagName));return results;}else nodes=this[combinator](nodes);if(tagName=="*")return nodes;}
for(var i=0,node;node=nodes[i];i++)
if(node.tagName.toUpperCase()===uTagName)results.push(node);return results;}else return root.getElementsByTagName(tagName);},id:function(nodes,root,id,combinator){var targetNode=$(id),h=Selector.handlers;if(root==document){if(!targetNode)return[];if(!nodes)return[targetNode];}else{if(!root.sourceIndex||root.sourceIndex<1){var nodes=root.getElementsByTagName('*');for(var j=0,node;node=nodes[j];j++){if(node.id===id)return[node];}}}
if(nodes){if(combinator){if(combinator=='child'){for(var i=0,node;node=nodes[i];i++)
if(targetNode.parentNode==node)return[targetNode];}else if(combinator=='descendant'){for(var i=0,node;node=nodes[i];i++)
if(Element.descendantOf(targetNode,node))return[targetNode];}else if(combinator=='adjacent'){for(var i=0,node;node=nodes[i];i++)
if(Selector.handlers.previousElementSibling(targetNode)==node)
return[targetNode];}else nodes=h[combinator](nodes);}
for(var i=0,node;node=nodes[i];i++)
if(node==targetNode)return[targetNode];return[];}
return(targetNode&&Element.descendantOf(targetNode,root))?[targetNode]:[];},className:function(nodes,root,className,combinator){if(nodes&&combinator)nodes=this[combinator](nodes);return Selector.handlers.byClassName(nodes,root,className);},byClassName:function(nodes,root,className){if(!nodes)nodes=Selector.handlers.descendant([root]);var needle=' '+className+' ';for(var i=0,results=[],node,nodeClassName;node=nodes[i];i++){nodeClassName=node.className;if(nodeClassName.length==0)continue;if(nodeClassName==className||(' '+nodeClassName+' ').include(needle))
results.push(node);}
return results;},attrPresence:function(nodes,root,attr,combinator){if(!nodes)nodes=root.getElementsByTagName("*");if(nodes&&combinator)nodes=this[combinator](nodes);var results=[];for(var i=0,node;node=nodes[i];i++)
if(Element.hasAttribute(node,attr))results.push(node);return results;},attr:function(nodes,root,attr,value,operator,combinator){if(!nodes)nodes=root.getElementsByTagName("*");if(nodes&&combinator)nodes=this[combinator](nodes);var handler=Selector.operators[operator],results=[];for(var i=0,node;node=nodes[i];i++){var nodeValue=Element.readAttribute(node,attr);if(nodeValue===null)continue;if(handler(nodeValue,value))results.push(node);}
return results;},pseudo:function(nodes,name,value,root,combinator){if(nodes&&combinator)nodes=this[combinator](nodes);if(!nodes)nodes=root.getElementsByTagName("*");return Selector.pseudos[name](nodes,value,root);}},pseudos:{'first-child':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++){if(Selector.handlers.previousElementSibling(node))continue;results.push(node);}
return results;},'last-child':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++){if(Selector.handlers.nextElementSibling(node))continue;results.push(node);}
return results;},'only-child':function(nodes,value,root){var h=Selector.handlers;for(var i=0,results=[],node;node=nodes[i];i++)
if(!h.previousElementSibling(node)&&!h.nextElementSibling(node))
results.push(node);return results;},'nth-child':function(nodes,formula,root){return Selector.pseudos.nth(nodes,formula,root);},'nth-last-child':function(nodes,formula,root){return Selector.pseudos.nth(nodes,formula,root,true);},'nth-of-type':function(nodes,formula,root){return Selector.pseudos.nth(nodes,formula,root,false,true);},'nth-last-of-type':function(nodes,formula,root){return Selector.pseudos.nth(nodes,formula,root,true,true);},'first-of-type':function(nodes,formula,root){return Selector.pseudos.nth(nodes,"1",root,false,true);},'last-of-type':function(nodes,formula,root){return Selector.pseudos.nth(nodes,"1",root,true,true);},'only-of-type':function(nodes,formula,root){var p=Selector.pseudos;return p['last-of-type'](p['first-of-type'](nodes,formula,root),formula,root);},getIndices:function(a,b,total){if(a==0)return b>0?[b]:[];return $R(1,total).inject([],function(memo,i){if(0==(i-b)%a&&(i-b)/a>=0)memo.push(i);return memo;});},nth:function(nodes,formula,root,reverse,ofType){if(nodes.length==0)return[];if(formula=='even')formula='2n+0';if(formula=='odd')formula='2n+1';var h=Selector.handlers,results=[],indexed=[],m;h.mark(nodes);for(var i=0,node;node=nodes[i];i++){if(!node.parentNode._countedByPrototype){h.index(node.parentNode,reverse,ofType);indexed.push(node.parentNode);}}
if(formula.match(/^\d+$/)){formula=Number(formula);for(var i=0,node;node=nodes[i];i++)
if(node.nodeIndex==formula)results.push(node);}else if(m=formula.match(/^(-?\d*)?n(([+-])(\d+))?/)){if(m[1]=="-")m[1]=-1;var a=m[1]?Number(m[1]):1;var b=m[2]?Number(m[2]):0;var indices=Selector.pseudos.getIndices(a,b,nodes.length);for(var i=0,node,l=indices.length;node=nodes[i];i++){for(var j=0;j<l;j++)
if(node.nodeIndex==indices[j])results.push(node);}}
h.unmark(nodes);h.unmark(indexed);return results;},'empty':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++){if(node.tagName=='!'||node.firstChild)continue;results.push(node);}
return results;},'not':function(nodes,selector,root){var h=Selector.handlers,selectorType,m;var exclusions=new Selector(selector).findElements(root);h.mark(exclusions);for(var i=0,results=[],node;node=nodes[i];i++)
if(!node._countedByPrototype)results.push(node);h.unmark(exclusions);return results;},'enabled':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++)
if(!node.disabled&&(!node.type||node.type!=='hidden'))
results.push(node);return results;},'disabled':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++)
if(node.disabled)results.push(node);return results;},'checked':function(nodes,value,root){for(var i=0,results=[],node;node=nodes[i];i++)
if(node.checked)results.push(node);return results;}},operators:{'=':function(nv,v){return nv==v;},'!=':function(nv,v){return nv!=v;},'^=':function(nv,v){return nv==v||nv&&nv.startsWith(v);},'$=':function(nv,v){return nv==v||nv&&nv.endsWith(v);},'*=':function(nv,v){return nv==v||nv&&nv.include(v);},'~=':function(nv,v){return(' '+nv+' ').include(' '+v+' ');},'|=':function(nv,v){return('-'+(nv||"").toUpperCase()+'-').include('-'+(v||"").toUpperCase()+'-');}},split:function(expression){var expressions=[];expression.scan(/(([\w#:.~>+()\s-]+|\*|\[.*?\])+)\s*(,|$)/,function(m){expressions.push(m[1].strip());});return expressions;},matchElements:function(elements,expression){var matches=$$(expression),h=Selector.handlers;h.mark(matches);for(var i=0,results=[],element;element=elements[i];i++)
if(element._countedByPrototype)results.push(element);h.unmark(matches);return results;},findElement:function(elements,expression,index){if(Object.isNumber(expression)){index=expression;expression=false;}
return Selector.matchElements(elements,expression||'*')[index||0];},findChildElements:function(element,expressions){expressions=Selector.split(expressions.join(','));var results=[],h=Selector.handlers;for(var i=0,l=expressions.length,selector;i<l;i++){selector=new Selector(expressions[i].strip());h.concat(results,selector.findElements(element));}
return(l>1)?h.unique(results):results;}});if(Prototype.Browser.IE){Object.extend(Selector.handlers,{concat:function(a,b){for(var i=0,node;node=b[i];i++)
if(node.tagName!=="!")a.push(node);return a;}});}
function $$(){return Selector.findChildElements(document,$A(arguments));}
var Form={reset:function(form){form=$(form);form.reset();return form;},serializeElements:function(elements,options){if(typeof options!='object')options={hash:!!options};else if(Object.isUndefined(options.hash))options.hash=true;var key,value,submitted=false,submit=options.submit;var data=elements.inject({},function(result,element){if(!element.disabled&&element.name){key=element.name;value=$(element).getValue();if(value!=null&&element.type!='file'&&(element.type!='submit'||(!submitted&&submit!==false&&(!submit||key==submit)&&(submitted=true)))){if(key in result){if(!Object.isArray(result[key]))result[key]=[result[key]];result[key].push(value);}
else result[key]=value;}}
return result;});return options.hash?data:Object.toQueryString(data);}};Form.Methods={serialize:function(form,options){return Form.serializeElements(Form.getElements(form),options);},getElements:function(form){var elements=$(form).getElementsByTagName('*'),element,arr=[],serializers=Form.Element.Serializers;for(var i=0;element=elements[i];i++){arr.push(element);}
return arr.inject([],function(elements,child){if(serializers[child.tagName.toLowerCase()])
elements.push(Element.extend(child));return elements;})},getInputs:function(form,typeName,name){form=$(form);var inputs=form.getElementsByTagName('input');if(!typeName&&!name)return $A(inputs).map(Element.extend);for(var i=0,matchingInputs=[],length=inputs.length;i<length;i++){var input=inputs[i];if((typeName&&input.type!=typeName)||(name&&input.name!=name))
continue;matchingInputs.push(Element.extend(input));}
return matchingInputs;},disable:function(form){form=$(form);Form.getElements(form).invoke('disable');return form;},enable:function(form){form=$(form);Form.getElements(form).invoke('enable');return form;},findFirstElement:function(form){var elements=$(form).getElements().findAll(function(element){return'hidden'!=element.type&&!element.disabled;});var firstByIndex=elements.findAll(function(element){return element.hasAttribute('tabIndex')&&element.tabIndex>=0;}).sortBy(function(element){return element.tabIndex}).first();return firstByIndex?firstByIndex:elements.find(function(element){return/^(?:input|select|textarea)$/i.test(element.tagName);});},focusFirstElement:function(form){form=$(form);form.findFirstElement().activate();return form;},request:function(form,options){form=$(form),options=Object.clone(options||{});var params=options.parameters,action=form.readAttribute('action')||'';if(action.blank())action=window.location.href;options.parameters=form.serialize(true);if(params){if(Object.isString(params))params=params.toQueryParams();Object.extend(options.parameters,params);}
if(form.hasAttribute('method')&&!options.method)
options.method=form.method;return new Ajax.Request(action,options);}};Form.Element={focus:function(element){$(element).focus();return element;},select:function(element){$(element).select();return element;}};Form.Element.Methods={serialize:function(element){element=$(element);if(!element.disabled&&element.name){var value=element.getValue();if(value!=undefined){var pair={};pair[element.name]=value;return Object.toQueryString(pair);}}
return'';},getValue:function(element){element=$(element);var method=element.tagName.toLowerCase();return Form.Element.Serializers[method](element);},setValue:function(element,value){element=$(element);var method=element.tagName.toLowerCase();Form.Element.Serializers[method](element,value);return element;},clear:function(element){$(element).value='';return element;},present:function(element){return $(element).value!='';},activate:function(element){element=$(element);try{element.focus();if(element.select&&(element.tagName.toLowerCase()!='input'||!(/^(?:button|reset|submit)$/i.test(element.type))))
element.select();}catch(e){}
return element;},disable:function(element){element=$(element);element.disabled=true;return element;},enable:function(element){element=$(element);element.disabled=false;return element;}};var Field=Form.Element;var $F=Form.Element.Methods.getValue;Form.Element.Serializers={input:function(element,value){switch(element.type.toLowerCase()){case'checkbox':case'radio':return Form.Element.Serializers.inputSelector(element,value);default:return Form.Element.Serializers.textarea(element,value);}},inputSelector:function(element,value){if(Object.isUndefined(value))return element.checked?element.value:null;else element.checked=!!value;},textarea:function(element,value){if(Object.isUndefined(value))return element.value;else element.value=value;},select:function(element,value){if(Object.isUndefined(value))
return this[element.type=='select-one'?'selectOne':'selectMany'](element);else{var opt,currentValue,single=!Object.isArray(value);for(var i=0,length=element.length;i<length;i++){opt=element.options[i];currentValue=this.optionValue(opt);if(single){if(currentValue==value){opt.selected=true;return;}}
else opt.selected=value.include(currentValue);}}},selectOne:function(element){var index=element.selectedIndex;return index>=0?this.optionValue(element.options[index]):null;},selectMany:function(element){var values,length=element.length;if(!length)return null;for(var i=0,values=[];i<length;i++){var opt=element.options[i];if(opt.selected)values.push(this.optionValue(opt));}
return values;},optionValue:function(opt){return Element.extend(opt).hasAttribute('value')?opt.value:opt.text;}};Abstract.TimedObserver=Class.create(PeriodicalExecuter,{initialize:function($super,element,frequency,callback){$super(callback,frequency);this.element=$(element);this.lastValue=this.getValue();},execute:function(){var value=this.getValue();if(Object.isString(this.lastValue)&&Object.isString(value)?this.lastValue!=value:String(this.lastValue)!=String(value)){this.callback(this.element,value);this.lastValue=value;}}});Form.Element.Observer=Class.create(Abstract.TimedObserver,{getValue:function(){return Form.Element.getValue(this.element);}});Form.Observer=Class.create(Abstract.TimedObserver,{getValue:function(){return Form.serialize(this.element);}});Abstract.EventObserver=Class.create({initialize:function(element,callback){this.element=$(element);this.callback=callback;this.lastValue=this.getValue();if(this.element.tagName.toLowerCase()=='form')
this.registerFormCallbacks();else
this.registerCallback(this.element);},onElementEvent:function(){var value=this.getValue();if(this.lastValue!=value){this.callback(this.element,value);this.lastValue=value;}},registerFormCallbacks:function(){Form.getElements(this.element).each(this.registerCallback,this);},registerCallback:function(element){if(element.type){switch(element.type.toLowerCase()){case'checkbox':case'radio':Event.observe(element,'click',this.onElementEvent.bind(this));break;default:Event.observe(element,'change',this.onElementEvent.bind(this));break;}}}});Form.Element.EventObserver=Class.create(Abstract.EventObserver,{getValue:function(){return Form.Element.getValue(this.element);}});Form.EventObserver=Class.create(Abstract.EventObserver,{getValue:function(){return Form.serialize(this.element);}});(function(){var Event={KEY_BACKSPACE:8,KEY_TAB:9,KEY_RETURN:13,KEY_ESC:27,KEY_LEFT:37,KEY_UP:38,KEY_RIGHT:39,KEY_DOWN:40,KEY_DELETE:46,KEY_HOME:36,KEY_END:35,KEY_PAGEUP:33,KEY_PAGEDOWN:34,KEY_INSERT:45,cache:{}};var docEl=document.documentElement;var MOUSEENTER_MOUSELEAVE_EVENTS_SUPPORTED='onmouseenter'in docEl&&'onmouseleave'in docEl;var _isButton;if(Prototype.Browser.IE){var buttonMap={0:1,1:4,2:2};_isButton=function(event,code){return event.button===buttonMap[code];};}else if(Prototype.Browser.WebKit){_isButton=function(event,code){switch(code){case 0:return event.which==1&&!event.metaKey;case 1:return event.which==1&&event.metaKey;default:return false;}};}else{_isButton=function(event,code){return event.which?(event.which===code+1):(event.button===code);};}
function isLeftClick(event){return _isButton(event,0)}
function isMiddleClick(event){return _isButton(event,1)}
function isRightClick(event){return _isButton(event,2)}
function element(event){event=Event.extend(event);var node=event.target,type=event.type,currentTarget=event.currentTarget;if(currentTarget&&currentTarget.tagName){if(type==='load'||type==='error'||(type==='click'&&currentTarget.tagName.toLowerCase()==='input'&&currentTarget.type==='radio'))
node=currentTarget;}
if(node.nodeType==Node.TEXT_NODE)
node=node.parentNode;return Element.extend(node);}
function findElement(event,expression){var element=Event.element(event);if(!expression)return element;var elements=[element].concat(element.ancestors());return Selector.findElement(elements,expression,0);}
function pointer(event){return{x:pointerX(event),y:pointerY(event)};}
function pointerX(event){var docElement=document.documentElement,body=document.body||{scrollLeft:0};return event.pageX||(event.clientX+
(docElement.scrollLeft||body.scrollLeft)-
(docElement.clientLeft||0));}
function pointerY(event){var docElement=document.documentElement,body=document.body||{scrollTop:0};return event.pageY||(event.clientY+
(docElement.scrollTop||body.scrollTop)-
(docElement.clientTop||0));}
function stop(event){Event.extend(event);event.preventDefault();event.stopPropagation();event.stopped=true;}
Event.Methods={isLeftClick:isLeftClick,isMiddleClick:isMiddleClick,isRightClick:isRightClick,element:element,findElement:findElement,pointer:pointer,pointerX:pointerX,pointerY:pointerY,stop:stop};var methods=Object.keys(Event.Methods).inject({},function(m,name){m[name]=Event.Methods[name].methodize();return m;});if(Prototype.Browser.IE){function _relatedTarget(event){var element;switch(event.type){case'mouseover':element=event.fromElement;break;case'mouseout':element=event.toElement;break;default:return null;}
return Element.extend(element);}
Object.extend(methods,{stopPropagation:function(){this.cancelBubble=true},preventDefault:function(){this.returnValue=false},inspect:function(){return'[object Event]'}});Event.extend=function(event,element){if(!event)return false;if(event._extendedByPrototype)return event;event._extendedByPrototype=Prototype.emptyFunction;var pointer=Event.pointer(event);Object.extend(event,{target:event.srcElement||element,relatedTarget:_relatedTarget(event),pageX:pointer.x,pageY:pointer.y});return Object.extend(event,methods);};}else{Event.prototype=window.Event.prototype||document.createEvent('HTMLEvents').__proto__;Object.extend(Event.prototype,methods);Event.extend=Prototype.K;}
function _createResponder(element,eventName,handler){var registry=Element.retrieve(element,'prototype_event_registry');if(Object.isUndefined(registry)){CACHE.push(element);registry=Element.retrieve(element,'prototype_event_registry',$H());}
var respondersForEvent=registry.get(eventName);if(Object.isUndefined(respondersForEvent)){respondersForEvent=[];registry.set(eventName,respondersForEvent);}
if(respondersForEvent.pluck('handler').include(handler))return false;var responder;if(eventName.include(":")){responder=function(event){if(Object.isUndefined(event.eventName))
return false;if(event.eventName!==eventName)
return false;Event.extend(event,element);handler.call(element,event);};}else{if(!MOUSEENTER_MOUSELEAVE_EVENTS_SUPPORTED&&(eventName==="mouseenter"||eventName==="mouseleave")){if(eventName==="mouseenter"||eventName==="mouseleave"){responder=function(event){Event.extend(event,element);var parent=event.relatedTarget;while(parent&&parent!==element){try{parent=parent.parentNode;}
catch(e){parent=element;}}
if(parent===element)return;handler.call(element,event);};}}else{responder=function(event){Event.extend(event,element);handler.call(element,event);};}}
responder.handler=handler;respondersForEvent.push(responder);return responder;}
function _destroyCache(){for(var i=0,length=CACHE.length;i<length;i++){Event.stopObserving(CACHE[i]);CACHE[i]=null;}}
var CACHE=[];if(Prototype.Browser.IE)
window.attachEvent('onunload',_destroyCache);if(Prototype.Browser.WebKit)
window.addEventListener('unload',Prototype.emptyFunction,false);var _getDOMEventName=Prototype.K;if(!MOUSEENTER_MOUSELEAVE_EVENTS_SUPPORTED){_getDOMEventName=function(eventName){var translations={mouseenter:"mouseover",mouseleave:"mouseout"};return eventName in translations?translations[eventName]:eventName;};}
function observe(element,eventName,handler){element=$(element);var responder=_createResponder(element,eventName,handler);if(!responder)return element;if(eventName.include(':')){if(element.addEventListener)
element.addEventListener("dataavailable",responder,false);else{element.attachEvent("ondataavailable",responder);element.attachEvent("onfilterchange",responder);}}else{var actualEventName=_getDOMEventName(eventName);if(element.addEventListener)
element.addEventListener(actualEventName,responder,false);else
element.attachEvent("on"+actualEventName,responder);}
return element;}
function stopObserving(element,eventName,handler){element=$(element);var registry=Element.retrieve(element,'prototype_event_registry');if(Object.isUndefined(registry))return element;if(eventName&&!handler){var responders=registry.get(eventName);if(Object.isUndefined(responders))return element;responders.each(function(r){Element.stopObserving(element,eventName,r.handler);});return element;}else if(!eventName){registry.each(function(pair){var eventName=pair.key,responders=pair.value;responders.each(function(r){Element.stopObserving(element,eventName,r.handler);});});return element;}
var responders=registry.get(eventName);if(!responders)return;var responder=responders.find(function(r){return r.handler===handler;});if(!responder)return element;var actualEventName=_getDOMEventName(eventName);if(eventName.include(':')){if(element.removeEventListener)
element.removeEventListener("dataavailable",responder,false);else{element.detachEvent("ondataavailable",responder);element.detachEvent("onfilterchange",responder);}}else{if(element.removeEventListener)
element.removeEventListener(actualEventName,responder,false);else
element.detachEvent('on'+actualEventName,responder);}
registry.set(eventName,responders.without(responder));return element;}
function fire(element,eventName,memo,bubble){element=$(element);if(Object.isUndefined(bubble))
bubble=true;if(element==document&&document.createEvent&&!element.dispatchEvent)
element=document.documentElement;var event;if(document.createEvent){event=document.createEvent('HTMLEvents');event.initEvent('dataavailable',true,true);}else{event=document.createEventObject();event.eventType=bubble?'ondataavailable':'onfilterchange';}
event.eventName=eventName;event.memo=memo||{};if(document.createEvent)
element.dispatchEvent(event);else
element.fireEvent(event.eventType,event);return Event.extend(event);}
Object.extend(Event,Event.Methods);Object.extend(Event,{fire:fire,observe:observe,stopObserving:stopObserving});Element.addMethods({fire:fire,observe:observe,stopObserving:stopObserving});Object.extend(document,{fire:fire.methodize(),observe:observe.methodize(),stopObserving:stopObserving.methodize(),loaded:false});if(window.Event)Object.extend(window.Event,Event);else window.Event=Event;})();(function(){var timer;function fireContentLoadedEvent(){if(document.loaded)return;if(timer)window.clearTimeout(timer);document.loaded=true;document.fire('dom:loaded');}
function checkReadyState(){if(document.readyState==='complete'){document.stopObserving('readystatechange',checkReadyState);fireContentLoadedEvent();}}
function pollDoScroll(){try{document.documentElement.doScroll('left');}
catch(e){timer=pollDoScroll.defer();return;}
fireContentLoadedEvent();}
if(document.addEventListener){document.addEventListener('DOMContentLoaded',fireContentLoadedEvent,false);}else{document.observe('readystatechange',checkReadyState);if(window==top)
timer=pollDoScroll.defer();}
Event.observe(window,'load',fireContentLoadedEvent);})();Element.addMethods();Hash.toQueryString=Object.toQueryString;var Toggle={display:Element.toggle};Element.Methods.childOf=Element.Methods.descendantOf;var Insertion={Before:function(element,content){return Element.insert(element,{before:content});},Top:function(element,content){return Element.insert(element,{top:content});},Bottom:function(element,content){return Element.insert(element,{bottom:content});},After:function(element,content){return Element.insert(element,{after:content});}};var $continue=new Error('"throw $continue" is deprecated, use "return" instead');var Position={includeScrollOffsets:false,prepare:function(){this.deltaX=window.pageXOffset||document.documentElement.scrollLeft||document.body.scrollLeft||0;this.deltaY=window.pageYOffset||document.documentElement.scrollTop||document.body.scrollTop||0;},within:function(element,x,y){if(this.includeScrollOffsets)
return this.withinIncludingScrolloffsets(element,x,y);this.xcomp=x;this.ycomp=y;this.offset=Element.cumulativeOffset(element);return(y>=this.offset[1]&&y<this.offset[1]+element.offsetHeight&&x>=this.offset[0]&&x<this.offset[0]+element.offsetWidth);},withinIncludingScrolloffsets:function(element,x,y){var offsetcache=Element.cumulativeScrollOffset(element);this.xcomp=x+offsetcache[0]-this.deltaX;this.ycomp=y+offsetcache[1]-this.deltaY;this.offset=Element.cumulativeOffset(element);return(this.ycomp>=this.offset[1]&&this.ycomp<this.offset[1]+element.offsetHeight&&this.xcomp>=this.offset[0]&&this.xcomp<this.offset[0]+element.offsetWidth);},overlap:function(mode,element){if(!mode)return 0;if(mode=='vertical')
return((this.offset[1]+element.offsetHeight)-this.ycomp)/element.offsetHeight;if(mode=='horizontal')
return((this.offset[0]+element.offsetWidth)-this.xcomp)/element.offsetWidth;},cumulativeOffset:Element.Methods.cumulativeOffset,positionedOffset:Element.Methods.positionedOffset,absolutize:function(element){Position.prepare();return Element.absolutize(element);},relativize:function(element){Position.prepare();return Element.relativize(element);},realOffset:Element.Methods.cumulativeScrollOffset,offsetParent:Element.Methods.getOffsetParent,page:Element.Methods.viewportOffset,clone:function(source,target,options){options=options||{};return Element.clonePosition(target,source,options);}};if(!document.getElementsByClassName)document.getElementsByClassName=function(instanceMethods){function iter(name){return name.blank()?null:"[contains(concat(' ', @class, ' '), ' "+name+" ')]";}
instanceMethods.getElementsByClassName=Prototype.BrowserFeatures.XPath?function(element,className){className=className.toString().strip();var cond=/\s/.test(className)?$w(className).map(iter).join(''):iter(className);return cond?document._getElementsByXPath('.//*'+cond,element):[];}:function(element,className){className=className.toString().strip();var elements=[],classNames=(/\s/.test(className)?$w(className):null);if(!classNames&&!className)return elements;var nodes=$(element).getElementsByTagName('*');className=' '+className+' ';for(var i=0,child,cn;child=nodes[i];i++){if(child.className&&(cn=' '+child.className+' ')&&(cn.include(className)||(classNames&&classNames.all(function(name){return!name.toString().blank()&&cn.include(' '+name+' ');}))))
elements.push(Element.extend(child));}
return elements;};return function(className,parentElement){return $(parentElement||document.body).getElementsByClassName(className);};}(Element.Methods);Element.ClassNames=Class.create();Element.ClassNames.prototype={initialize:function(element){this.element=$(element);},_each:function(iterator){this.element.className.split(/\s+/).select(function(name){return name.length>0;})._each(iterator);},set:function(className){this.element.className=className;},add:function(classNameToAdd){if(this.include(classNameToAdd))return;this.set($A(this).concat(classNameToAdd).join(' '));},remove:function(classNameToRemove){if(!this.include(classNameToRemove))return;this.set($A(this).without(classNameToRemove).join(' '));},toString:function(){return $A(this).join(' ');}};Object.extend(Element.ClassNames.prototype,Enumerable);
__EOPROTOTYPEJSMIN

}

########################################################
# static resources

# define the resources (mainly images) available to the script
sub setResources {
%resources = (
  "favicon.gif" => <<'__EORESOURCE',
R0lGODlhEAAQAIcAAAAAAACPAACQAEykck6lco2WbY+WbouUcIuVcIyUcY2WcI2WcY6VcY6XcY+W
dI+XdI+ZcY6Yco+Yc5GVcZGWcJGXdZCZdZCZdpGZdpCadJGad5KYdpKbd5KceKWrwqmvyquyyq21
zbS4zLi3ybO52Lq80bbpz7bq0MC30MXO7cvO8c/W7dLZ8O/z//Dz//D0///+/////wAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAMAADIALAAAAAAQABAA
AAiKAEckqLDhwQIEI2QoXKjwQIwTJmLEWKGAIUMHMQIIUJFCRAaLCzHAGEAAxYgSHEAq1MBgAgUD
BSB0UCnDQowWLlq8YJFSpYUXHj6ACEGiJ8gLAJIqXcpUAgCJUKNGBdDg6VOJVqFarRrjateuVrde
zfo1K9WxX9OWjeC1rdauI7xKlQpABtO7SwMCADs=
__EORESOURCE
  "firewall48.png" => <<'__EORESOURCE',
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAB3RJTUUH3QITFTk5EXRqaQAAAAlw
SFlzAAAewQAAHsEBw2lUUwAAAARnQU1BAACxjwv8YQUAABNSSURBVHja1VpprF1ndV3fmc+d3uQ3
erYTCHYT4oRmUMAkTQNVGaRSgVArBG1VtX+QaFGlih+NKlWVUNVWAtEClWiLVKk0VBQoAkQTSkqa
2JFJnMEhtuPnPL/B7/nd+d5zz3y69ndugpPGsVFAVc/L53PHc/baw9prfzcKVziK++83Tt24cLBS
nbjXtI27VZ69OR70mlmen0vi0dl0EJyLkuDF7dXN88fOHuv+6QOnYvwfHOrVLzz5L5//lanp6Q9Y
tnmPaZgHgNxQykAWR8izFEWRA1nG/+QxiigM8s4wbqaFupi0t79Z9czENlQ3jUbLo8FwOVLG2n2f
+lxLfPJzB3D/R9/p3XvLfW2a6BmmAcd14VV9uL4L21QwDQXLtggkKcJcqdxykY5GMKIhjDzhxQgv
S1WeFyAAHcg0SZI0zfpxFC6nSbocDgcrzTg7078YfG1+vooaMOyuROGHHngge8MA/uCOO/z3vu9o
xzOVk9HLRZ4jzzNEUQRl24Bh8bUM7U63OHDX0SK5tGFU61VYRgEThM1V5IwMAWSpRIhAklg/zvk4
Kng7vwHF56PWpU2VRTP0icn7bPH9dQb3LIO6nGfZqlLqbJKMznWDZPujn/u35pUAWK9+oaDhhu1o
ZDn/UUUGzzJpTMYbJ0iiGK2tduE8e6popAMMlYmMthuOCyWfI2h+CYZEjGeCK+zZRRVHUWElI+Sd
TSVp6Br5fCaAlEIax/M8zxP3EQEtf1nKNIXNT2TJX3343vXl1eZtn/3hk5euCgDMd/GiRMDgY0GS
F7k2rEhjPuUNmf/iVds0NdCUUTHSAEVc6BphyoB5g2FaYHOrhWR3WuzxTbEVyjQL1paAU4Z8n9cy
TEuMLohXpfTGYBDiUnuIre2O6rR7Dr+21zC9Bm91dQB5kvBVWxsfM48NsTBLCEKAAQlznvdhapWe
ZilI7vMhz6p8PZf0YeqYUrZ0xqDZhFE3VBwnupRjeZ/3IAIkBE9QOhIWfb68dhEvbrYRDIdMywI2
o2oZBkFeQwqt9nrZhfMr2w3PWfJdG67nwIAYlOiIiHEmQ5yLFWIcAejISK7TkILeEy8LUgGRciWM
hpwtwwXdDvGw75iaxQw6xhBQPMI4URGvubnZQrc/gNhr0XghBLnPNdXAoVOnUuOD73+haxgLa51e
kfQCZaSJKrot5bMG6raBimMjZGokUpz8Y7bz+nmJh9CyJIN4OqfhKpdslixTSOJYe5n9BEnG1wkA
JAYBpCPGiI8SFneclnVklNE0yYbiIEK8OoDeHXe4M9nodknPuQkHSdUsWgmKN993X7J96ZLR7nSw
0mwjn7FUXPGN5888g5pl0KMWiA2W62jvZ6nUS2kIqbOQemGCqIRsBkkHASrFK+lqGCV/SW/RQKAZ
q9CJiTJVTQtXOv7XOy4v5wiLGPSOStTJlQ01axW2l8dqb5WsPVctYhqYWSob3fRWdIchtjtdBEGo
ou3AMIO+ssMhGkTks2dESdn00jAr6XWcdmIkuzojFus0EYgJz/K49DiR6HRV6MdJYJnm8JoACG+7
gpietGlAqlMhZ2ejs6JAPKbyUQDXsqx8MMQOfmeKuTowk6Jz4GC2xFTvxqnqjyK0uz20eZ6am1cn
z59RZhigwYh5ltLFKQAwrp9MwGnehq4vSa0OHRV4VVTnFx/51oMPXbwmABBKND19EQlpWahsRIa+
FyDMJGHne4YwiLxIfh+wXlrBC+r6+boJMlVDWVATPuKqVaT5oEgP7EuHzP3BKMTGMECQFmTeroHh
AE7MzzPXMy6J2GbEaE1MFHMLU8VSFsJsr9308duua3z2+NneVQFkLLZ0xPzMy6IUWtVFlWvnE4iF
JBxJcmp2EiACVhocrAp5PYGrGxnfD7rIRrwYK5J8b/gEUGWTrPMz5wsnu+HgnjymGwJ6e6vTZxoG
qq0qamEqR2XUV2iuKVaTIo3OO25lRsr09Wn0scfiZ2/Y/7jXHt3lhgPUWZRhGEunJIuQEk0HQWMS
0fwiCt+B6XhgmWDY7KGpmsjCbU2ZZfdjATM6itEil7JwC3jSN2KmYZyjdall+G6uiiAwqvzcbmEh
odVRu9jq9lRIZ9n8rrBQjisfr6TRQ4fMgzvnr3MmporYMLNL220cvL6Odcswt6IGFo7uxv4DLqqk
0TzyWKg1NLsKP141sDJboYBLjU6wif2DR7Fn+yxYJFo7SVrGSYqySZSUqgtY2CmNpJULGWvaHaWp
0r0FOnC6IKRVRtG10Ojhhuln0ZTJ0FFhWZXpGZz4hS6aU5cwHU/izYsJhqM6WWcXmtEs9jUKvG3e
w/XzwFdOplhuOapj7cK5vXci3j0P49g5LJ44TcMSSSKMwqgs2jTXbCMUmfBxollJN7OyL8hzZWo2
EuaCecUAEPhlR2O0Q8lnRTo/u7QXD9x1Gs/PPIrJiYuU1V2sj3rY4kVnFv4bt+5XeAEVNGpVXEor
uMD8b0yvw6/FaPf2oL35FuDWt+HEu+/Gdr2OEek2JiNJSkasF2H6lNwf644tZ6peLj1kaL+XlCqx
SMm5rmnmV41AbXJSJeT/HyzdiOOHv4LGjiEWlINa7/1YNz4I8gwO4xzOxEexbC7BqiZYyQJ8r0O+
r9nIwzcJEdMBFGRhAyvHG6yfKtTvPgX/iwn851bgMC0Sw9CJwd7Brp1qIAIil8FJR0PkidKRuThM
Edje8WMnn1t9LQAvB4fhUt98flB/xt35Rw8f+CdjanGIeEhKjUws2R7s2u24pfY4bp5cwwF/hBXr
TRj5FZwYOujyMjLsSMoqUmDeGSGjmly6bhWFdwG1gydh3TqNlfXZvBtZxXbOoWhyCka7qVKmlegl
qZGQ577IiShBM8nRs/x8h+8W+6yicnSx8YVjm93wigAOHz5sfvdC/W+e3P/5I97iFqZt6ntGdG9t
Em+tTWCnVcctkwlm/L26eHcaOV70ZpGzIYnlSni3w+vTeFYi00Wh/SKvoRLMHnoGFbUD0dyUmnoa
2F3L85lGvRh61WKrsIuW4RQtTq6DJFfNKCnaysZCvVrsyCPlZrFhmYZHMfzFE5vdzmumkHj/rg/9
w0d6R//1I5M3ttiEKpTSEVyngnp6CFPxe7BvaUham8UwX8IGz1KYu2jcClVrn8ZmUTmBKdKeMsuO
mmYmhmcWMXXyLqwv2+ilHp7uVNW96WlyxCpBmfDZ9SN6KnbNbODURF6r6rCn2PGMVGhUHMSi8Ph3
xSI+8o7P7AgqFz4dv+UJZXsmZ2HKX7fAhG+hWglQnejDVtN6pDQNHz6jEdZ38GyRKlFKaqOc4HJV
TlQYL7eR4E1HNuClNTz/DQvtpIaT4V5944KSJOt3kXbbpMCW6fRbpjEaGFSzol5K2lXjqfe17S8j
kDn5x4M9j88ZiiwRWZqP48ilsFOYnYyQu0+hpY6iZ95Kj/kvf1n2UfKspEQ2WS3QtHQvxoKMK+w5
OHVsF1I3xPs+sYHzpxNstqYRPKL0jJGO5wz5fiyij9cj68AyC62PtBq1XkeN7n3n/V6hst82Q486
nUU0GKDb9eDYGYaVDCeTPiXEL2LbvRNTHIukn9s0rMmLtxM2HnbVJKbGT8YDDZucysYUKIvPn/3a
Eex7xxO4844AEwfPkVkyXFypYfr0EDIXx/xeooGMqVWPs2V65EzJMJEOnanXBODGzl1pEe+UfZ+Y
xZcNbJgRB4kaAZDigvYN+NHEjfCcHDFvNjDL7OjS+D6Nz0VqkDViso9IBCMtQWRJabxEKCOj7Lpp
A5eGLRqZUIlSU93WwOipC9rYTC96Xkg4K8ooMHUSrg6vvRVnKxv9UOS0r3maSQOUCsNiwf1yEkTa
A5zLsXjsd2DNT8NeClF3Otio/D7lr496EWPoGOR4Q2d3zBsZ9LzDGyjNOqmmUIvGqrg0Wi8Z9Hnt
cLSNTtBBkA212s1uqCOixM2SUHdhmQXSsbRO2QciFtSlsEBENpy0yFTD5k7ets8lQGgpZOMplY2e
m+MhhwoaU2vuQrK8jw1mjopyFg3/DHoyAqqQatNC4HLAJsPI1JSlclcaTKMHfUYgSGFyaAGXYgTz
uDQ+4fv+QhOLM22+RW3Eak+sEfIpB6sTC4W9vaY8iUpRppCA6fHaIzL8Qs3HHjKUa2DfVtU7tDIM
z0oGj+lfUiqwsjw9kIksLlI4q/uYEtQrjEgxiKgY97ND0kMxJTQZaeQIrY13HyTP6eFctLt4P6Ds
Zm4XBMJ8pTJlXhOMNMP6ng4cy2ZR+px7A7SiAeUGUJ92OeDMZV02rxYnOqHujbinCr+idtNEmRMS
2fkyTRJ2LuXXukz+5DoCLOAJAVB58mZEH3gE6dJxVKd3M1BHYMbU8x3KXAq41Kf3HZNMWgLQeSQ7
WvQ0WyhMGq2GnHHZ+vORpCO1zSDTkelvOLhIHVQw3baHPVzodTDMaMdooOyNbdMmOUzLzh/zwfFt
tPoD1gRnEt3dDS0pGOxJ3nFq7HkxflACyPUWAcIWOf9bdyP81e+j8uMbmTYec34S7nQLi94aer3d
GCm/BCAXln0gflUxCoZEgSAkEmJ8Tq8nA0oDplbC1/pbLs5c2sKIfD8ME4q/mMySoRqXe0qy72TI
1CcEJls4eSmvTa2NCr3Dx6FfNrYmx+wtuojNA6GVp9kWYS7Ijlp4yUTt4fvQu+frmHhqL+ImqZXe
j9pVmORxw+XFDRey8au7oExpwjqsH4gGGqdTOkgQdlkXjEYqw0xi4Py2ydyWCNH4/jQq9hxsDkDS
BF9yqZTVS0N9uXlWlA2yVKj+mH2Wuc6OC1mCps5Yjn1TPt7dj9bqqD57G6yBFOGIHhaVyamIw7jh
0GA7LOUCxvtNkka8c0EQQgQJjY77XMNyHxWsrYTBNr/+YWTv+jzccBKNx98FY5oE0Pv2eA9WlUAM
s8xMGmyK8eONMKqUZlwU5/jWQ2MA6ct9IE3yx+yK++sxvaNzWxjmhYOI9z9DyqT3F56Gn90Au0pb
tg4xaD5vNt7nLMZbH7LNQu9nI+YqU0jSJuNwomg8R3cJE+KtKlP0YyCL6mZVUV14CWus0JpBj575
uIMX45mAPSIfpPnJ88Por1kH30W5N/qKbTr2aPM7pmV9mkO4Ibmt6NaUDKLOXo/g8IPYXvh3+O53
6Flg7nADs8FbkTz8QSS9WnmtTDt5zPnC/an+IURLWUNm4USfGUqkHZdGUiROuAhXOxvN4bDqm2bd
kXFNmE3m35JKiyDJOttx+s+tOPlb3ui5y73+Cjnd27x3e2ZJvc8wOaGwechOsWHaenUXHkJYucAa
SHXej2yOlNULSHecglltwwl8BFuchUesjfgnhiuDUoBGK1mWfJevWQIog+lQ4FWpTIP0t558/sH7
+2n6KGX0pnRkuqMRkhi6afa1lcHoE8Ms/3vauP5S132tQ+uLg0f+5CNWxf3HuBszDVmkHA8NzgQX
bvlLJNs2lM0OXCWFNkQqswM7sltsYsrZgdpX/xhJYMmuPA1k6am89L4A0WBSHVXTKnSv8RoOouHo
mSfWf3wLTnwxucyOCtfMUt3x1/vx8phtrnrogebA+3/jOT/I3lute4u+baJSsTnrMkWuf4Gix+AN
Q61pVGwiCyidQ4k4KW5Aqqt32TcK2GyXliNbvYb2tmkLUBrOwnfYQxw2Qq/mwvbsfBiEv7f1n39+
6lW2CJhuP86aY7a5puNlhff2+/7i9sK1H1ZZLv2WBjhIrnse643vYsRJqxf1ZK9Up1bBKFguZwPX
0sxhVRx+3kKFc3Fl/RAqz75HRnKqYAXbKff2LbJYteGh0+x/9eEvfexDr7tn/lMcL4+UK+e+t7Zr
zz19w7feLT/UCbs4gx1QS2SKSg+ecmmEg4Iy26AxcJT+YYLzHkzPLs+cnSc7t8ONF+AzVfwGPU5w
4vnGTE22zk+zFn9t+fGbg5+F8a8AIMfquf84vrjn7prtO3dmBCGMUhnsgr0zRrFjQBATZKQKXHra
c32tUh3PQ2WijkZ9Bou9ezDRvJV5zmGozpmi6hKEh9pUVTasNldPHfvNR7/8yTVg/IvgzxqAHGvn
3v7g3M4sszz7qMFenrCheZsc5JfI43urHDfr8gsUzw4qO2oUZJMcO6dQteYwuXEH36vBpsddMXy6
yrPP8TZYeebbX/rkc9/+wgZKNal/WsNPkevXDAD4QbG+/NAjvrfrrGn7b/frXlV2x3JriMhdpUdn
4VdJGDVK4Aq9ny5hcu1tqG3dBDOdhEPPV6cqXFXkjpVvrb34/f/6zB/+2cbJH26ibELGGICwTII3
+AP4lTbtVHPzic3ti8+dKDK35lQmdjnVwulHZ6h3Ii0fzMLCVH49Js7fBqM9C9euE1xFp07GgbbZ
vHj66W98+e8e+9ynvhF1W8HY47J4AT2MBGMAb+hQr/OehFo0+D7brh2e3XPbL1lLxS3+nL97em6f
P+W/RZmoq8JgM3cszikqC6N+s7v14pkLP3ro+ObTj7Bg9QQlW+KD8fny57JJ9YZTSF3lfQm3yyVS
Vn6MWeBLi15ldrdXnZ0lLfmQ9h/1g6C70UrjQWts5KvXcLzE6Hhs+M+ERq8G4PLPCRhrHBkB5eAn
450cWhFftpLLHr80hP9c/oeP/9fH/wAbPIIRwRBQSwAAAABJRU5ErkJggg==
__EORESOURCE
  "globe2pc.png" => <<'__EORESOURCE',
iVBORw0KGgoAAAANSUhEUgAAADAAAAAQCAYAAABQrvyxAAAALHRFWHRDcmVhdGlvbiBUaW1lAFdl
ZCAyMCBGZWIgMjAxMyAwOToxNzoxMSArMTAwMPRNfdAAAAAHdElNRQfdAhMXGzm1QvgnAAAACXBI
WXMAABuuAAAbrgGMXXP4AAAABGdBTUEAALGPC/xhBQAABPtJREFUeNq1VmlsFGUYfr7d2d3ZQstu
AaGIltLS0ta2UKwRIsSDK0CiKX9o0UTEqokBiVSCpdE/pR7x+KGoUDkCQjxCDVEaicHEYKoBFVsp
tEpvueyybbcLM9vdnfGZnW5tC5iuwDv55ru/733e8xMYQamb9Q357quvLsiyjrPahGi7pKPjfACn
/vRrWQVTGu0SSj4pEbW4RVRRuVG/mf3SYGutPm1pkq9250YkWS1xsFoAmxXo9AMtlx34y5dgeW+P
NyvY1PtDcZX+6YESUXyrQDy/pgIYK7MA3caAqsItsa+yHYI5HmJHluE25v1GUbFtd/kAADKfrrY3
vF2eHDfJBhgi6e0HvFeBjovAhDHAigIgPy0RZVWJ4suKpiKCwK0CobpkHD52MaY9y+dPjtQW42ev
P3Ww6InkuBN1AHlGX5AA2fAQ6aVeglEAnwYkcPW6x4Ckwgx8v+OPVY9X6fNGe2HG9vzNGR/Mtl5v
joKFv88fUzH2GCRR+otTHN78JTlAkIxWfqGjYIaAjcxeIZCp41lcgItXu1g7HcCjC4DtbenC5+3f
xTNmjgaAHtKL9aCexubT15vv8/f9L+1JaGgpG79oKnYd6sc7z9lxul3g9HlKOw642AOMo/ksygQu
UBOXaVYOAsibBmQR8PFvtfToQdNKZ+qCqIVdQNiMElEurOMkg3nYJtlBADlpr+X4z778+4ZhGoCp
gVhIjgKQxsr32SwWhDUN8QJ4cj6wpdpwXNN/7hhvLjzZBtS2AAvuAe6cCGTOAH7+RhaDEg7qSFia
CGEVsDACSJIEl+yC0yIjrGtQNQVKWIVX9bwwvTzb31LRUB7dq4YMDcQGwNgTAWAVDnnZPAmbFpsD
z9IomrqA+Hhqgd5/rtccX5ZnFoM+/pUHXGHDO8REglpE0iAkTWjQwhrswg5FUxHU+iMgNArJAKoF
NftIZvx9sZnQvwCsDnR2mR1DBnv3AIn3Mh8wPulOYEnWtZvzaMkHj5FXtxmxohro/aprwIQsETPq
Tbg8CM42RY7UgWbl/bY3z2waep4ixW5CykACkAIBm66EIBoZdQ7UcIRM+YiuhRL2UfrKEWAhGQ4F
uJj2HybHl3hXHU1qDN3Xf8I8qLPqrPivC1PKsuqpoV/I/LqRc04pdid2RgGEQ45T/SHkln4EtHcC
G0vMsNnooc0zNNd2UNKvcCW19NJKYOtDTCoGOEaotFT01I3yQr1f+4wAXr/uZI8aswaMPREASEbZ
vip8/eAKYBYdNDsVWJM7fG3ePqCeUenzJjr5HAIlONcEIBBC5Wjva3urceuN5iYzC9fs3RJJvN3U
vpu+Z3TkASlH7J1hp5sY3ZIZgVwDc6ba5+p1CCLXSNl22nzPuwNSY9H4e+o7oMFwbK5++G4zInk9
aD5eKtJiE9u1dLNvIRMAnxLuq/ipW8Ekwwey84H1jwBzCMgXBt44TiDMxApN52/mhrtknDt6Eg9g
p2i7WQAjaX/1fl3p6Y6YyLxZZqKv/Y1vRz43nC43VheuHuZrpiLISPda/f7pqfjQo2BhQzOkFynx
otl0XqrPx/OsrAMKtDgVh4+ewfrbwbxBrZ4LfNythYtflDLnz0UPv227d95AA0MRPaMvmToZqxjG
C+xWJBuPF0mgWQ3Qnz04FKoSR24H41E6+ONhvaa6GinxKVC6lMiYc6ITrX2tWFZYiJVzlw/j+R/I
CxOSMKGvrAAAAABJRU5ErkJggg==
__EORESOURCE
  "no-globe2pc.png" => <<'__EORESOURCE',
iVBORw0KGgoAAAANSUhEUgAAADAAAAAQCAQAAAD6pzQ6AAAALHRFWHRDcmVhdGlvbiBUaW1lAFdl
ZCAyMCBGZWIgMjAxMyAwOToxNzoxMSArMTAwMPRNfdAAAAAHdElNRQfdAhMXJACymVoTAAAACXBI
WXMAABuuAAAbrgGMXXP4AAAABGdBTUEAALGPC/xhBQAAAqpJREFUeNqNVM1LVFEU/903d5oPp4zw
I5MZFceIPpTMoqKdZW1ctMomXLhoWURLCdpE/0CLdrkIwjFaBAUVSpuaIgo0KjKykoiJoWwaxzeN
vo9+986kBvN0zuHdd7/O+d1zzu9egbL0Xwhfbq6VIossMk7Le+PsSApVyEl37XWhmt7WSKq/SXDg
g4kcFpDCnNs1OpKoBuAENlAdLMEPCy5b1TOwSH0AqdwX354JB7l5CX94/iBiaMJj8eT0EKqBCOCd
x8pOfgaQvnMwPEtkC0UCmGxtRrIPcbwYGDpcyXBwOhFaGflR8FA/V2Vvn9Edo/OnPLXBf4Tqw0aG
FkdOmDewo0JeO4w0Nq+MC2vEJzPD7XiFPmQwx2AX+MXYqiw2UD9vV5sSriqW0AUzGKuEW5vI3Goo
uTAYd2UxFID/gKCJgd0sbJ69CCcz+I4oo6jHrCaBmi05V8VztKL+1NdkVK1anhFYCsAIxtHNzgTZ
E6Ca7LdRgQ9kgYUSgKsBHP3ZeoZ9X8mN7QlgawDMa4PXqNMnjC4vb8W0IplezZcTVNAjpgiFn2Pb
yhXxBFAW0nFtYWJSM3mR2ZxEM88ttbNf2KQ3JsX/hgnHnh+rWy6jZw2UFyne2J0TZH8PC5tjNFmM
Mk1d2Eu6OtiSrWS49Km4ZzWHTA8AFZmsGZ6618Z0NKK9PD2O30ijg3Ah2FcrGd6Orx6FcFHfohCP
6NOZVzdDMkGylKaeKadTktaDZYOXjEOwIj+Qn0nGsY5U8Rb1tlrPrcYAL9ou0tEie1Q1eA+/pY9M
fFkP4J+cc03aqPN8ZCxhXBMrhVaP3XXrqCMD5JBNxvDhcqz72fPVu+fz4fbpi6XEwSPcXA2g5Njx
mgF3v2jh1IydMu+OP6zeuZJL7jNezTx7Eab4EK6UPf8FJXTtexSVqxMAAAAASUVORK5CYII=
__EORESOURCE
  "no-pc2globe.png" => <<'__EORESOURCE',
iVBORw0KGgoAAAANSUhEUgAAADAAAAAQCAQAAAD6pzQ6AAAALHRFWHRDcmVhdGlvbiBUaW1lAFdl
ZCAyMCBGZWIgMjAxMyAwOToyNzoxNyArMTAwMA5/LusAAAAHdElNRQfdAhMXJA3MKCauAAAACXBI
WXMAABuuAAAbrgGMXXP4AAAABGdBTUEAALGPC/xhBQAAAqFJREFUeNqlVM9LVFEU/u6bZ/NDywh/
ZKImji2sjMyiol1lbVy0yl64mEXLIlpK0Cb6B1q0y0UQjhERFFQ4tLEpokCjIiNLiZgYyqZxfNPo
+9F37zyeEL540T28e8+9797znXPud6444eKv7Y5AqDZ4PnGptV4XBRSQdzreaWdGs3JdB45jHcXB
CmpgwWUvNQ3LlAehjB/eWpcdbBEQiMBEEUtatmdhMjU2aiiAKN4GHOwJab7y5nQiRm0Fv+h/DO1o
wWMxeSqFUUMDvS0HSE2AyeEZI746y93en5hn5BYqBDDZ24xkD5J4PpQ6qMst5XBp9pvo1nLY6Pk/
oPW10/gTeq1xrKNEsJ6pSaIozOsE0Ii7dtO80SARhBK55vKwW2/kbzbJf/mRLrzEAPJYYLKX+LWz
l7fYRPm0jQBWYASWN7r0qmpcXr6jBI0nP6fbmOB9gv817EAWJbWToPiKNkbRiHlBADsQwPYBXAXg
qM9WK9QjKspYEn0cM2RPlGJS76QA78lCS7JIBAIIH6DkJaisZkwRyt/Ht1TTuKjWXqFBRdjmn96M
Ge7UJVOD7kD3xvQfxWY49uJ4Q1V3XFuYmFKVtExLU2it+k1nfmCD1MoqrLVaUGQrHys7/Shf270Z
sr+fF1tkNAWM0d4u7CZdHWwqECCOC4rFcW6JqMzLytCZEj0A4FZyVa8dmb7XyXQ0o8tbmcBP5NBN
uDjsK+L/36L+aadXZ1kMe/MXjEPwRr6hNJtO+sfPuib9lq59IHICV0M+cvKpsJ5ZzVEW2naS1CJ7
5G3wHfiSO5SZ880MuwN+YTl4hBuhAdRjd8064uhRcsgm4/hwOtb9wrnM3CoTcdF9ytIoUatjiAdw
+R8AZDt6rHbI3Ss6aHLWzpp3Jx5W138DQo/tiUjTDEIAAAAASUVORK5CYII=
__EORESOURCE
  "pc2globe.png" => <<'__EORESOURCE',
iVBORw0KGgoAAAANSUhEUgAAADAAAAAQCAYAAABQrvyxAAAALHRFWHRDcmVhdGlvbiBUaW1lAFdl
ZCAyMCBGZWIgMjAxMyAwOToyNzoxNyArMTAwMA5/LusAAAAHdElNRQfdAhMXHAM8D7dSAAAACXBI
WXMAABuuAAAbrgGMXXP4AAAABGdBTUEAALGPC/xhBQAABPVJREFUeNrNVllsVFUY/s7Mna3QMlPA
AoJQWrYWWizWCLGNC1uARAMvLD6ItWo0IBEkWBp9sOCKPghRqC0EhLikNURLJAYTg6kGFyy20Cpt
p1SW2mHaTgfunc7MvX7nTtt0IcaRPvhPztx7/nvPPd/3r0eU7N5q4DakuGiPuJ31QyVth7Elx3Pz
lfwM6xirTQhvm4FLV0Ko/SOoZ+ROqrcrKPyoUFT3va/Iv+c2lgCjnRxAh1RoGjwK5xrvI4jpI5w4
nfDI50E5NOw7WDxyyAuMacsnBqrLtmKi1ZIAqwWwWYFW7tV03YE/A0mW9w75M8INXd+tLzU+PlYo
1vcT0NxOVJ2+Ftd+K/MmjCj4mVpL3Z7iqQkpNkCGRFcP4L8JXCKscaOAVblATnoyikqTxeclDetI
ApKESYCGRbA7GNeeck08Mmt/zg5Ejbcanj0bHfrMfq62Yt2rcxN+rAGm3EOnh4mH4H2E1NYFCHoj
oANJvG56FGhpm4VvD/y+9rFSY6/S95HuYPfIWfQWYkSM9UbYSOftk0OsvzTV4c9ZNg8Iq8Duzwzk
zhCwEewNEpk8lsMNuBlObl5dDuCRfGC/d6YI+HvKYx7Af/DAkPm0bbMNwV2FXUDY5LCYeusYRYKH
LcUOEpiX/tq84MWXftvSv7CuqWjskskoP96Dd56x43yLwPkrtHYCcK0TGMPwWTIHuEpPXGdYOUgg
exqQQcJnvtZnxnIgIj0QHwG5ZpCFwwaSlidDWAUszEBFUeB2uuGyOBk5OjRdhRrV4Nd8z08vzgw2
ldSZFUAZ7bzXZrEgqutIZD17PA/YWSkTN1Y/7hgb+/5ZL1DdBOTPBe4cD8yZAfz0lVP0Ewh2xxdC
wwnopqVBELrQoUd12IUdqq4hrPeYJHSClET1sG7vW2cVDueKRQq2L43Nny4HGtqBxER6gdXvcldM
vyI7NqR8+Av3v8Ebf28VUpX4Q0hVBs8lsK4v2ntDyGKGUVfS9X5ytklO8xpqVPd637ywvZ+A1YHW
9ti9RHD4EJDMRE7j9w0XsCxj+N7ZzKSK07SVp5eAS4k/iV1DCLSWXvzHhpZalHGOHvqZ4DcN1IdC
NkONQNSz6hw7QQVBBejdJlo4QOurJ4HFBBwJESzjP0ont5FpjRcYNbuXADq1uD0g18QjRo/+CQm8
PlQfjThqeyLI2vYBy2MrsLWQPYDVqN7HmGcPqL5ES7/MF+mlF9cAux5kU5XkWKHS09BpEpjALnzi
8E6z8XaQvYexJyfOXiub8c6y00GOHiVWgdzKv8Zuivft+l23fDAVRUdK8eUDq4D5TNDMNGBj1uBX
so8A51iVPm1gki8gUZJzj6P3Itgt/hdnoYVGDcLIkkcWO2O+891er3Ho/HviG1Zbmdjc6aG7YhXJ
70PjmW0ifdjmRyuPGmpnhxkii+YvMnXVv/LsxOOGy+3BhtUbRvTwZgqPEp6b+KFDRYrMgcwcYPPD
wAISCrBvv3GGRNiJVYbOX+wNU5y4fOos7keZ8A4LhGbfVR7uCuDmr0/m5C1EJ3/7DpaNOHZTCKSj
wLhvehre96lYXNcI5QVafN3dTF6Gb4D2tPIaUqEnaKg6dQGb5Rq5dJg1K76vMk5UViI1MRVqu2rq
XONdaO5uxorVq7Fm4cqR98AAUZ4ylk2egLVsI7l2K6ZapU6gUQsxn304HikVJwe+/zfx3vd9ocgZ
0wAAAABJRU5ErkJggg==
__EORESOURCE


);
}