repo.or.cz
/
Samba
/
gbeck.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
forgot one
[Samba/gbeck.git]
/
packaging
/
Caldera
/
OpenLinux
/
make_smbpasswd.perl
blob
2666c19666e9b892d8ce1e49f6364f23a87c0052
1
#!/usr/bin/perl
2
$X
=
"X"
x
32
;
3
$U
=
"[U ]"
;
4
$L
=
"LCT-00000000"
;
5
print
(
"#
\n
# SMB password file.
\n
#
\n
"
);
6
7
while
( <> ) {
8
next unless
(
/^[A-Za-z0-9_]/
);
9
chop
;
10
@V
=
split
(
/:/
);
11
printf
(
"
%s
:
%s
:
%s
:
%s
:
%s
:
%s
:
%s
\n
"
,
$V
[
0
],
$V
[
2
],
$X
,
$X
,
$U
,
$L
,
$V
[
4
]);
12
}
13