1 --- pptp-1.7.2/pptpsetup 2009-06-01 15:18:25.000000000 +0100
2 +++ pptp-1.7.2/pptpsetup 2009-06-01 15:19:25.000000000 +0100
7 - # if encryption is requested, check for support in kernel and pppd
9 - &Check_MPPE_in_kernel
10 - or die "$0: couldn't find MPPE support in kernel.\n";
12 - or die "$0: couldn't find MPPE support in pppd.\n";
16 ($TUNNEL) = $TUNNEL =~ m{^(\w+)$}
17 or die "$0: invalid tunnel name.\nTry '$0 --help' for more information.\n";
22 -### AUXILIAR SUBS ###
24 -sub Check_MPPE_in_kernel {
25 - my $command = q/modprobe ppp-compress-18/;
26 - if (system( $command ) == 0) {
34 -sub Check_MPPE_in_pppd {
35 - my $command = q/strings `which pppd`|grep -i mppe|wc --lines/;
36 - my $answer = `$command`;