Re: [TCLUG-DEVEL:253] how do I....?

[Troy Johnson <john1536@tc.umn.edu>]

Jacqueline,

This might work after you uncomment the "system" command, but check out
the printed command lines first:

>>>>>START>>>>>
#!/usr/bin/perl -w

if (! @ARGV)
{
        print "Usage: $0 <source-file>\n";
        exit 1;
}

while (<>)
{
        chomp;
        my($file, $name, $password) = split;
        print "htpasswd -bc $file $name $password\n";
        #system("htpasswd -bc $file $name $password");
}
<<<<<<END<<<<<<

Also, your perl might be in a different location (which perl), so you
might have to modify the first line to reflect that. Good luck,

Troy

Jacqueline Urick wrote:
> 
> currently spaces
> 
> I left my "mastering regular expressions" book at home too... would have
> been a good day to have that..
> 
> ~j
> 
> Troy Johnson wrote:
> >
> > I would use Perl. What separates the columns in your source file
> > (spaces, commas, ...)?
> >
> > Jacqueline Urick wrote:
> > >
> > > I know there has to to be an easy way to do this with a shell script,
> > > but I don't know how yet. Perhaps one of you can help me. I have a file
> > > that has 3 columns, one for the filename, username and then password.
> > >
> > > I'm trying to setup a bunch of individual htpasswd files.  How do I make
> > > a script that looks at the file and then applies it to htpasswd -bc to
> > > make all my htpasswd files?
> > >
> > > Thanks in advance!
> > >
> > > Jacque
> > >
> > > ---------------------------------------------------------------------
> > > To unsubscribe, e-mail: tclug-devel-unsubscribe@mn-linux.org
> > > For additional commands, e-mail: tclug-devel-help@mn-linux.org
> >
> > --
> >         <a href="http://umn.edu/~john1536">Troy Johnson</a>
> >
> > If you're not part of the solution, you're part of the
> > precipitate.
> >                                                 -- Stephen Wright
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: tclug-devel-unsubscribe@mn-linux.org
> > For additional commands, e-mail: tclug-devel-help@mn-linux.org
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: tclug-devel-unsubscribe@mn-linux.org
> For additional commands, e-mail: tclug-devel-help@mn-linux.org

-- 
	<a href="http://umn.edu/~john1536">Troy Johnson</a>

I installed a skylight in my apartment...
The people who live above me are furious!
						-- Stephen Wright