<ep-language de="Mailweiterleitung" en="Mail forwarding">

my $self = $_; my $prefs_file = $self->{'env'}->{'PATH_TRANSLATED'}; $prefs_file =~ s/(.*)\/.*/$1/; $prefs_file .= "/var/prefs"; if ($self->{'debug'}) { $self->print("Setting preferences file to $prefs_file\n"); } $self->{'config'} = do $prefs_file || {}; if ($@) { $self->{'warnings'} = "Couldn't read prefs file $prefs_file: $@"; } my $cgi = $self->{'cgi'}; if (defined($cgi->param('mail2group_active'))) { # Save data my $o = $self->{'config'}->{'mail2group'} || {}; $o->{'active'} = ($cgi->param('mail2group_active') ? 1 : 0); $o->{'weekend'} = ($cgi->param('mail2group_weekend') ? 1 : 0); $o->{'delay'} = $cgi->param('mail2group_delay'); $self->{'config'}->{'mail2group'} = $o; require Data::Dumper; my $dump = Data::Dumper->new([$self->{'config'}], ['PREFS']); $dump->Indent(1); require Symbol; my $fh = Symbol::gensym(); if ($self->{'debug'}) { $self->print("Saving data:\n", $dump->Dump(), "\n"); } if (!open($fh, ">$prefs_file") || !(print $fh $dump->Dump()) || !close($fh)) { $self->{'errors'} = "Couldn't save data: $!"; } } package HTML::EP::Locale; sub _format_SELECTED { my $self = shift; my $option = shift; $option ? " SELECTED" : ""; }; '';

$errors$

$warnings$

:
:

$errors$

$warnings$

:

:

$warnings$

:

:

$errors$ $warnings$ : config->mail2group->active$> : config->mail2group->weekend$> $r$

$warnings$ : config->mail2group->active$> : config->mail2group->weekend$> $r$

$errors$

$warnings$

:

:

$warnings$

:

: