--- lib/PXElator/httpd.pm	2009/09/13 16:07:33	430
+++ lib/PXElator/httpd.pm	2009/09/14 13:44:42	431
@@ -36,20 +36,6 @@
 </html>
 }}
 
-sub menu {
-qq{
-<div style="font-size: 80%; color: #888">
-<a href=/ target=/>home</a>
-<a href=/server target=server>server</a>
-<a href=/brctl target=brctl>brctl</a>
-<a href=/ip target=ip>ip</a>
-<a href=/nmap target=nmap>nmap</a>
-<a href=/client target=client>client</a>
-<a href=http://$server::ip:5984/_utils/ target=couchdb>couchdb</a>
-</div>
-
-}}
-
 our $port = 7777;
 
 use server;
@@ -79,6 +65,24 @@
 
 use CouchDB;
 
+
+sub menu {
+	my $couch_url = $url;
+	$couch_url =~ s{:\d+.+}{:5984/_utils/};
+qq{
+<div style="font-size: 80%; color: #888">
+<a href=/ target=/>home</a>
+<a href=/server target=server>server</a>
+<a href=/brctl target=brctl>brctl</a>
+<a href=/ip target=ip>ip</a>
+<a href=/nmap target=nmap>nmap</a>
+<a href=/client target=client>client</a>
+<a href=$couch_url target=couchdb>couchdb</a>
+</div>
+
+}}
+
+
 sub static {
 	my ($client,$path) = @_;