Image::Magick was changed to Imager.

Creating some different sizes of uploaded image.
Added single user auth.

fotostore.pl

@@ -6,43 +6,110 @@ use Mojolicious::Lite; # app, get, post is exported.
 
 use File::Basename 'basename';
 use File::Path 'mkpath';
-use Image::Magick;
+use File::Spec 'catfile';
+use Cwd;
+use Getopt::Long;
+
+use Imager;
+
+my $predefined_user = 'alpha6';
+my $predefined_password = "";
+GetOptions('password=s', \$predefined_password);
+
+die "No user password defined!" unless($predefined_password);
 
 # Image base URL
-my $IMAGE_BASE = '/image-bbs/image';
+my $IMAGE_BASE = 'images';
-my $ORIG_DIR = '/orig';
+my $ORIG_DIR = 'orig';
-my $width = 640;
+
-my $height = 480;
+my $thumbs_size = 200;
+
+my @scale_width = ($thumbs_size, 640, 800, 1024);
 
 # Directory to save image files
 # (app is Mojolicious object. static is MojoX::Dispatcher::Static object)
-my $IMAGE_DIR  = app->static->root . $IMAGE_BASE;
+my $IMAGE_DIR  = File::Spec->catfile(getcwd(), 'public', $IMAGE_BASE);
 
 # Create directory if not exists
 unless (-d $IMAGE_DIR) {
     mkpath $IMAGE_DIR or die "Cannot create directory: $IMAGE_DIR";
 }
-unless (-d $IMAGE_DIR.$ORIG_DIR) {
+
-    mkpath $IMAGE_DIR.$ORIG_DIR or die "Cannot create directory: $IMAGE_DIR$ORIG_DIR";
+my $ORIG_PATH = File::Spec->catfile($IMAGE_DIR, $ORIG_DIR);
+unless (-d $ORIG_PATH) {
+    mkpath $ORIG_PATH or die "Cannot create directory: $ORIG_PATH";
 }
 
+for my $dir (@scale_width) {
+    my $scaled_dir_path = File::Spec->catfile($IMAGE_DIR, $dir);
+    unless (-d $scaled_dir_path) {
+       mkpath $scaled_dir_path or die "Cannot create directory: $scaled_dir_path";
+    }   
+}
+
+plugin 'authentication', {
+    autoload_user => 1,
+    load_user => sub {
+        my $self = shift;
+        my $uid  = shift;
+ 
+        return {
+            'username' => $predefined_user,
+            'password' => $predefined_password,
+            'name'     => 'User Name'
+            } if ($uid eq 'userid' || $uid eq 'useridwithextradata');
+        return undef;
+    },
+    validate_user => sub {
+        my $self = shift;
+        my $username = shift || '';
+        my $password = shift || '';
+        my $extradata = shift || {};
+ 
+        # return 'useridwithextradata' if($username eq 'alpha6' && $password eq 'qwerty' && ( $extradata->{'ohnoes'} || '' ) eq 'itsameme');
+        return 'userid' if($username eq $predefined_user && $password eq $predefined_password);
+        return undef;
+    },
+};
+
+post '/login' => sub {
+    my $self = shift;
+    my $u    = $self->req->param('username');
+    my $p    = $self->req->param('password');
+ 
+    if ($self->authenticate($u, $p)) {
+        $self->redirect_to('/');
+    } else {
+        $self->render(text => 'Login failed :(');
+    }
+    
+};
+
+get '/logout' => sub {
+    my $self = shift;
+ 
+    $self->logout();
+    $self->render(text => 'bye');
+};
+
 # Display top page
 get '/' => sub {
     my $self = shift;
     
+    my $thumbs_dir = File::Spec->catfile($IMAGE_DIR, $thumbs_size);
     # Get file names(Only base name)
-    my @images = map {basename($_)} glob("$IMAGE_DIR/*.jpg $IMAGE_DIR/*.gif $IMAGE_DIR/*.png");
+    my @images = map {basename($_)} glob("$thumbs_dir/*.jpg $thumbs_dir/*.gif $thumbs_dir/*.png");
     
     # Sort by new order
     @images = sort {$b cmp $a} @images;
     
     # Render
-    return $self->render(images => \@images, image_base => $IMAGE_BASE, orig => $ORIG_DIR);
+    return $self->render(images => \@images, image_base => $IMAGE_BASE, orig => $ORIG_DIR, thumbs_size => $thumbs_size, scales => \@scale_width);
 
 } => 'index';
 
 # Upload image file
-post '/upload' => sub {
+post '/upload' => (authenticated => 1)=> sub {
     my $self = shift;
 
     # Uploaded image(Mojo::Upload object)
@@ -85,27 +152,26 @@ post '/upload' => sub {
     my $ext = $exts->{$image_type};
     
     # Image file
-    my $filename = create_filename();
+    my $filename = create_filename($ext);
-    my $image_file = "$IMAGE_DIR$ORIG_DIR/" . $filename. ".$ext";
+    my $image_file = File::Spec->catfile($ORIG_PATH,  $filename);
     
     # If file is exists, Retry creating filename
     while(-f $image_file){
         $filename = create_filename();
-        $image_file = "$IMAGE_DIR$ORIG_DIR/" . $filename . ".$ext";
+        $image_file = File::Spec->catfile($ORIG_PATH,  $filename);
     }
     
     # Save to file
     $image->move_to($image_file);
    
-    $image = Image::Magick->new();
+    my $imager = Imager->new();
-    $image->read($image_file);
+    $imager->read(file => $image_file) or die $imager->errstr;
-    my ($ox, $oy) = $image->Get('base-columns', 'base-rows');
-    if ($ox > $width ) {
-        my $ny = (($oy/$ox)*$width);
-        $image->Resize(geometry =>'geometry', width=>$width, height=>$ny);
-    }
-    $image->Write("$IMAGE_DIR/$filename.$ext");
 
+    for my $scale (@scale_width) {
+        my $scaled = $imager->scale(xpixels => $scale);
+        $scaled->write(file => File::Spec->catfile($IMAGE_DIR, $scale, $filename)) or die $scaled->errstr;
+    }
+   
 
     # Redirect to top page
     $self->redirect_to('index');
@@ -113,19 +179,20 @@ post '/upload' => sub {
 } => 'upload';
 
 sub create_filename {
+    my $ext = shift || 'jpg';
     
     # Date and time
     my ($sec, $min, $hour, $mday, $month, $year) = localtime;
     $month = $month + 1;
     $year = $year + 1900;
     
-    # Random number(0 ~ 99999)
+    # Random number(0 ~ 999999)
-    my $rand_num = int(rand 100000);
+    my $rand_num = int(rand 1000000);
 
     # Create file name form datatime and random number
     # (like image-20091014051023-78973)
-    my $name = sprintf("image-%04s%02s%02s%02s%02s%02s-%05s",
+    my $name = sprintf('image-%04s%02s%02s%02s%02s%02s-%06s.%s',
-                       $year, $month, $mday, $hour, $min, $sec, $rand_num);
+                       $year, $month, $mday, $hour, $min, $sec, $rand_num, $ext);
     
     return $name;
 }
@@ -149,10 +216,13 @@ __DATA__
 <html>
   <head>
     <meta http-equiv="Content-Type" content="text/html;charset=UTF-8" >
-    <title>Image BBS</title>
+    <title>Rough, Slow, Stupid, Contrary Photohosting</title>
   </head>
   <body>
-    <h1>Image BBS</h1>
+    <h1>Rough, Slow, Stupid, Contrary Photohosting</h1>
+    <% if (is_user_authenticated()) { %>
+    <div><a href="/logout">Logout</a></div>
+    <hr>
     <form method="post" action="<%= url_for('upload') %>" enctype ="multipart/form-data">
       <div>
         File name
@@ -160,13 +230,27 @@ __DATA__
         <input type="submit" value="Upload" >
       </div>
     </form>
+    <% } else { %> 
+    <form method="post" action="<%= url_for('login') %>" >
+      <div>
+        <input type="text" name="username" >
+        <input type="password" name="password">
+        <input type="submit" value="Login">
+      </div>
+    </form>
+    <% } %>
     <div>
 <% foreach my $image (@$images) { %>
       <div>
         <hr>
-        <div><a href='<%= "$image_base$orig/$image" %>'>Image original</a></div>
         <div>
-          <img src="<%= "$image_base/$image" %>">
+            <a href='<%= "/$image_base/$orig/$image" %>'>Image original</a>
+            <% for my $scale (@$scales) { %>
+                <a href='<%= "/$image_base/$scale/$image" %>'><%= $scale %></a>
+            <% } %>
+        </div>
+        <div>
+          <img src="<%= "/$image_base/$thumbs_size/$image" %>">
         </div>
       <div>
 <% } %>