<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package pdat;


open (FILE, "&lt;panel2.conf") or die "AAAArrrrrgghhh";
while ($line = &lt;FILE&gt;) {
  ($key,$val) = ($line =~/^(\S*)\s*=\s*(\S*)/);
    if ($key ne "") { $conf{$key}=$val }
}
close FILE;

my %HFH=("1","Herr","2","Frau");
my @HFL=keys %HFH;
my %LAH=("1","Deutschland","2","Österreich","3","Schweiz");
my @LAL=keys %LAH;
my %BIH=("0","Keine Angaben","1","Hauptschule","2","Realschule","3","Gymnasium","4","Fachhochschule","5","Hochschule","6","Magister","7","Promotion"); 
my @BIL=keys %BIH;
my %PRH=("1","T-Online","2","AOL","3","Arcor","4","Otello","5","Freenet","6","Talknet","7","1 &amp; 1","8","Netcologne","9","OWL-Online","10","Surf Callino","11","Viag Interkom","12","Compuserve","13","Okaynet","14","Debitel","15","Nikoma","16","UU-Net","17","Germanynet","18","Uni-Server","19","FH-Server","20","Andere");
my @PRL=keys %PRH;
my %FSH=("0","Keine Angaben","1","Verheiratet","2","Ledig");
my @FSL=keys %FSH;
my %BSH=("0","Keine Angaben","1","Vollzeitbeschäftigt","2","Teilzeitbeschäftigt","3","Rentner/in","4","Student/in","5","Schueler/in","6","zur Zeit erwerbslos");
my @BSL=keys%BSH;

sub HF{return $HFH{shift};}
sub LA{return $LA{shift};}
sub PR{return $PR{shift};}
sub BI{return $BI{shift};}
sub FS{return $FS{shift};}
sub BS{return $BS{shift};}

sub hf{return \@HFL;}
sub la{return \@LAL;}
sub pr{return \@PRL;}
sub fs{return \@FSL;}
sub bs{return \@BSL;}
sub bi{return \@BIL;}

sub hfh{return \%HFH;}
sub lah{return \%LAH;}
sub prh{return \%PRH;}
sub fsh{return \%FSH;}
sub bsh{return \%BSH;}
sub bih{return \%BIH;}</pre></body></html>