Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Perl and Eudora

by /dev/trash (Curate)
on Nov 18, 2002 at 18:35 UTC ( #213844=perlquestion: print w/replies, xml ) Need Help??

/dev/trash has asked for the wisdom of the Perl Monks concerning the following question:

Right now I have this snippet of code to backup my Eudora Mailboxes to a network drive. 
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx';
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';

[download]
It works great but I'd like to automate it so that when I close Eudora, the files get copied automatically. Will Win32::OLE interact with Eudora?

Replies are listed 'Best First'.
Re: Perl and Eudora
by dmmiller2k (Chaplain) on Nov 19, 2002 at 01:29 UTC

    You could write a wrapper script, e.g., 

    system("D:/EudoraPro/Eudora.exe");

copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.mbx';
copy($_,'z:/mail_test') foreach glob 'D:/EudoraPro/*.toc';

    [download]

    Then, create a shortcut for the command, perl.exe eudorawrapper.pl and use THAT for starting Eudora.

    dmm

    If you GIVE a man a fish you feed him for a day
    But,     TEACH him to fish and you feed him for a lifetime
[reply]
[d/l]
[select]
      That doesn't work. The files get copied and everything but Eudora is not starting.
[reply]
        If your on windows 2000 or Xp you can add your back up code as a scheduled task, will that work for you?
[reply]

Back to Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: perlquestion [id://213844]
Approved by premchai21
Front-paged by Theseus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others taking refuge in the Monastery: (8)
As of 2023-12-01 16:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found
    Notices?