From: Michael Tremer Date: Tue, 19 Mar 2024 15:58:30 +0000 (+0100) Subject: ovpnmain.cgi: Remove authorship comments X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=7984cbbd6ca61509ad8049302c930a4a75ff0e49;p=people%2Fms%2Fipfire-2.x.git ovpnmain.cgi: Remove authorship comments These are not very useful. Signed-off-by: Michael Tremer --- diff --git a/html/cgi-bin/ovpnmain.cgi b/html/cgi-bin/ovpnmain.cgi index 5fb2adf9f..a4ad795ab 100755 --- a/html/cgi-bin/ovpnmain.cgi +++ b/html/cgi-bin/ovpnmain.cgi @@ -586,10 +586,6 @@ sub check_ccdconf return 1; } -### -# m.a.d net2net -### - sub validdotmask { my $ipdotmask = $_[0]; @@ -738,7 +734,7 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'save-adv-options'}) { $errormessage = $Lang::tr{'ovpn errmsg green already pushed'}; goto ADV_ERROR; } -# a.marx ccd + my %ccdroutehash=(); &General::readhasharray("${General::swroot}/ovpn/ccdroute", \%ccdroutehash); foreach my $key (keys %ccdroutehash) { @@ -755,8 +751,6 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'save-adv-options'}) { } } -# ccd end - $vpnsettings{'ROUTES_PUSH'} .= $tmpip."\n"; } } @@ -791,10 +785,6 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'save-adv-options'}) { &writeserverconf();#hier ok } -### -# m.a.d net2net -### - if ($cgiparams{'ACTION'} eq $Lang::tr{'save'} && $cgiparams{'TYPE'} eq 'net' && $cgiparams{'SIDE'} eq 'server') { @@ -894,10 +884,6 @@ unless(-d "${General::swroot}/ovpn/n2nconf/$cgiparams{'NAME'}"){mkdir "${General } -### -# m.a.d net2net -### - if ($cgiparams{'ACTION'} eq $Lang::tr{'save'} && $cgiparams{'TYPE'} eq 'net' && $cgiparams{'SIDE'} eq 'client') { @@ -1883,10 +1869,6 @@ END ### Enable/Disable connection ### -### -# m.a.d net2net -### - }elsif ($cgiparams{'ACTION'} eq $Lang::tr{'toggle enable disable'}) { &General::readhash("${General::swroot}/ovpn/settings", \%vpnsettings); @@ -1935,10 +1917,6 @@ END my $tempdir = tempdir( CLEANUP => 1 ); my $zippath = "$tempdir/"; -### -# m.a.d net2net -### - if ($confighash{$cgiparams{'KEY'}}[3] eq 'net'){ my $zipname = "$confighash{$cgiparams{'KEY'}}[1]-Client.zip"; @@ -2060,10 +2038,6 @@ else my $zippathname = "$zippath$zipname"; $clientovpn = "$confighash{$cgiparams{'KEY'}}[1]-TO-IPFire.ovpn"; -### -# m.a.d net2net -### - open(CLIENTCONF, ">$tempdir/$clientovpn") or die "Unable to open tempfile: $!"; flock CLIENTCONF, 2; @@ -2295,10 +2269,6 @@ else &General::system("/usr/bin/openssl", "ca", "-revoke", "${General::swroot}/ovpn/certs/$confighash{$cgiparams{'KEY'}}[1]cert.pem", "-config", "${General::swroot}/ovpn/openssl/ovpn.cnf"); &General::system("/usr/bin/openssl", "ca", "-gencrl", "-out", "${General::swroot}/ovpn/crls/cacrl.pem", "-config", "${General::swroot}/ovpn/openssl/ovpn.cnf"); -### -# m.a.d net2net -### - if ($confighash{$cgiparams{'KEY'}}[3] eq 'net') { # Stop the N2N connection before it is removed &General::system("/usr/local/bin/openvpnctrl", "-kn2n", "$confighash{$cgiparams{'KEY'}}[1]"); @@ -2316,7 +2286,7 @@ else unlink ("${General::swroot}/ovpn/certs/$confighash{$cgiparams{'KEY'}}[1]cert.pem"); unlink ("${General::swroot}/ovpn/certs/$confighash{$cgiparams{'KEY'}}[1].p12"); -# A.Marx CCD delete ccd files and routes + # Delete CCD files and routes if (-f "${General::swroot}/ovpn/ccd/$confighash{$cgiparams{'KEY'}}[2]") { @@ -2340,7 +2310,6 @@ else &General::writehasharray("${General::swroot}/ovpn/ccdroute2", \%ccdroute2hash); &writeserverconf; -# CCD end # Update collectd configuration and delete all RRD files of the removed connection &writecollectdconf(); &General::system("/usr/local/bin/openvpnctrl", "-drrd", "$confighash{$cgiparams{'KEY'}}[1]"); @@ -2737,7 +2706,7 @@ END exit(0); -# A.Marx CCD Add,delete or edit CCD net +# Add, delete or edit CCD net } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'ccd net'} || $cgiparams{'ACTION'} eq $Lang::tr{'ccd add'} || @@ -3037,10 +3006,6 @@ END $errormessage = $Lang::tr{'invalid key'}; } -### -# m.a.d net2net -### - } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'add'} && $cgiparams{'TYPE'} eq '') { &General::readhash("${General::swroot}/ovpn/settings", \%vpnsettings); &Header::showhttpheaders(); @@ -3087,10 +3052,6 @@ END &Header::closepage(); exit (0); -### -# m.a.d net2net -### - } elsif (($cgiparams{'ACTION'} eq $Lang::tr{'add'}) && ($cgiparams{'TYPE'} eq 'net2net')){ my @firen2nconf; @@ -3162,10 +3123,6 @@ END goto N2N_ERROR; } -### -# m.a.d net2net -### - if ($cgiparams{'n2nname'} ne ''){ $uplconffilename2 = "$cgiparams{'n2nname'}.conf"; @@ -3265,10 +3222,6 @@ $n2nauth[1] =~ s/\n|\r//g; chomp ($complzoactive); chomp ($mssfixactive); -### -# m.a.d net2net -### - ### # Check if there is no other entry with this name ### @@ -3426,12 +3379,6 @@ if ($confighash{$cgiparams{'KEY'}}) { $errormessage = $Lang::tr{'invalid key'}; } - -### -# m.a.d net2net -### - - ### ### Adding a new connection ### @@ -3481,7 +3428,7 @@ if ($confighash{$cgiparams{'KEY'}}) { } elsif ($cgiparams{'ACTION'} eq $Lang::tr{'save'}) { $cgiparams{'REMARK'} = &Header::cleanhtml($cgiparams{'REMARK'}); -#A.Marx CCD check iroute field and convert it to decimal +# CCD check iroute field and convert it to decimal if ($cgiparams{'TYPE'} eq 'host') { my @temp=(); my %ccdroutehash=(); @@ -3647,9 +3594,6 @@ if ($cgiparams{'TYPE'} eq 'host') { } } -#CCD End - - if ($cgiparams{'TYPE'} !~ /^(host|net)$/) { $errormessage = $Lang::tr{'connection type is invalid'}; if ($cgiparams{'TYPE'} eq 'net') { @@ -3688,10 +3632,6 @@ if ($cgiparams{'TYPE'} eq 'host') { goto VPNCONF_ERROR; } -### -# m.a.d net2net -### - if ($cgiparams{'TYPE'} eq 'net') { if ($cgiparams{'DEST_PORT'} eq $vpnsettings{'DDEST_PORT'}) { $errormessage = $Lang::tr{'openvpn destination port used'}; @@ -4326,10 +4266,6 @@ if ($cgiparams{'TYPE'} eq 'net') { close CCDRWCONF; } -### -# m.a.d n2n begin -### - if ($cgiparams{'TYPE'} eq 'net') { if (-e "/var/run/$confighash{$key}[1]n2n.pid") { @@ -4351,10 +4287,6 @@ if ($cgiparams{'TYPE'} eq 'net') { } } -### -# m.a.d n2n end -### - if ($cgiparams{'EDIT_ADVANCED'} eq 'on') { $cgiparams{'KEY'} = $key; $cgiparams{'ACTION'} = $Lang::tr{'advanced'}; @@ -4362,15 +4294,9 @@ if ($cgiparams{'TYPE'} eq 'net') { goto VPNCONF_END; } else { $cgiparams{'ENABLED'} = 'on'; -### -# m.a.d n2n begin -### $cgiparams{'MSSFIX'} = 'on'; $cgiparams{'FRAGMENT'} = '1300'; - $cgiparams{'DAUTH'} = 'SHA512'; -### -# m.a.d n2n end -### + $cgiparams{'DAUTH'} = 'SHA512'; $cgiparams{'SIDE'} = 'left'; if ( ! -f "${General::swroot}/ovpn/ca/cakey.pem" ) { $cgiparams{'AUTH'} = 'psk'; @@ -4642,7 +4568,6 @@ print< END -#jumper print "$Lang::tr{'remark title'}"; print ""; @@ -4651,7 +4576,7 @@ END } print"

"; -#A.Marx CCD new client + if ($cgiparams{'TYPE'} eq 'host') { print ""; my %vpnnet=(); @@ -4684,7 +4609,7 @@ if ($cgiparams{'TYPE'} eq 'host') { print "

$Lang::tr{'ccd choose net'}




"; } } -# ccd end + &Header::closebox(); if ($cgiparams{'KEY'} && $cgiparams{'AUTH'} eq 'psk') { @@ -4721,10 +4646,6 @@ if ($cgiparams{'TYPE'} eq 'host') { END ; -### -# m.a.d net2net -### - } else { print <$country"; } -### -# m.a.d net2net -### if ($cgiparams{'TYPE'} eq 'host') { print <
"; &Header::openbox('100%', 'LEFT', "$Lang::tr{'ccd client options'}:"); @@ -5062,11 +4971,10 @@ END $checked{'DCOMPLZO'}{'on'} = ''; $checked{'DCOMPLZO'}{$cgiparams{'DCOMPLZO'}} = 'CHECKED'; -# m.a.d $checked{'MSSFIX'}{'off'} = ''; $checked{'MSSFIX'}{'on'} = ''; $checked{'MSSFIX'}{$cgiparams{'MSSFIX'}} = 'CHECKED'; -#new settings + &Header::showhttpheaders(); &Header::openpage($Lang::tr{'status ovpn'}, 1, ''); &Header::openbigbox('100%', 'LEFT', '', $errormessage); @@ -5227,7 +5135,6 @@ END if ( -f "${General::swroot}/ovpn/ca/cacert.pem" ) { ### -# m.a.d net2net #$Lang::tr{'remark'}
L2089 ### @@ -5326,11 +5233,6 @@ END $col1="bgcolor='${Header::colourblue}'"; $active = "$Lang::tr{'capsclosed'}"; } else { - -### -# m.a.d net2net -### - if ($confighash{$key}[3] eq 'net') { if (-e "/var/run/$confighash{$key}[1]n2n.pid") {