diff options
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]); +} + |