$ doas pkg_add -iv samba
Works fine with minor changes
perl script, but non-optimal/broken use of system() with unwieldy number of backslashes.
Script contains many lines like this:
$connectValue = system("smbclient \\\\\\\\$singleIp\\\\IPC\$ -U '$singleUser'%'$singlePass' -c 'exit' 1> /dev/null 2> /dev/null");
Should be changed to this:
$connectValue = system("smbclient //$singleIp/IPC\$ -U '$singleUser'%'$singlePass' -c 'exit' 1> /dev/null 2> /dev/null");
Here's a diff
mtime: 2018-12-10