The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Dicop - routines shared between the server and/or client part

SYNOPSIS

        use Dicop;

REQUIRES

perl5.008003, Exporter

EXPORTS

Exports nothing on default.

DESCRIPTION

Contains an assortment of often used or handy support routines used by the server/proxy and the client.

METHODS

status

Map a given status code to the status code name, e.g.:

        Dicop::status(1);       # return 'issued'

  {
  my $s = shift || 0;
  return $status[$s] || 'UNKNOWN';
  }

status_code

Given a status code name, returns the status code:

        $done = dicop::Status_code('DONE');

base_version

Returns version and build number of Dicop::Base as a string that can be used as a float for comparing.

BUGS

None known yet.

AUTHOR

(c) Bundesamt fuer Sicherheit in der Informationstechnik 1998-2006

DiCoP is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License version 2 as published by the Free Software Foundation.

See the file LICENSE or http://www.bsi.de/ for more information.