Revision: 5714 Author: pebender Date: Sun Oct 18 18:16:17 2009 Log: - Fixed ownership of the directory /home/minimyth/.local.
http://code.google.com/p/minimyth/source/detail?r=5714 Modified: /trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/hulu.pm ======================================= --- /trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/hulu.pm Sat Oct 17 20:12:08 2009 +++ /trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/hulu.pm Sun Oct 18 18:16:17 2009 @@ -6,6 +6,7 @@ use strict; use warnings; +use File::Find (); use MiniMyth (); sub start @@ -33,7 +34,20 @@ $minimyth->message_log('info', qq(fetched MiniMyth read-write configuration file ') . $name_remote . qq(')); $minimyth->message_log('info', qq( by fetching ') . $result . qq(')); $minimyth->message_log('info', qq( to local file ') . $name_local . qq('.)); + chmod(oct('0644'), $name_local); + # Make sure that uid and gid are for user 'minimyth'. + my $uid = getpwnam('minimyth'); + my $gid = getgrnam('minimyth'); + File::Find::finddepth( + sub + { + if (((stat($File::Find::name))[4] != $uid) || ((stat(_))[5] != $gid)) + { + chown($uid, $gid, $File::Find::name); + } + }, + '/home/minimyth/.local'); } } --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "minimyth-commits" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/minimyth-commits?hl=en -~----------~----~----~----~------~----~------~--~---
