gen-priserka

#!/usr/bin/perl

use strict;
use warnings;

use lib ".";
use PPD;
use PPD::PJL;
use PPD::Paper;
use PPD::Common;

set('FileVersion', '1.0');
set('PCFileName', 'XRWP5230.PPD');

set('Manufacturer', 'Xerox');
set('Product', 'WorkCentre 5230');
set('PSVersion', '(3017.104) 8');

set('Throughput', 26);
set('TTRasterizer', 'Type42');
set('Protocols', 'PJL BCP TBCP');
set('FileSystem', 1);
set('AccurateScreensSupport', 1);

set('cupsProtocol', 'None');

define_ui_group({ Key => 'Basic', Name => 'Basic options' });

option(&PPD::Common::Duplex);
option(&PPD::Common::Collate);

PPD::PJL::add_jcl();

PPD::Paper::add_papers({
	MinW => 252, MaxW => 864,
	MinH => 278, MaxH => 1368,
	MarginH => 11.62, MarginV => 11.62,	# FIXME: show as floats
	PSPageSize => sub { my ($m) = @_; return sprintf("<< /PageSize [%d %d] >> setpagedevice", $m->{W}, $m->{H}); },
	# FIXME: LeadingEdge
});
switch_group('Media');

option({
	Key => 'MediaType',
	Name => 'Media Type',
	Choice => 'PickOne',
	Priority => 20,
	Values => [
		{ Key => 'Auto', Name => 'Automatically Select', PS => '<< /MediaClass null >> setpagedevice', Default => 1 },
		map { { Key => $_->[0], Name => $_->[1], PS => "<< /MediaClass (" . $_->[2] . ") >> setpagedevice" } }
		(
		[ 'Standard',		'Plain',		'stationary'		],
		[ 'Plain',		'Plain',		'stationary'		],
		[ 'Standard2',		'Plain Reloaded',	'used'			],
		[ 'Punched',		'Punched',		'holed'			],
		[ 'Letterhead',		'Letterhead',		'letterhead'		],
		[ 'Transparency',	'Transparency',		'transparency'		],
		[ 'Light',		'Lightweight',		'thin'			],
		[ 'CardStock',		'Heavyweight',		'thick1'		],
		[ 'ExtraHeavyweight',	'Extra Heavyweight',	'thick2'		],
		[ 'Recycled',		'Recycled',		'recycled'		],
		[ 'Bond',		'Bond',			'fine thick2'		],
		[ 'Labels',		'Labels',		'label'			],
		[ 'PrePrinted',		'Pre-Printed',		'preprinted'		],
		[ 'Envelopes',		'Envelope',		'envelope'		],
		[ 'Custom1',		'Custom Type 1',	'user1'			],
		[ 'Custom2',		'Custom Type 2',	'user2'			],
		[ 'Custom3',		'Custom Type 3',	'user3'			],
		[ 'Custom4',		'Custom Type 4',	'user4'			],
		[ 'Custom5',		'Custom Type 5',	'user5'			],