Re: [MacPerl] changing creation & modification dates

[Christian Huldt <chr@solvare.se>]

on 99-08-04, Chris Nandor wrote:
>Look in perlfunc or MPPE under "utime".  Unix has no creation time, and so
>this only adjusts modification time.  If you want to change creation time
>too, you need the toolbox.
>
>  #!perl -w
>  use Mac::Files;
>  $file  = 'Bourque:Desktop Folder:a';
>  $cinfo = FSpGetCatInfo($file) or die $^E;
>  $time = time;
>
>  $cinfo->ioFlCrDat($time);
>  $cinfo->ioFlMdDat($time);
>
>  FSpSetCatInfo($file, $cinfo) or die $^E;
>

I looked at FSpSetCatInfo but thought it was something with 
directories (sorry, folders ;-)

I think these not-too-obvious toolbox calls (or rather the names 
thereof) could be a bit un-obvious to new comers (but it's not really 
any worse than
	name of (get mailbox 1)
to quote a Applescript/Eudora question...)

>Often updating the modification date is enough, though, for my needs.  Here
>is a recursive "touch" I wrote.  Save it as a droplet, it updates the
>modification time of every file in a directory, recursively.

nice one!
I however wanted to offer to change to creation dates as well to show 
some of the strength with perl...
Christian                                icq:19272112
_____________________________________________________
http://www.solvare.se/individer/christian/
soca? soca! http://www.solvare.se/SOCA/

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