Hi everyone,
We plan to publish on the web an archive of kppp configuration settings
for all ISPs in the UK. The eventual aim is to give easy to follow
instructions to enable kde users, no matter how inexperienced, to
connect to their ISP as simply and easily as possible. Our first
attempt is at:
http://www.kppp-archive.freeserve.co.uk
How can you help?
It won't take you a minute! If you have a reliable connection to your
ISP using kppp please send us you kppprc file. The definition of
reliable is:
make sure you have connected at least 10 times in a row with no
unexpected deaths
of daemons!
What is it? kppprc is the configuration file for kppp. There is one for
each user.
Where is it? /home/your_login_id_here/.kde/share/config/kppprc
Caution! This file contains your password for your ISP account so make
sure you
blank it out first before you send it to us. Martin wrote a perl script
which strips these from your configuration file to save you the effort.
The script is attached to this posting
So far we have kppprc files for
BT Internet, Claranet, Demon, Freeserve and Pipex.
Owen & Martin
--
My Email address is [EMAIL PROTECTED]
My top search engine is http://www.phoaks.com
My web site http://home.clara.net/oms101/
$file=glob("~/.kde/share/config/kppprc");
$file2="./kppprc_safe";
print"This perl script outputs a copy of $file to
$file2 with all passwords in the kppprc file replaced
by xxxxxx.\n\n";
open(FILE, $file)||die"can't open $file: $!";
while (defined ($line = <FILE>)) {
chomp($line);
if ($line=~ /^NumberOfAccounts=.*/) {
$pos_eq= index($line, "=");
$num_acct=substr($line,$pos_eq+1);
}
}
close(FILE)||die"can't close $file: $!";
open(OUTPUT,">$file2") || die "can't open $file2:$!";
print"Number of accounts=$num_acct\n";
open(FILE, $file)||die"can't open $file: $!";
$index="0";
while (defined ($line = <FILE>)) {
chomp($line);
if ($line=~ /^Password=.*/) {
$index++;
print"Password $index=";
$pos_eq= index($line, "=");
@password[$index]=substr($line,$pos_eq+1);
print"@password[$index]\n"
}
}
print"\nSearching for passwords. Here are the lines changed\n\n";
close(FILE)||die"can't close $file: $!";
open(FILE, $file)||die"can't open $file: $!";
while (defined ($line = <FILE>)) {
if ($line=~ /=/) {
$index="0";
while ($index < $num_acct) {
$index++;
$pos_eq=index($line, "=");
$after_eq=substr($line,$pos_eq+1);
$before_eq=substr($line,"0",$pos_eq+1);
if ($after_eq=~ /@password[$index].*/) {
print"$line";
$after_eq=~ s/@password[$index]/xxxxxx/g;
$line="$before_eq$after_eq";
print"$line\n";
$index=num_acct;
}
}
print OUTPUT $line;
}
}
close(FILE)||die"can't close $file: $!";
