/usr/share/doc/libsoap-wsdl-perl/examples/genericbarcode.pl is in libsoap-wsdl-perl 3.003-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | use lib 'lib';
use lib '../lib';
use MyInterfaces::BarCode::BarCodeSoap;
my $interface = MyInterfaces::BarCode::BarCodeSoap->new();
my $barcode = $interface->GenerateBarCode( {
BarCodeParam => { # MyTypes::BarCodeData
Height => 42, # int
Width => 120, # int
Angle => 90, # int
Ratio => 1, # int
Module => 1, # int
Left => 10, # int
Top => 10, # int
CheckSum => 0, # boolean
FontName => 'Arial', # string
BarColor => 'black', # string
BGColor => 'white', # string
FontSize => 6.25, # float
barcodeOption => 'Both', # BarcodeOption
barcodeType => 'CodeMSI', # BarcodeType
checkSumMethod => 'None', # CheckSumMethod
showTextPosition => 'TopLeft', # ShowTextPosition
BarCodeImageFormat => 'PNG', # ImageFormats
},
BarCodeText => 'JustSomeText', # string
},
);
die $barcode if not ($barcode);
print $barcode;
|