[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] A script, and a question.



At 7.39 -0800 2000.02.23, Brian McNett wrote:
>However...  I'm on a dialup connection (may be changing soon, but
>meanwhile...), and need to log off after this process is complete.  How
>then do I quit my PPP connection when done?


>#!perl -w
>
>use Mac::Apps::Launch;
>use Mac::Glue;
>my $obj = new Mac::Glue 'Macjordomo_1_5fc8';
>
>Hide('MacPerl', 1) or warn $^E;
>
>for (;;) {
>    sleep(10560);
>    &do_connect;
>}
>
>sub do_connect {
>    $obj->run();
>    $obj->connect();
>    sleep(240);
>    $obj->export('MycoinfoBrief Users', 'MycoinfoBrief');
>    $obj->quit();

    $obj->ppp_disconnect;

>}

Remember, scripting addition events are not called as apps, they are called
as events in ANY app.  So to are the methods in Mac::Glue.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org