| Apache/2.4.7 (Ubuntu) Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64 uid=33(www-data) gid=33(www-data) groups=33(www-data) safemode : OFF MySQL: ON | Perl: ON | cURL: OFF | WGet: ON > / usr / share / doc / ppp / examples / | server ip : 104.21.89.46 your ip : 172.69.6.98 H O M E |
| Filename | /usr/share/doc/ppp/examples/popp |
| Size | 779 |
| Permission | rw-r--r-- |
| Owner | root : root |
| Create time | 27-Apr-2025 09:55 |
| Last modified | 23-Jan-2013 06:12 |
| Last accessed | 06-Jul-2025 23:59 |
| Actions | edit | rename | delete | download (gzip) |
| View | text | code | image |
#!/usr/bin/perl -w
#
# popp connects to your provider and returns. You are able to
# see pppd proceed dialing. Once the connection is
# established pppd returns.
#
# Exit Status: taken from pppd
#
# Example: popp && mailsync
#
# This will dial your default provider, you will see pppd
# progress and as soon as the connection's established, your
# mail will get synchronized
#
# Version: 0.1 28-Dec-2001 "Tomas Pospisek" <[email protected]>
use strict;
my $ret;
my $pid = fork();
unless ($pid) {
# child
exec "plog -f";
} else {
# parent
my $provider = "provider" unless @ARGV;
$ret = system "pon $provider @ARGV updetach";
kill "SIGTERM", $pid;
};
exit $ret / 256; # perlbizzare
#
# popp connects to your provider and returns. You are able to
# see pppd proceed dialing. Once the connection is
# established pppd returns.
#
# Exit Status: taken from pppd
#
# Example: popp && mailsync
#
# This will dial your default provider, you will see pppd
# progress and as soon as the connection's established, your
# mail will get synchronized
#
# Version: 0.1 28-Dec-2001 "Tomas Pospisek" <[email protected]>
use strict;
my $ret;
my $pid = fork();
unless ($pid) {
# child
exec "plog -f";
} else {
# parent
my $provider = "provider" unless @ARGV;
$ret = system "pon $provider @ARGV updetach";
kill "SIGTERM", $pid;
};
exit $ret / 256; # perlbizzare