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

Re: [MacPerl] Exit Runtime version and restart machine



Thanks all for the help. That fixed the problem.

>>> Tom Maas - 5/8/2000 1:59 PM >>>
>I haveRuntime version of a script that monitors two mounted volumes. If ether
>volume disconnects I want the computer to restart automatcally to try to
>reconnect. However when I do the following:
>
>MacPerl::DoAppleScript(<<END);
>tell application "Finder"
> restart
>end tell
>END
>
>MacPerl wants to confirm that I want to quit. Is there a way to by pass 
>this. 
>                                                                           
>  

Here is a qoute from a few weeks ago.
Think this is what you need.

Cheers Tommy.

>MacPerl::Quit(3);
>
>...somewhere in your script where it will run (e.g. near the top), 
>and MacPerl will quit after running the CGI if it is the first 
>program run by MacPerl, but not if you have previously run another 
>program with MacPerl.  Thus, you can open MacPerl, do nothing, and 
>run the droplet and MacPerl will quit (not what you asked for). 
>However, if you open MacPerl, run ANOTHER script, then run the 
>droplet, MacPerl will NOT quit.  (It will also quit if MacPerl wasn't 
>open at all when you run the droplet.)
>
>Documentation on MacPerl::Quit() (there are other options) is in the 
>file macperl.pod which comes with the MacPerl distribution (readable 
>with the included shuck program) and is covered in Chapter 12 of 
>"MacPerl Power and Ease".
>
>Hope this helps.
>
>-David-
>David Steffen, Ph.D.
>President, Biomedical Computing, Inc. <http://www.biomedcomp.com/>
>Phone: (713) 610-9770 FAX: (713) 610-9769 E-mail: steffen@biomedcomp.com

                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                                                                              
                        


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