FreeBSDAdmin/VPN/mpd.pl

#!/usr/bin/perl
# MPD
#
# Douglas Thrift
#
# $Id$

use strict;
use warnings;

use File::Basename;
use IO::Prompt;

if ($#ARGV != 1)
{
        print 'Usage: ' . basename($0) . " [input] [output]\n";

        exit 1;
}

my $input = shift;
my $output = shift;

umask 0077;

open INPUT, "<$input" or die basename($0) . ": $!\n";
open OUTPUT, ">$output" or die basename($0) . ": $!\n";

while (<INPUT>)
{
        if (/^\tset user (\w+) password(?: (?:admin|operator|user))?$/)
        {
                my $user = $1;
                my $password = prompt("$user\'s password: ", -e => '*');

                s/$user password/$user $password/;
        }

        print OUTPUT;
}

close INPUT;
close OUTPUT;
Revision:	1007
Committed:	2008-05-19T00:43:51-07:00 (17 years, 1 month ago) by douglas
Content type:	text/x-perl
File size:	617 byte(s)
Log Message:	Woo!
#	Content
1	#!/usr/bin/perl
2	# MPD
3	#
4	# Douglas Thrift
5	#
6	# $Id$
7
8	use strict;
9	use warnings;
10
11	use File::Basename;
12	use IO::Prompt;
13
14	if ($#ARGV != 1)
15	{
16	print 'Usage: ' . basename($0) . " [input] [output]\n";
17
18	exit 1;
19	}
20
21	my $input = shift;
22	my $output = shift;
23
24	umask 0077;
25
26	open INPUT, "<$input" or die basename($0) . ": $!\n";
27	open OUTPUT, ">$output" or die basename($0) . ": $!\n";
28
29	while (<INPUT>)
30	{
31	if (/^\tset user (\w+) password(?: (?:admin\|operator\|user))?$/)
32	{
33	my $user = $1;
34	my $password = prompt("$user\'s password: ", -e => '*');
35
36	s/$user password/$user $password/;
37	}
38
39	print OUTPUT;
40	}
41
42	close INPUT;
43	close OUTPUT;