+if ( -e "/var/ipfire/cups/enable")
+{
+&Header::openbox('100%', 'center', $Lang::tr{'printer'});
+
+my @Printers = keys(%printer);
+print <<END
+<a name="$Lang::tr{'manage printers'}"</a>
+<br />
+<table width='95%' cellspacing='0'>
+<tr><td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'manage printers'}</b>
+<tr><td align='left'><u>$Lang::tr{'printername'}</u></td><td colspan='2' width="5%" align='center'><u>$Lang::tr{'options'}</u></td></tr>
+END
+;
+foreach my $printerentry (sort @Printers)
+ {
+ chomp $printerentry;
+ print <<END
+ <tr><td align='left'>$printerentry</td>
+ <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
+ <input type='hidden' name='NAME' value='$printerentry' />
+ <input type='hidden' name='ACTION' value='printerchange' />
+ <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
+ </form></td>
+ <td><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
+ <input type='hidden' name='NAME' value='$printerentry' />
+ <input type='hidden' name='ACTION' value='smbprinterdel' />
+ <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
+ </form></td></tr>
+END
+;
+ }
+print <<END
+</table>
+<br />
+<table width='10%' cellspacing='0'>
+<tr><td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
+ <input type='hidden' name='ACTION' value='printeradd' />
+ <input type='image' alt='$Lang::tr{'add printer'}' title='$Lang::tr{'add printer'}' src='/images/list-add.png' />
+ </form></td>
+ <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
+ <input type='hidden' name='ACTION' value='printereset' />
+ <input type='image' alt='$Lang::tr{'reset'}' title='$Lang::tr{'reset'}' src='/images/reload.gif' />
+ </form></td>
+ <td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'>
+ <input type='hidden' name='ACTION' value='printercaption' />
+ <input type='image' alt='$Lang::tr{'caption'}' title='$Lang::tr{'caption'}' src='/images/help-browser.png' />
+ </form></td>
+</tr>
+</table>
+END
+;
+
+if ($sambasettings{'ACTION'} eq 'printeradd' || $sambasettings{'ACTION'} eq 'printercaption' )
+ {
+ print <<END
+ <br />
+ <table width='95%' cellspacing='0'>
+ <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'add printer'}</b></td></tr>
+ <tr><td colspan='2' align='center'></td></tr>
+ <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}
+ <a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
+ <form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'><tr><td colspan='2' align='center'><textarea name="PRINTEROPTION" cols="50" rows="15" Wrap="off">$defaultprinter</textarea></td></tr>
+ </table>
+ <br />
+ <table width='10%' cellspacing='0'>
+ <tr><td align='center'><input type='hidden' name='ACTION' value='smbprinteradd' />
+ <input type='image' alt='$Lang::tr{'add share'}' title='$Lang::tr{'add share'}' src='/images/media-floppy.png' /></td></tr>
+ </table>
+ </form>
+END
+;
+ }
+
+if ($sambasettings{'ACTION'} eq 'printerchange' || $sambasettings{'ACTION'} eq 'printercaption2' )
+ {
+ my $printeroption = $printer{$sambasettings{'NAME'}};
+ print <<END
+ <br />
+ <table width='95%' cellspacing='0'>
+ <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'edit printer'}</b></td></tr>
+ <tr><td colspan='2' align='center'></td></tr>
+ <tr><td colspan='2' align='center'>$Lang::tr{'show share options'}<a href="sambahlp.cgi" target="popup" onClick="window.open ('', 'popup', 'width=580,height=600,scrollbars=yes, toolbar=no,status=no, resizable=yes,menubar=no,location=no,directories=no,top=10,left=10')"><img border="0" src="/images/help-browser.png"></a></td></tr>
+ <tr><td colspan='2' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}#$Lang::tr{'manage printers'}'><textarea name="PRINTEROPTION" cols="50" rows="15" Wrap="off">$printeroption</textarea></td></tr>
+ </table>
+ <br />
+ <table width='10%' cellspacing='0'>
+ <tr><td align='center'><input type='hidden' name='NAME' value='$sambasettings{'NAME'}' />
+ <input type='image' alt='$Lang::tr{'change share'}' title='$Lang::tr{'change share'}' src='/images/media-floppy.png' />
+ <input type='hidden' name='ACTION' value='smbprinterchange' /></form></td></tr>
+ </table>
+END
+;
+ }
+
+if ($sambasettings{'ACTION'} eq 'smbprinteradd')
+ {
+ $printer{'xvx'}= "$sambasettings{'PRINTEROPTION'}";
+ save("printer");
+ my %printer = config("${General::swroot}/samba/printer");
+ }
+
+if ($sambasettings{'ACTION'} eq 'smbprinterdel')
+ {
+ delete $printer{$sambasettings{'NAME'}};
+ save("printer");
+ my %printer = config("${General::swroot}/samba/printer");
+ }
+
+if ($sambasettings{'ACTION'} eq 'smbprinterchange')
+ {
+ $printer{$sambasettings{'NAME'}} = $sambasettings{'PRINTEROPTION'};
+ save("printer");
+ my %printer = config("${General::swroot}/samba/printer");
+ }