medvedych/fotostore
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Image::Magick was changed to Imager.

Browse source 
Creating some different sizes of uploaded image.
Added single user auth.
This commit is contained in:
Denis Fedoseev 2017-07-18 14:02:15 +09:00
parent 1e42ed051e
commit 665c374efd
1 changed files with 114 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

142
fotostore.pl
View file

@ -6,43 +6,110 @@ use Mojolicious::Lite; # app, get, post is exported.
use File::Basename 'basename'; use File::Basename 'basename';
use File::Path 'mkpath'; 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 # 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 # Directory to save image files
# (app is Mojolicious object. static is MojoX::Dispatcher::Static object) # (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 # Create directory if not exists
unless (-d $IMAGE_DIR) { unless (-d $IMAGE_DIR) {
mkpath $IMAGE_DIR or die "Cannot create directory: $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 # Display top page
get '/' => sub { get '/' => sub {
my $self = shift; my $self = shift;
my $thumbs_dir = File::Spec->catfile($IMAGE_DIR, $thumbs_size);
# Get file names(Only base name) # 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 # Sort by new order
@images = sort {$b cmp $a} @images; @images = sort {$b cmp $a} @images;
# Render # 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'; } => 'index';
# Upload image file # Upload image file
post '/upload' => sub { post '/upload' => (authenticated => 1)=> sub {
my $self = shift; my $self = shift;
# Uploaded image(Mojo::Upload object) # Uploaded image(Mojo::Upload object)
@ -85,26 +152,25 @@ post '/upload' => sub {
my $ext = $exts->{$image_type}; my $ext = $exts->{$image_type};
# Image file # 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 # If file is exists, Retry creating filename
while(-f $image_file){ while(-f $image_file){
$filename = create_filename(); $filename = create_filename();
$image_file = "$IMAGE_DIR$ORIG_DIR/" . $filename . ".$ext"; $image_file = File::Spec->catfile($ORIG_PATH, $filename);
} }
# Save to file # Save to file
$image->move_to($image_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 ) { for my $scale (@scale_width) {
my $ny = (($oy/$ox)*$width); my $scaled = $imager->scale(xpixels => $scale);
$image->Resize(geometry =>'geometry', width=>$width, height=>$ny); $scaled->write(file => File::Spec->catfile($IMAGE_DIR, $scale, $filename)) or die $scaled->errstr;
} }
$image->Write("$IMAGE_DIR/$filename.$ext");
# Redirect to top page # Redirect to top page
@ -113,19 +179,20 @@ post '/upload' => sub {
} => 'upload'; } => 'upload';
sub create_filename { sub create_filename {
my $ext = shift || 'jpg';
# Date and time # Date and time
my ($sec, $min, $hour, $mday, $month, $year) = localtime; my ($sec, $min, $hour, $mday, $month, $year) = localtime;
$month = $month + 1; $month = $month + 1;
$year = $year + 1900; $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 # Create file name form datatime and random number
# (like image-20091014051023-78973) # (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; return $name;
} }
@ -149,10 +216,13 @@ __DATA__
<html> <html>
<head> <head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8" > <meta http-equiv="Content-Type" content="text/html;charset=UTF-8" >
<title>Image BBS</title> <title>Rough, Slow, Stupid, Contrary Photohosting</title>
</head> </head>
<body> <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"> <form method="post" action="<%= url_for('upload') %>" enctype ="multipart/form-data">
<div> <div>
File name File name
@ -160,13 +230,27 @@ __DATA__
<input type="submit" value="Upload" > <input type="submit" value="Upload" >
</div> </div>
</form> </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> <div>
<% foreach my $image (@$images) { %> <% foreach my $image (@$images) { %>
<div> <div>
<hr> <hr>
<div><a href='<%= "$image_base$orig/$image" %>'>Image original</a></div>
<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>
<div> <div>
<% } %> <% } %>