- if ($sambasettings{'ACTION'} eq 'pcadd')
- {
- my $pcname = "client\$";
- chomp $pcname;
- $pcname=~s/\s//g;
- print <<END
- <br />
- <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'accounting'}'>
- <table width='100%' cellspacing='0'>
- <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'pc add'}</b></td></tr>
- <tr><td align='left'>$Lang::tr{'client'}</td><td><input type='text' name='PCNAME' value='$pcname' size='30' /></td></tr>
- <tr><td align='left'>$Lang::tr{'unix group'}</td><td><input type='text' name='GROUP' value='sambawks' size='30' /></td></tr>
- <tr><td align='left'>$Lang::tr{'unix shell'}</td><td><input type='text' name='SHELL' value='/bin/false' size='30' /></td></tr>
- <tr><td colspan='2' align='center'><input type='hidden' name='ACTION' value='smbpcadd' />
- <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' /></td></tr>
- </table>
- </form>
+ print <<END;
+ <br>
+
+ <form method='post' action='$ENV{'SCRIPT_NAME'}'>
+ <table width='100%' cellspacing='0'>
+ <tr bgcolor='$color{'color20'}'>
+ <td colspan='2' align='left'><b>$Lang::tr{'add user'}</b></td>
+ </tr>
+ <tr>
+ <td align='left'>$Lang::tr{'username'}</td>
+ <td>
+ <input type='text' name='USERNAME' value='$username' size='30' />
+ </td>
+ </tr>
+ <tr>
+ <td align='left'>$Lang::tr{'password'}</td>
+ <td>
+ <input type='password' name='PASSWORD' value='$password' size='30' />
+ </td>
+ </tr>
+ <tr>
+ <td align='left'>$Lang::tr{'unix group'}</td>
+ <td>
+ <input type='text' name='GROUP' value='sambauser' size='30' />
+ </td>
+ </tr>
+ <tr>
+ <td align='left'>$Lang::tr{'unix shell'}</td>
+ <td>
+ <input type='text' name='SHELL' value='/bin/false' size='30' />
+ </td>
+ </tr>
+ <tr>
+ <td colspan='2' align='center'>
+ <input type='hidden' name='ACTION' value='smbuseradd'>
+ <input type='submit' value='$Lang::tr{'save'}'>
+ </td>
+ </tr>
+ </table>
+ </form>