--- trunk/lib/Frey/Web.pm	2008/10/31 16:28:58	210
+++ trunk/lib/Frey/Web.pm	2008/11/16 00:37:34	350
@@ -96,6 +96,7 @@
 =cut
 
 use Frey::Bookmarklet;
+use Frey::ClassBrowser;
 
 sub page {
 	my $self = shift;
@@ -111,9 +112,10 @@
 	. ( $a->{body} || '<!-- no body -->' )
 	. qq|<div class="frey-status-line">
 		<a href="/">Frey</a> $Frey::VERSION
-		<a href="?reload=$reload_counter">reload</a>
+		<a href="?reload=$reload_counter"><code>| . dump( $ENV{'REQUEST_URI'} ) . qq|</code></a>
 		<span class="frey-popup">Bookmarklets<span>| . Frey::Bookmarklet->markup . qq|</span></span>
 		<span class="frey-popup">ClassBrowser<span>| . Frey::ClassBrowser->markup . qq|</span></span>
+		<span class="frey-popup">ENV<span><code>| . dump( %ENV ) . qq|</code></span></span>
 		</div>
 	    </body></html>
 	|;
@@ -123,4 +125,11 @@
 	return $html;
 }
 
+sub error {
+	my ( $self, $error ) = @_;
+	warn $error;
+	$error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
+	return qq|<pre class="frey-error">$error</pre>|;
+}
+
 1;