File Coverage

blib/lib/Convos/Archive/File.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch	0	8	0.0
condition	0	2	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	48	37.5

package Convos::Archive::File;

=head1 NAME

Convos::Archive::File - Archive to file

=head1 DESCRIPTION

L is a subclass of L which use plain
files on disk.

=cut

use Mojo::Base 'Convos::Archive';
use File::Path qw( make_path remove_tree );
use File::Spec::Functions qw( catdir catfile );
use Time::Piece qw( gmtime );

=head1 ATTRIBUTES

=head2 log_dir

Path to write logs in.

=cut

has log_dir => sub { die "log_dir() need to be defined in constructor"; };

=head1 METHODS

=head2 flush

See L.

=cut

sub flush {
  my ($self, $conn) = @_;
  remove_tree(catdir $self->log_dir, $conn->login, $conn->name);
  return $self;
}

=head2 save

See L.

=cut

sub save {
  my ($self, $conn, $message) = @_;
  my $ts = gmtime($message->{timestamp});

  my @base = ($self->log_dir, $conn->login, $conn->name);
  push @base, $message->{target} if $message->{target};
  push @base, $ts->strftime('%y'), $ts->strftime('%m');
  my $path = catdir @base;
  make_path $path unless $self->{paths}{$path}++;

  $path = catfile $path, $ts->strftime('%d.log');
  open my $FH, '>>', $path or die "Cannot write to $path: $!";
  printf {$FH} "%s :%s!%s@%s %s\n", $ts->hms, map { $_ // '' } @{$message}{qw(nick user host message)};
  close $FH or die "Cannot close $path: $!";
  return $self;
}

=head1 COPYRIGHT

See L.

=head1 AUTHOR

Jan Henning Thorsen - C

Marcus Ramberg - C

=cut

1;