Separate out App::IdiotBox::* DB objects and put create/update

[catagits/App-IdiotBox.git] / lib / App / IdiotBox.pm

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 081327e..119f517 100644 (file)
--- a/lib/App/IdiotBox.pm
+++ b/lib/App/IdiotBox.pm
@@ -7,40 +7,9 @@ use HTML::Zoom;
 use HTML::Zoom::FilterBuilder::Template;
 use List::Util qw(first);
 
-{
-  package App::IdiotBox::Announcement;
-
-  sub id { shift->{id} }
-  sub made_at { shift->{made_at} } 
-  sub bucket { shift->{bucket} } 
-  sub video_count { shift->{video_count} } 
-
-  package App::IdiotBox::Bucket;
-
-  sub slug { shift->{slug} }
-  sub name { shift->{name} }
-  sub video_count {
-    exists $_[0]->{video_count}
-      ? $_[0]->{video_count}
-      : $_[0]->{videos}->count
-  }
-  sub videos { shift->{videos} }
-
-  package App::IdiotBox::Video;
-
-  sub slug { shift->{slug} }
-  sub name { shift->{name} }
-  sub author { shift->{author} }
-  sub details { shift->{details} }
-  sub bucket { shift->{bucket} }
-  sub file_name {
-    (my $s = join(' ', @{+shift}{qw(author name)})) =~ s/ /-/g;
-    $s;
-  }
-  sub url_path {
-    join('/', $_[0]->bucket->slug, $_[0]->slug);
-  }
-}
+use App::IdiotBox::Announcement;
+use App::IdiotBox::Bucket;
+use App::IdiotBox::Video;
 
 has $_ => (is => 'ro') for qw(recent_announcements buckets);
 
@@ -66,6 +35,51 @@ sub BUILD {
 sub dispatch_request {
   my $self = shift;
   sub (/) { $self->show_front_page },
+
+  sub (/admin/) {
+    sub (%new_name=&new_slug=) {
+        my ($self, $name, $slug) = @_;
+
+        my ($nb, $err) = App::IdiotBox::Bucket->create(
+          slug => $slug,
+          name => $name,
+        );
+
+        return $self->show_admin_page(error => $err) if $err;
+
+        my $nb = $self->buckets->add($nb);
+
+        $self->show_admin_page;
+    },
+  },
+  sub (/admin/) { $self->show_admin_page },
+
+  sub (/admin/*/...) {
+    my $bucket = $self->buckets->get({ slug => $_[1] });
+    sub (%new_name=) {
+      my ($self, $new_name) = @_;
+
+      my ($ub, $err) = $bucket->update(
+        name => $new_name,
+      );
+
+      return $self->show_admin_page(error => $err) if $err;
+
+      $self->buckets->replace($bucket, $ub);
+
+      $self->show_bucket_edited_page($bucket);
+    },
+    sub (/) {
+      $self->show_edit_bucket_page($bucket);
+    },
+    sub (/delete/) {
+      $self->show_confirm_delete_bucket_page($bucket)
+    },
+    sub (/delete/yes/) {
+      $self->buckets->remove({ slug => $bucket->slug });
+      $self->show_bucket_deleted_page($bucket->slug);
+    },
+  },
   sub (/*/...) {
     my $bucket = $self->buckets->get({ slug => $_[1] });
     sub (/) {
@@ -101,6 +115,68 @@ sub show_front_page {
   );
 }
 
+sub show_admin_page {
+  my $self = shift;
+  my %opts = @_;
+  my $error = $opts{error} || '';
+
+  my $bucket = $self->buckets;
+  $self->html_response(
+    admin => sub {
+      $_->select('#bucket-list')
+        ->repeat_content($bucket->map(sub {
+            my $obj = $_;
+            sub {
+              $_->select('.bucket-slug')->replace_content($obj->slug)
+                ->select('.bucket-name')->replace_content($obj->name)
+                ->select('.edit-link')->set_attribute(
+                    'href' => $obj->slug.'/'
+                  )
+                ->select('.delete-link')->set_attribute(
+                    'href' => $obj->slug.'/delete/'
+                  )
+            }
+          }))
+        ->select('.error-text')->replace_content($error)
+
+    }
+
+  );
+}
+
+sub show_confirm_delete_bucket_page {
+  my ($self, $bucket) = @_;
+  $self->html_response('delete' => sub {
+    $_->select('.bucket-name')->replace_content($bucket->name)
+      ->select('.confirm-yes')->set_attribute(
+        'href' => 'yes/'
+        )
+  });
+}
+
+sub show_edit_bucket_page {
+  my ($self, $bucket, %opt) = @_;
+  my $error = $opt{error} || '';
+  $self->html_response('edit' => sub {
+    $_->select('.bucket-name')->replace_content($bucket->name)
+      ->select('.error-text')->replace_content($error);
+  });
+}
+
+sub show_bucket_deleted_page {
+  my ($self, $name) = @_;
+  $self->html_response('deleted' => sub {
+    $_->select('.bucket-name')->replace_content($name)
+  });
+}
+
+sub show_bucket_edited_page {
+  my ($self, $name) = @_;
+  $self->html_response('edited' => sub {
+    $_->select('.bucket-name')->replace_content($name)
+  });
+}
+
 sub show_bucket {
   my ($self, $bucket) = @_;
   $self->html_response(bucket => sub {