equal
deleted
inserted
replaced
48 sub redirect { |
48 sub redirect { |
49 |
49 |
50 my ($address, $keep) = @_; |
50 my ($address, $keep) = @_; |
51 error "need address" unless $address; |
51 error "need address" unless $address; |
52 $address =~ s/"/\\"/g; |
52 $address =~ s/"/\\"/g; |
53 return "redirect \"$address\";" . $keep ? "\nkeep;" : ''; |
53 return "redirect \"$address\";" . ( $keep ? "\nkeep;" : '' ); |
54 |
54 |
55 } |
55 } |
56 |
56 |
57 sub script_exists { |
57 sub script_exists { |
58 |
58 |
132 error({ status => 'Anmeldung fehlgeschlagen.' }, "auth failed: $@") |
132 error({ status => 'Anmeldung fehlgeschlagen.' }, "auth failed: $@") |
133 unless ($s->login($p->{user}, $p->{pass})); |
133 unless ($s->login($p->{user}, $p->{pass})); |
134 |
134 |
135 if (defined $p->{add} and $p->{add} ne '') { |
135 if (defined $p->{add} and $p->{add} ne '') { |
136 |
136 |
137 error({ status => 'Bitte geben Sie eine Umleitungsaddresse an.' }) |
137 error({ status => 'Bitte geben Sie eine gültige Umleitungsaddresse an.' }) |
138 unless defined $p->{address} and $p->{address} ne ''; |
138 unless defined $p->{address} and $p->{address} =~ /[^@]+@[^@]+/; |
139 error "Can't putscript: $@" |
139 error "Can't putscript: $@" |
140 unless $s->putscript($script_name, redirect($p->{address}, $p->{keep})); |
140 unless $s->putscript($script_name, redirect($p->{address}, $p->{keep})); |
141 error "Can't setactive: $@" unless $s->setactive($script_name); |
141 error "Can't setactive: $@" unless $s->setactive($script_name); |
142 $status = 'Umleitung eingerichtet.'; |
142 $status = 'Umleitung eingerichtet.'; |
143 |
143 |