#!/usr/bin/perl require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; &Header::showhttpheaders(); my %cgiparams; &Header::getcgihash(\%cgiparams); &Header::openpage('asterisk', 1, ''); &Header::openbigbox('100%', 'LEFT'); if ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) { $conf_file = $cgiparams{'save_path'}; open (FILE, ">$conf_file") or die "Kann die Datei nicht speichern: $!"; flock (FILE, 2); print FILE "$cgiparams{'textarea'}"; close FILE; &Header::openbox('100%', 'LEFT', 'info'); print "$conf_file wurde gespeichert"; &Header::closebox(); } if ($cgiparams{'ACTION'} eq Bearbeiten) { $conf_file = $cgiparams{'conf_file'}; } if ($conf_file eq '') { $conf_file='/var/ipfire/asterisk/extensions.conf'; } if ($cgiparams{'ACTION'} eq extensions) { $conf_file='/var/ipfire/asterisk/extensions.conf'; } if ($cgiparams{'ACTION'} eq sip) { $conf_file='/var/ipfire/asterisk/sip.conf'; } if ($cgiparams{'ACTION'} eq iax) { $conf_file='/var/ipfire/asterisk/iax.conf'; } if ($errormessage) { &Header::openbox('100%', 'LEFT', $tr{'error messages'}); print "$errormessage \n"; &Header::closebox(); } $cgiparams{'ACTION'} = ''; print "