scripts/claws-password


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/env perl 
use v5.26;
use strict;
use warnings;
# VERSION 
use Config::ClawsMail;
# PODNAME: claws-password 
# ABSTRACT: print out a cleartext password from claws store 
 
my $c = Config::ClawsMail->new();
say $c->password_store->password_for(@ARGV);