web: Create admin sub-interface

2 files changed, 17 insertions, 1 deletions

diff --git a/interfaces/http/admin/admin.rb b/interfaces/http/admin/admin.rb
new file mode 100644
index 0000000..347a051
--- /dev/null
+++ b/interfaces/http/admin/admin.rb
@@ -0,0 +1,16 @@
+class AdminInterface < Sinatra::Base
+  enable :sessions
+  
+  before ['/admin', '/admin/*'] do
+    redirect '/login', 303 if not false
+  end
+
+  get '/login' do
+  end
+  
+  get '/admin' do
+    @title = $config.title
+    @posts = Post.all
+    erb :index
+  end
+end
diff --git a/interfaces/http/http.rb b/interfaces/http/http.rb
index 0589c93..ec5f105 100644
--- a/interfaces/http/http.rb
+++ b/interfaces/http/http.rb
@@ -5,7 +5,7 @@ $config = Config.first
 
 class HTTPInterface < Sinatra::Base
   require_relative 'web/web'; use WebInterface
-  # require_relative 'admin/admin'; use AdminInterface
+  require_relative 'admin/admin'; use AdminInterface
   # require_relative 'rss/rss'; use RSSInterface
   
   run! if app_file == $0