diff options
| author | John Terpstra <jht@samba.org> | 2000-07-30 06:33:30 +0000 |
|---|---|---|
| committer | John Terpstra <jht@samba.org> | 2000-07-30 06:33:30 +0000 |
| commit | 5dbd30002acaa971a84b6d917f9dc06d7f118836 (patch) | |
| tree | 8feb2792e52b7f11cd0c3f3751d696810ae87b01 /packaging/Caldera/OpenLinux/make_smbpasswd.perl | |
| parent | b58ebd10dee6e779fb4b977a7f55db1b23001564 (diff) | |
| download | samba-5dbd30002acaa971a84b6d917f9dc06d7f118836.tar.gz samba-5dbd30002acaa971a84b6d917f9dc06d7f118836.tar.bz2 samba-5dbd30002acaa971a84b6d917f9dc06d7f118836.zip | |
Adding files provided by Klaus Singvogel of Caldera
(This used to be commit ab6d01bdccf3106c00563173bfb3e3b3d7c3a64c)
Diffstat (limited to 'packaging/Caldera/OpenLinux/make_smbpasswd.perl')
| -rwxr-xr-x | packaging/Caldera/OpenLinux/make_smbpasswd.perl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/packaging/Caldera/OpenLinux/make_smbpasswd.perl b/packaging/Caldera/OpenLinux/make_smbpasswd.perl new file mode 100755 index 0000000000..2666c19666 --- /dev/null +++ b/packaging/Caldera/OpenLinux/make_smbpasswd.perl @@ -0,0 +1,13 @@ +#!/usr/bin/perl +$X= "X" x 32; +$U="[U ]"; +$L="LCT-00000000"; +print("#\n# SMB password file.\n#\n"); + +while ( <> ) { + next unless (/^[A-Za-z0-9_]/); + chop; + @V = split(/:/); + printf( "%s:%s:%s:%s:%s:%s:%s\n", $V[0], $V[2], $X, $X, $U, $L, $V[4]); +} + |