pkgs/pptp/patches/pptp-1.7.2-pptpsetup-mppe.patch

   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
   3 @@ -43,14 +43,6 @@
   4  sub create {
   5      my $TUNNEL = shift;
   6
   7 -    # if encryption is requested, check for support in kernel and pppd
   8 -    if ( $ENCRYPT ) {
   9 -        &Check_MPPE_in_kernel
  10 -            or die "$0: couldn't find MPPE support in kernel.\n";
  11 -        &Check_MPPE_in_pppd
  12 -            or die "$0: couldn't find MPPE support in pppd.\n";
  13 -    }
  14 -
  15      # input validation
  16      ($TUNNEL) = $TUNNEL =~ m{^(\w+)$}
  17        or die "$0: invalid tunnel name.\nTry '$0 --help' for more information.\n";
  18 @@ -180,29 +172,6 @@
  19      exit;
  20  }
  21
  22 -### AUXILIAR SUBS ###
  23 -
  24 -sub Check_MPPE_in_kernel {
  25 -    my $command = q/modprobe ppp-compress-18/;
  26 -    if (system( $command ) == 0) {
  27 -        # no error!
  28 -        return 1;
  29 -    } else {
  30 -        return 0;
  31 -    }
  32 -}
  33 -
  34 -sub Check_MPPE_in_pppd {
  35 -    my $command = q/strings `which pppd`|grep -i mppe|wc --lines/;
  36 -    my $answer  = `$command`;
  37 -    if ($answer > 0) {
  38 -        # ok!
  39 -        return 1;
  40 -    } else {
  41 -        return 0;
  42 -    }
  43 -}
  44 -
  45  __END__
  46
  47  =head1 NAME