File Coverage

blib/lib/Kwiki/UserPhoto.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::UserPhoto;
use Kwiki::Plugin qw(-Base -XXX);
use mixin 'Kwiki::Installer';
our $VERSION = '0.01';

const class_id => 'user_photo';
const class_title => 'User Photo';
const css_file => 'user_photo.css';
const cgi_class => 'Kwiki::UserPhoto::CGI';
const config_file => 'user_photo.yaml';

field 'display_msg';

sub register {
    my $registry = shift;
    $registry->add(widget => 'user_photo',
		   template => 'user_photo_widget.html');
    $registry->add(action => 'user_photo');
}

# Return the url of current user.
sub url {
    my $user = $self->hub->users->current->name;
    my $dir = io->catdir($self->plugin_directory,$user);
    if($dir->exists) {
	for($dir->all) {
	    return $_->name if($_->name =~ /thumb./);
	}
    }
    return $self->config->user_photo_default;
}

sub user_photo {
    my $mode = $self->cgi->run_mode;
    # Valid modes: upload
    $self->$mode if($mode && $self->can($mode));
    $self->render_screen;
}

sub upload {
    require YAML;
    my $username = $self->users->current->name;
    my $file = $self->cgi->uploaded_file;
    return $self->display_msg("You must setup a proper user name to upload your photo") unless($username);
    if($file){
	my $fh = $file->{handle};
	my $newfile = io->catfile($self->plugin_directory, $username, $file->{filename});
	$_->unlink for io->catdir($self->plugin_directory,$username)->assert->all;
	binmode($fh);
	$newfile->assert->print(<$fh>);
	$newfile->close();
	$self->make_thumbnail($newfile,
			      $self->config->user_photo_width,
			      $self->config->user_photo_height,
			     );
    } else {
	$self->display_msg("Please specify a file to upload.");
    }
}

# From Kwiki::Attachments
sub make_thumbnail {
   use File::Basename;

   my ($file,$width,$height) = @_;
   my ($fname, $fpath, $ftype) = fileparse($file, qr(\..*$));
   my $thumb = io->catfile($fpath, "thumb$ftype");
   if (eval { require Imager }) {
      my $found = 0;
      if ($ftype =~ /jpg/i) {
         $found = 1;
      } else {
         for (keys %Imager::format) {
            if ($ftype =~ /$_/oi) {
               $found = 1;
               last;
            }
         }
      }
      if ($found) {
         my $image = Imager->new;
         return unless ref($image);
         $image->read(file=>$file);
         my $thumb_img = $image->scale(xpixels=>$width,ypixels=>$height);
         $thumb_img->write(file=>$thumb);
      }
   } elsif (eval { require Image::Magick }) {
      my $image = Image::Magick->new;
      return unless ref($image);
      if (!$image->Read($file)) {
         if (!$image->Scale(geometry=>"${width}x${height}")) {
            if (!$image->Contrast(sharpen=>"true")) {
               $image->Write($thumb);
            }
         }
      }
   }
}

package Kwiki::UserPhoto::CGI;
use base 'Kwiki::CGI';

cgi 'run_mode';
cgi 'uploaded_file' => qw(-upload);

package Kwiki::UserPhoto;

__DATA__