NAME Dicom::DCMTK::DCMQRSCP::Config - Perl class for reading/writing DCMTK dcmqrscp configuration file. SYNOPSIS use Dicom::DCMTK::DCMQRSCP::Config; my $obj = Dicom::DCMTK::DCMQRSCP::Config->new(%parameters); $obj->parse($data); my $data = $obj->serialize; METHODS "new(%parameters)" Constructor. * "ae_table" AE table. Default value is {} * "comment" Flag, that means comments in serialize() output. Default value is 1. * "global" Global parameters. Default value is { 'NetworkTCPPort' => undef, 'MaxPDUSize' => undef, 'MaxAssociations' => undef, 'UserName' => undef, 'GroupName' => undef, }; * "host_table" Host table. Default value is {}. * "host_table_symb" Host table symbolic names. Default value is {}. * "vendor_table" Vendor table. Default value is {}. "parse($data)" Parse $data, which contains dcmqrscp configuration data. Returns undef. "serialize()" Serialize object to DCMTK dcmqrscp configuration data. Returns string with dcmqrscp configuration data. ERRORS new(): From Class::Utils::set_params(): Unknown parameter '%s'. EXAMPLE # Pragmas. use strict; use warnings; # Modules. use Dicom::DCMTK::DCMQRSCP::Config; # Object. my $obj = Dicom::DCMTK::DCMQRSCP::Config->new( 'ae_table' => { 'ACME_PUB' => { 'Access' => 'R', 'Peers' => 'ANY', 'Quota' => { 'maxBytesPerStudy' => '24mb', 'maxStudies' => '10', }, 'StorageArea' => '/dicom/ACME_PUB', }, 'ACME_PRV' => { 'Access' => 'RW', 'Peers' => 'Acme', 'Quota' => { 'maxBytesPerStudy' => '24mb', 'maxStudies' => '10', }, 'StorageArea' => '/dicom/ACME_PRV', }, }, 'comment' => 1, 'global' => { 'GroupName' => 'dcmtk', 'MaxAssociations' => 20, 'MaxPDUSize' => 8192, 'NetworkTCPPort' => 104, 'UserName' => 'dcmtk', }, 'host_table' => { 'Acme_1' => [ 'ACME_DN1', 'acme', 10001 ], 'Acme_2' => [ 'ACME_DN2', 'acme', 10001 ], 'Acme_3' => [ 'ACME_DN3', 'acme', 10001 ], }, 'host_table_symb' => { 'Acme' => [ 'Acme_1', 'Acme_2', 'Acme_3', ], }, 'vendor_table' => { 'Acme' => 'ACME CT Company', }, ); # Serialize and print print $obj->serialize."\n"; # Output: # # Global Configuration Parameters. # GroupName = "dcmtk" # MaxAssociations = 20 # MaxPDUSize = 8192 # NetworkTCPPort = 104 # UserName = "dcmtk" # # # Host Table. # HostTable BEGIN # Acme_1 = (ACME_DN1, acme, 10001) # Acme_2 = (ACME_DN2, acme, 10001) # Acme_3 = (ACME_DN3, acme, 10001) # Acme = Acme_1, Acme_2, Acme_3 # HostTable END # # # Vendor Table. # VendorTable BEGIN # "ACME CT Company" = Acme # VendorTable END # # # AE Table. # AETable BEGIN # ACME_PRV /dicom/ACME_PRV RW (10, 24mb) Acme # ACME_PUB /dicom/ACME_PUB R (10, 24mb) ANY # AETable END DEPENDENCIES Class::Utils. REPOSITORY AUTHOR Michal Špaček LICENSE AND COPYRIGHT BSD license. VERSION 0.01