Author: pebender
Date: Wed Apr 8 03:25:37 2009
New Revision: 4571
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/gtk.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/lirc.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/ssh_server.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
Log:
- Switched init scripts from mkdir to File::Path::mkpath
so that parent directories are created as needed.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/gtk.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/gtk.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/gtk.pm
Wed Apr 8 03:25:37 2009
@@ -6,6 +6,7 @@
use strict;
use warnings;
+use File::Path ();
use MiniMyth ();
sub start
@@ -19,7 +20,7 @@
{
if (! -e q(/var/lib/dbus))
{
- mkdir(q(/var/lib/dbus));
+ File::Path::mkpath(q(/var/lib/dbus), { mode => 0755 });
}
chmod(0755, q(/var/lib/dbus));
system(qq(/usr/bin/dbus-uuidgen > /var/lib/dbus/machine-id));
@@ -30,7 +31,7 @@
{
if (! -e q(/etc/gtk-2.0))
{
- mkdir(q(/etc/gtk-2.0));
+ File::Path::mkpath(q(/etc/gtk-2.0), { mode => 0755 });
}
chmod(0755, q(/etc/gtk-2.0));
system(qq(/usr/bin/gdk-pixbuf-query-loaders >
/etc/gtk-2.0/gdk-pixbuf.loaders));
@@ -41,7 +42,7 @@
{
if (! -e q(/etc/pango))
{
- mkdir(q(/etc/pango));
+ File::Path::mkpath(q(/etc/pango), { mode => 0755 });
}
chmod(0755, q(/etc/pango));
system(qq(/usr/bin/pango-querymodules > /etc/pango/pango.modules));
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/lirc.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/lirc.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/lirc.pm
Wed Apr 8 03:25:37 2009
@@ -8,6 +8,7 @@
use Cwd ();
use File::Basename ();
+use File::Path ();
use MiniMyth ();
sub _remote_wakeup_enable
@@ -280,8 +281,8 @@
}
# Create directories used by the LIRC daemon.
- mkdir('/var/lock', 0755);
- mkdir('/var/run', 0755);
+ File::Path::mkpath('/var/lock', { mode => 0755 });
+ File::Path::mkpath('/var/run', { mode => 0755 });
# Enable wakeup and start an LIRC daemon for each device.
my $index = 0;
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/ssh_server.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/ssh_server.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/ssh_server.pm
Wed Apr 8 03:25:37 2009
@@ -7,6 +7,7 @@
use warnings;
use File::Copy ();
+use File::Path ();
use MiniMyth ();
sub start
@@ -36,7 +37,7 @@
chmod(0600, '/etc/ssh/authorized_keys');
chown($uid, $gid, '/etc/ssh/authorized_keys');
- mkdir('/root/.ssh', 0755);
+ File::Path::mkpath('/root/.ssh', { mode => 0755 });
File::Copy::copy('/etc/ssh/authorized_keys', '/root/.ssh/authorized_keys');
chmod(0600, '/root/.ssh/authorized_keys');
chown($uid, $gid, '/root/.ssh/authorized_keys');
@@ -47,7 +48,7 @@
if (! $minimyth->application_running('sshd'))
{
$minimyth->message_output('info', "starting ssh server ...");
- mkdir('/var/empty', 0755);
+ File::Path::mkpath('/var/empty', { mode => 0755 });
system(qq(/usr/sbin/sshd));
}
}
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
Wed Apr 8 03:25:37 2009
@@ -23,8 +23,7 @@
my $uid = getpwnam('root');
my $gid = getgrnam('root');
rmdir('/tmp/.ICE-unix');
- mkdir('/tmp/.ICE-unix');
- chmod(01777, '/tmp/.ICE-unix');
+ File::Path::mkpath('/tmp/.ICE-unix', { mode => 01777 });
chown($uid, $gid, '/tmp/.ICE-unix');
}
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
