Aufgeraeumt
[ssh-keysync.git] / files / server / RBM / sshKeySync / Merge / Domain.pm
1 #!/usr/bin/perl -w
2 #
3 # RBM::sshKeySync::Merge::Domain
4 #
5 # The programm is part of the RBM library, the officiall programms
6 # of the 'Rechnerbetrieb Mathematik' (Computersupportcenter at the
7 # institute of mathematics) at the Univiersity of Paderborn.
8 #
9 #   Copyright (C) 2005, Maximilian Wilhelm <max@barbarossa.name>
10
11 #   RBM::sshKeySync::Merge::Domain is free software; you can redistribute it
12 #   and/or modify it under the terms of the GNU General Public License as 
13 #   published by the Free Software Foundation; either version 2, or (at your
14 #   option) any later version.
15 #   
16 #   On Debian GNU/Linux systems you can find a copy of the GPL in
17 #   /usr/share/common-licenses/GPL
18 #
19
20 package RBM::sshKeySync::Merge::Domain;
21
22 use strict;
23
24 ##
25 # Create no domain object
26 sub new {
27         my $this = shift;
28         my $class = ref($this) || $this;
29
30         my ($name, $ref_alt_domains, $separate_of, $common_of )= @_;
31
32         bless { name => $name,
33                 alt_domains => $ref_alt_domains,
34                 separate_of => $separate_of,
35                 common_of => $common_of
36                 }, $class;
37 }
38
39
40 ##
41 # Get the array with the alternativ domains
42 sub get_alt_domains{
43         my $self = shift;
44         my $ref_alt_dom = $self->{alt_domains};
45         
46         return $ref_alt_dom;
47 }
48
49
50 ##
51 # Should the output be put into a separate outfile?
52 sub get_separate_outfile {
53         my $self = shift;
54         my $s_of = $self->{separate_of};
55
56         return $s_of;
57 }
58
59
60 ##
61 # Should the output be put into a separate outfile?
62 sub get_common_outfile {
63         my $self = shift;
64         my $c_of = $self->{common_of};
65
66         return $c_of;
67 }
68
69
70 ##
71 # Return true on startup
72 1;