Path: news.cs.au.dk!not-for-mail
From: "Sascha Kimmel" <kimmel@tricos.com>
Newsgroups: comp.lang.beta
Subject: RE: New BETA library (nti): How to connect to the Internet via Remote Access Service
Date: 5 May 2000 12:24:40 -0000
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 81
Approved: mailtonews@cs.au.dk
Distribution: world
Message-ID: <20000505122440.5284.qmail@noatun.mjolner.dk>
Reply-To: "Sascha Kimmel" <kimmel@tricos.com>
NNTP-Posting-Host: daimi.cs.au.dk
X-Trace: xinwen.cs.au.dk 957529987 16107505 255.255.255.255 (5 May 2000 12:33:07 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 5 May 2000 12:33:07 GMT
Xref: news.cs.au.dk comp.lang.beta:12322

Hi!

JFYI: you do not need to set username and password explicitly if you have
saved them in the RAS settings.

Regards,
Sascha Kimmel


> -----Original Message-----
> From: Flemming Gram Christensen [mailto:gram@mjolner.dk]
> Sent: Tuesday, May 02, 2000 9:23 AM
> To: usergroup@mjolner.dk
> Subject: Re: New BETA library (nti): How to connect to the Internet via
> Remote Access Service
>
>
> Flemming Gram Christensen <gram@odin.mjolner.dk> writes:
>
> > "Webmaster tricos developer center"
> <webmaster@developer.tricos.com> writes:
> >
> > > Hi,
> > Hi.
> >
> > Nice work.
> > I tested the software on my home win98 machine and it works fine.
> >
>
> Hi again.
>
> I've now tested the library on a Win95 machine. It works there
> also.
> Here is the code I used:
>
> ORIGIN '~beta/basiclib/systemenv';
> INCLUDE 'ras';
>
> --program:descriptor--
> systemenv
> (#
>    r:@ras;
>    book:[1]@text;
>    t:^text;
>    username,password,provider:^text;
> do
>    (if r.installed then
>        'RAS is installed'->putline;
>        (for i:r.phonebook.entries repeat
>             i->r.phonebook.getEntry->putline
>        for);
>    if);
>    (if r.isConnected then
>        'Is Connected'->putline;
>        r.disConnect;
>     else
>        'Is not Connected - will try'->putline;
>        'Username:'->putline;
>        getline->username[];
>        'Password:'->putline;
>        getline->password[];
>        'Connecting to: '->puttext;
>        2->r.phonebook.getEntry->provider[];
>        provider[]->putline;
>        (provider,username,password)->r.connectExt;
>        1->sleep;
>        (if r.isConnected then
>            'Is Connected, now'->putline
>         else
>            'Is not Connected now'->putline;
>        if);
>        3->sleep;
>        'Disconnecting'->putline;
>        r.disConnect
>    if)
> #)
>
>
> Regards Flemming
>