pptp-client/start.pl

   1 #!/usr/local/bin/perl
   2 # Attempt a PPTP connection
   3
   4 $no_acl_check++;
   5 require './pptp-client-lib.pl';
   6
   7 # Get tunnel details
   8 @tunnels = &list_tunnels();
   9 ($tunnel) = grep { $_->{'name'} eq $config{'boot'} } @tunnels;
  10 $tunnel || die $text{'conn_egone'};
  11 &parse_comments($tunnel);
  12 $tunnel->{'server'} || die $text{'conn_einvalid'};
  13
  14 # Check if it is already active
  15 @conns = &list_connected();
  16 ($conn) = grep { $_->[0] eq $config{'boot'} } @conns;
  17 $conn && die $text{'conn_ealready'};
  18
  19 print &text('conn_cmd',
  20             "$config{'pptp'} $tunnel->{'server'} call $config{'boot'}"),"\n";
  21 ($ok, @status) = &connect_tunnel($tunnel);
  22 if ($ok) {
  23         print &text('conn_ok', $status[0], $status[1], $status[2]),"\n";
  24         exit(0);
  25         }
  26 else {
  27         print "$text{'conn_timeout'}\n";
  28         print "$status[0]\n";
  29         exit(1);
  30         }
  31