view release on metacpan or  search on metacpan

bin/sudoc-trans  view on Meta::CPAN

sub transfert_abes {
    my $self = shift;

    # Ne rien faire si la MBOX est vide
    my $mbox = $c->{mbox};
    return unless -f $mbox;

    # Lit toute la MBOX qui ne peut contenir qu'un message à la fois, étant de
    # type status 0 ou status 9
    my $content = do { local(@ARGV, $/) = $mbox; <> };
    if    ( $content =~ /status is 9/ ) { send_gtd($content);        }
    elsif ( $content =~ /status: 0/ )   { move_to_waiting(); }
    unlink $mbox;
}

__END__

=pod

=encoding UTF-8