!サンプル http://www21051ue.sakura.ne.jp/sample/AutomaticImageMontage/index.html ↑こんなアルバムがほしい〜〜！！！ 超カッコいいJQueryのサンプルが見れダウンロード出来る[ページ|http://tympanus.net/codrops/2011/08/30/automatic-image-montage/]から js,sccを拝借 http://www21051ue.sakura.ne.jp/sample/jQuerySimpleImageSlideShow/index.html opendir my $dh,'images'; print map {"[" . $_->[0] ."]"} sort { $b->[1] <=> $a->[1] } map { [$_, -M "images/$_" ]} grep ( /^[^.]/,readdir $dh); $ sudo cpanm Mojolicious --> Working on Mojolicious Fetching http://search.cpan.org/CPAN/authors/id/S/SR/SRI/Mojolicious-3.53.tar.gz ... OK Configuring Mojolicious-3.53 ... OK Building and testing Mojolicious-3.53 ... OK Successfully installed Mojolicious-3.53 1 distribution installed http://yusukebe.com/archives/20120627/181253.html !subversion http://blog.riywo.com/2008/04/01/054421 $ sudo apt-get install subversion libapache2-svn Reading package lists... Done Building dependency tree Reading state information... Done The following extra packages will be installed: libdb4.8 libneon27-gnutls libsvn1 Suggested packages: db4.8-util subversion-tools The following NEW packages will be installed: libapache2-svn libdb4.8 libneon27-gnutls libsvn1 subversion 0 upgraded, 5 newly installed, 0 to remove and 0 not upgraded. Need to get 1,953 kB of archives. After this operation, 5,543 kB of additional disk space will be used. Do you want to continue [Y/n]? y Get:1 http://jp.archive.ubuntu.com/ubuntu/ precise/main libdb4.8 amd64 4.8.30- 11ubuntu1 [679 kB] Get:2 http://jp.archive.ubuntu.com/ubuntu/ precise/main libneon27-gnutls amd64 0.29.6-1 [76.7 kB] Get:3 http://jp.archive.ubuntu.com/ubuntu/ precise/main libsvn1 amd64 1.6.17dfsg-3ubuntu3 [820 kB] Get:4 http://jp.archive.ubuntu.com/ubuntu/ precise/universe libapache2-svn amd64 1.6.17dfsg-3ubuntu3 [81.9 kB] Get:5 http://jp.archive.ubuntu.com/ubuntu/ precise/main subversion amd64 1.6.17dfsg-3ubuntu3 [295 kB] Fetched 1,953 kB in 1s (1,498 kB/s) Selecting previously unselected package libdb4.8. (Reading database ... 53993 files and directories currently installed.) Unpacking libdb4.8 (from .../libdb4.8_4.8.30-11ubuntu1_amd64.deb) ... Selecting previously unselected package libneon27-gnutls. Unpacking libneon27-gnutls (from .../libneon27-gnutls_0.29.6-1_amd64.deb) ... Selecting previously unselected package libsvn1. Unpacking libsvn1 (from .../libsvn1_1.6.17dfsg-3ubuntu3_amd64.deb) ... Selecting previously unselected package libapache2-svn. Unpacking libapache2-svn (from .../libapache2-svn_1.6.17dfsg-3ubuntu3_amd64.deb) ... Selecting previously unselected package subversion. Unpacking subversion (from .../subversion_1.6.17dfsg-3ubuntu3_amd64.deb) ... Processing triggers for man-db ... Setting up libdb4.8 (4.8.30-11ubuntu1) ... Setting up libneon27-gnutls (0.29.6-1) ... Setting up libsvn1 (1.6.17dfsg-3ubuntu3) ... Setting up libapache2-svn (1.6.17dfsg-3ubuntu3) ... Considering dependency dav for dav_svn: Enabling module dav. Enabling module dav_svn. To activate the new configuration, you need to run: service apache2 restart * Restarting web server apache2 ... waiting . [ OK ] Setting up subversion (1.6.17dfsg-3ubuntu3) ... Processing triggers for libc-bin ... ldconfig deferred processing now taking place $ !Start $ mojo generate app PhotoAlbum [mkdir] /var/www/album/photo_album/script [write] /var/www/album/photo_album/script/photo_album [chmod] photo_album/script/photo_album 744 [mkdir] /var/www/album/photo_album/lib [write] /var/www/album/photo_album/lib/PhotoAlbum.pm [mkdir] /var/www/album/photo_album/lib/PhotoAlbum [write] /var/www/album/photo_album/lib/PhotoAlbum/Example.pm [mkdir] /var/www/album/photo_album/t [write] /var/www/album/photo_album/t/basic.t [mkdir] /var/www/album/photo_album/log [mkdir] /var/www/album/photo_album/public [write] /var/www/album/photo_album/public/index.html [mkdir] /var/www/album/photo_album/templates/layouts [write] /var/www/album/photo_album/templates/layouts/default.html.ep [mkdir] /var/www/album/photo_album/templates/example [write] /var/www/album/photo_album/templates/example/welcome.html.ep $ tree . └── photo_album ├── lib │ ├── PhotoAlbum │ │ └── Example.pm │ └── PhotoAlbum.pm ├── log ├── public │ └── index.html ├── script │ └── photo_album ├── t │ └── basic.t └── templates ├── example │ └── welcome.html.ep └── layouts └── default.html.ep 10 directories, 7 files !デプロイ http://yanor.net/wiki/?Perl-Mojolicious%2FApache%E3%81%ABCGI%E3%81%A7%E3%83%87%E3%83%97%E3%83%AD%E3%82%A4 http://perl.no-tubo.net/tag/mojolicious/ !Subversion *initial import ** svn import photo_album svn+ssh://userid@localhost/usr/local/svn/repos/photo_album ** svn co svn+ssh://userid@localhost/usr/local/svn/repos/photo_album !apache CGIで動かす publicの下にindex.cgiを作成　[ここ|http://yanor.net/wiki/?Perl-Mojolicious%2FApache%E3%81%ABCGI%E3%81%A7%E3%83%87%E3%83%97%E3%83%AD%E3%82%A4]を参考に [index.cgi] #!/usr/local/bin/perl use strict; use warnings; use lib qw( /var/www/album/photo_album/lib ); use Mojo::Server::CGI; $ENV{MOJO_APP} = 'PhotoAlbum'; $ENV{SCRIPT_NAME} = ''; Mojo::Server::CGI->new->run; http://www21051ue.sakura.ne.jp/album/photo_album/public/index.cgi にアクセス　　　<- 起動ディレクトリの問題でエラー発生 _ □ X +---------------------------------------------+ |Your Mojo is working! | | | | | +---------------------------------------------+ お〜動いた！！！　後はアルバムを作るだけ　っと思ったけどうまく動いていないらしい？！ *2013/05/30 http://blog.nishimiyahara.net/2013/01/mojoliciousindexcgi.htmlで教えてもらって動くようになった（感謝 [index.cgi] #!/usr/local/bin/perl use strict; use warnings; use lib qw( /var/www/album/photo_album/lib ); use utf8; $ENV{MOJO_MODE} = 'production'; require Mojolicious::Commands; Mojolicious::Commands->start_app('PhotoAlbum'); !とりあえずサーバーとして起動 *nohup script/photo_album daemon & *http://www21051ue.sakura.ne.jp:3000 にアクセス * * ↓ う〜ん　色々有って * * hypnotoad script/photo_album で起動 *http://www21051ue.sakura.ne.jp:8080 にアクセス !cgiで作成 mojoliciousは一旦あきらめてcgiで作成http://www21051ue.sakura.ne.jp/album/album/album.cgi #!/usr/local/bin/perl use strict; use utf8; use myconstant; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Temp; my $cons = myconstant->new(); my $cgi = CGI->new(); my $imagedir = $cons->{imagedir}; my $img = $cons->{img}; my $max_size = $cons->{max_size}; my $img_size = $cons->{img_size}; my $next = 0; my $preload = 4; my $base = $cgi->url(-path); my $count = $cgi->user_agent() =~ /mobile/i ? $cons->{item_count_mobile} : $cons->{item_count} ; $base =~ s|^.*//(.*)/album.cgi.*$|$1|; if($cgi->param('_action') eq 'UPLOAD'){ up_load(); }elsif($cgi->param('_action') eq 'next'){ print "Content-Type:text/html\n\n"; $next = $cgi->param('_count') || 0; print get_images(); exit; }elsif($cgi->param('_action') eq 'flick'){ print "Content-Type:text/html\n\n"; my $res = <<"End_Json"; { "name" : "@{[get_next_image($cgi->param('_count'))]}", "preload" : "@{[get_next_image($cgi->param('_count') < 0 ? $preload * -1 : $preload)]}" } End_Json print $res; exit; } my $filename = $cgi->param('_name'); if($filename ne '' and $cgi->param('_action') ne 'ALBUM'){ if($cgi->param('_action') =~ /^\d{1,3}$/){ system ("/usr/bin/mogrify -rotate @{[$cgi->param('_action')]} $img/$filename"); system ("/usr/bin/mogrify -rotate @{[$cgi->param('_action')]} $imagedir/$filename"); }elsif($cgi->param('_action') eq 'touch'){ system ("/usr/bin/touch $img/$filename"); system ("/usr/bin/touch $imagedir/$filename"); }elsif($cgi->param('_action') eq 'delete'){ unlink "$img/$filename"; unlink "$imagedir/$filename"; } print main_html(); }else{ print make_html(); } sub image_search{ my $name = shift; my $array = shift; my $i = 0; for(@$array){ return $i if ($_ eq $name); $i++; } return; } sub get_next_image{ my $count = shift; my $name = $cgi->param('_name'); $name =~ s|.*?([^/]+\.[a-zA-Z]*)(\?.*)*$|$1|; my @files = get_image_files(); my $i = image_search($name,\@files); $i += $count; $i -= ($#files + 1) if($i > $#files); $name = $files[$i]||$name; return qq{$img/$name}; } sub get_image_files{ opendir my $dh,$imagedir or die "Can't open $imagedir"; my @files = map {$_->[0]} sort { $a->[1] <=> $b->[1] } map { [$_, -M "$imagedir/$_" ]} grep { ! /(hide\.png|show\.png)/ } grep { -s "$imagedir/$_" != 0 } grep ( /^[^.]/,readdir $dh); return @files; } sub get_images{ my $opt = shift||''; opendir my $dh,$imagedir or die "Can't open $imagedir"; my @files = map {$_->[0]} sort { $a->[1] <=> $b->[1] } map { [$_, -M "$imagedir/$_" ]} grep { ! /(hide\.png|show\.png)/ } grep { -s "$imagedir/$_" != 0 } grep ( /^[^.]/,readdir $dh); my @select_files = (); my $i = -1; my $st = $next * $count; for(@files){ $i++; next if $i < $st; next if ($i >= ($next + 1) * $count); push @select_files,$_; } my $text = join("\n",map {qq{ }} @select_files); return $text; } sub up_load_form{ my $text = <start_multipart_form( -name=>'_upload' ,-method=>'post' ,-action=>$cgi->url()) ]} @{[ $cgi->filefield(-name=>'upload_file',-multiple=>'multiple')]} @{[ $cgi->submit(-name=>'_action',-value=>'UPLOAD',-style=>'width:80px') ]} END_FORM return $text; } sub action_form{ my $text = < A L B U M
@{["
" x 5]}
END_FORM return $text; } sub up_load{ my @fh = $cgi->upload('upload_file'); my @filename = $cgi->param('upload_file'); for my $fh (@filename){ up_load_main($fh); } } sub up_load_main{ my $fh = shift; my $basename; my $suffix; # my $filename = $cgi->param('upload_file'); my $filename = $fh; ($basename,$suffix) = ($filename =~ m|([^/]*)(\..*)|); $filename = File::Temp->new('DIR'=>$img); $filename =~ s|$img/||; $filename .= $suffix; my $temp_path = $cgi->tmpFileName($fh); $filename = $ENV{REMOTE_USER} . "_" . $filename if($ENV{REMOTE_USER}); rename $temp_path, "$img/$filename"; if($filename =~ /(.*)\.mp4/i){ my $outfile = "$1_mp4.jpg"; system("ffmpeg -i $img/$filename -vframes 1 $imagedir/$outfile"); }else{ my $size = -s "$img/$filename"; if ($size > $max_size){ system ("convert -resize @{[int($img_size / $size * 100)]}% $img/$filename $imagedir/$filename"); }else{ system ("cp $img/$filename $imagedir/$filename"); } } } sub make_html{ my $text = < album
@{[$cgi->param('_action')]} @{[up_load_form()]}
$cons->{inner}
@{[get_images()]}
load more...
END_HTML return $text; } sub main_html{ $count = 9999; my $text = < album
@{[imgTag($cgi->param('_name'))]}
@{[preload()]} END_HTML return $text; } sub preload{ my @files = get_image_files(); my $name = $cgi->param('_name'); $name =~ s|.*?([^/]+\.[a-zA-Z]*)(\?.*)*$|$1|; my $i = image_search($name,\@files); my $text = "\n"; return $text; } sub imgTag{ my $file = shift; my $text; if($file =~ /(.*)_mp4.jpg$/){ $text = <








TAG_END }else{ $text = < TAG_END } return $text; }