From 3af9838ac1d66bf8d707e01195e4efc61f7afca3 Mon Sep 17 00:00:00 2001
From: vti <viacheslav.t@gmail.com>
Date: Tue, 8 Jun 2010 22:54:25 +0200
Subject: [PATCH] Added logo

---
 public/main.css | 12 ++++++++++++
 showmetheslides |  8 +++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/public/main.css b/public/main.css
index ebf08c9..170baee 100644
--- a/public/main.css
+++ b/public/main.css
@@ -44,6 +44,17 @@ pre {
     color:red;
 }
 
+#logo {
+    background:#000;
+    color:#fff;
+    text-align:center;
+    padding:0.5em;
+    position:absolute;
+    right:0px;
+    top:0px;
+    z-index:2;
+}
+
 #status {
     background:#000;
     color:#fff;
@@ -55,6 +66,7 @@ pre {
     z-index:2;
 }
 
+
 #header,#footer {
     color:#333;
     text-align:center;
diff --git a/showmetheslides b/showmetheslides
index ee5e113..45b6483 100644
--- a/showmetheslides
+++ b/showmetheslides
@@ -113,6 +113,7 @@ get '/' => sub {
 
     $self->stash(header => $METADATA->{header});
     $self->stash(footer => $METADATA->{footer});
+    $self->stash(logo => $METADATA->{logo});
 } => 'index';
 
 any '/login' => sub {
@@ -260,7 +261,7 @@ sub _read_slides {
     my $metadata = {};
     if ($slurp =~ s/^(.*?)\s*(?=@)//s) {
         foreach (split /\n/ => $1) {
-            my ($name, $value) = ($_ =~ m/(.*?):(.*)/);
+            my ($name, $value) = ($_ =~ m/(.*?):\s*(.*)/);
             $metadata->{lc $name} = $value;
         }
     }
@@ -372,6 +373,11 @@ installed. It is used as workaround.
             slides: <span id="websocket-presentation-current">n/a</span> / 
             <span id="websocket-presentation-total">n/a</span>
         </div>
+% if (my $logo = stash 'logo') {
+        <div id="logo">
+        <img src="<%= $logo %>" />
+        </div>
+% }
         <div id="chat">
             <div id="chat-menu"><a href="" id="toggle">Chat</a></div>
             <div id="chat-window"></div>