Commit | Line | Data |
13a79a43 |
1 | use MooseX::Declare; |
2 | |
3 | class IronMunger::StatsSaver { |
4 | |
5 | use MooseX::Types::Path::Class qw(Dir); |
79810d7d |
6 | use aliased 'IronMunger::Monger'; |
7 | use IO::All; |
8 | use File::Path qw(mkpath); |
9 | use Text::CSV_XS; |
10 | use namespace::autoclean; |
13a79a43 |
11 | |
12 | has dir => (is => 'ro', isa => Dir, required => 1, coerce => 1); |
13 | |
79810d7d |
14 | my @types = qw(male female); |
15 | |
13a79a43 |
16 | method _image_symlink_target (Str $type, Str $level) { |
17 | $self->dir->subdir('badges')->subdir($type)->file("${level}.png"); |
18 | } |
19 | |
20 | method _image_symlink_from (Str $user, Str $type) { |
21 | $self->dir->subdir('mybadge')->subdir($type)->file("${user}.png"); |
22 | } |
23 | |
24 | method _write_image_symlink (Str $user, Str $type, Str $level) { |
25 | my ($from, $target) = ( |
26 | $self->_image_symlink_from($user, $type), |
27 | $self->_image_symlink_target($type, $level), |
28 | ); |
79810d7d |
29 | my $dir = File::Spec->catpath((File::Spec->splitpath($target))[0,1]); |
30 | mkpath($dir); |
13a79a43 |
31 | symlink($target, $from) |
32 | or confess "Couldn't symlink ${from} to ${target}: $!"; |
33 | return; |
34 | } |
79810d7d |
35 | |
36 | method _write_symlinks_for (IronMunger::Monger $monger) { |
37 | foreach my $type (@types) { |
38 | foreach my $name (map $monger->$_, qw(name nick)) { |
39 | $self->_write_image_symlink($name, $type, $monger->level); |
40 | } |
41 | } |
42 | } |
43 | |
44 | method _write_summary_csv (ArrayRef[IronMunger::Monger] $mongers) { |
45 | } |
46 | |
47 | method mongers (ArrayRef[IronMunger::Monger] $mongers) { |
48 | $self->_write_summary_csv($mongers); |
49 | $self->_write_symlinks_for($_) for @$mongers; |
50 | } |
51 | |
13a79a43 |
52 | } |
53 | |
54 | 1; |