Re: [MacPerl] Killing vcards

[Taylor Leaming <macbert@prismnet.com>]

I couldn't resist this.  I know this is a MacPerl list, but I also recieve more
than my share of these stupid wasteful little files.

For those of you not yet using MacOS 8.5, give this one a try.  Save as an
application and drop an alias to it in your StartUp Items folder.  Each time
you boot or restart, it will move those useless "vcard.vcf" and "winmail.dat"
files to the Trash.

(*
Name:   Purge Vcards  (for Eudora)
By:     Taylor Leaming
Date:   December 25, 1998
Descr:  Simple script to find all "virtual calling card" files in the Eudora
        Attachments folder and move them to the Trash:
        
        Netscape: "vcard.vcf" (ie: fred.vcf, vcard.vcf, vcard.vcf 1, vcard.vcf 2...)
        MS Mail:  "mail.dat"  (ie: mail.dat, winmail.dat 1, winmail.dat 2, ...)
*)

tell application "Finder"
    activate
    set x to 0
    set y to 0
    with timeout of 600000 seconds
        
        -- Kill Netscape vcards
        select (every item of folder "MacBert:System Folder:Eudora Folder:Attachments Folder:" whose name contains ".vcf")
        delete selection -- Move selection to Trash Folder
        
        -- Kill MS Mail vcards
        select (every item of folder "MacBert:System Folder:Eudora Folder:Attachments Folder:" whose name contains "mail.dat")
        delete selection
        
        beep (1)
        
    end timeout
end tell


- Taylor

At 11:06 AM -0600 12/30/98, Charles Albrecht wrote:
>
> This might be an appropriate time to mention that I've been playing 
> around with 8.5's Folder Actions.  (I'm on a number of other mailing 
> lists related to SSL and TLS standardization issues and receive a 
> mindboggling number of these "Kick Me" attachments.)
> 
> I set up the following applescript as a Folder Action on my attachments 
> directory.  With the Folder Actions extension and the Folder Action Menus 
> contextual menu plugin installed, "Attach a Folder Action..." is available 
> as a contextual menu option.  
> 
> [snip]


    +------------------------------------------------------------------+
    |  Taylor Leaming                           phone: (512) 292-3941  |
    |  3217 Silkgrass Bend                                             |
    |  Austin, Texas 78748              <mailto:macbert@prismnet.com>  |
    +------------------------------------------------------------------+

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch