Author: pebender
Date: Sat May 23 11:58:04 2009
New Revision: 4816
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/font.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
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/rc.pl
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/usr/bin/mm_sleep
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed a bug that caused MythBrowser to fail due to dcopserver not
starting, which was caused by the x init script not correctly setting
the permissions on /tmp/.ICE-unix.
- Cleaned up use of the mode parameter in the perl package function
File::Path::mkpath.
Modified: trunk/gar-minimyth/html/minimyth/document-changelog.txt
==============================================================================
--- trunk/gar-minimyth/html/minimyth/document-changelog.txt (original)
+++ trunk/gar-minimyth/html/minimyth/document-changelog.txt Sat May 23
11:58:04 2009
@@ -122,6 +122,9 @@
atftpd server.
- Added fix a for the Xorg intel video driver's HDMI audio problem:
<http://bugs.freedesktop.org/show_bug.cgi?id=21371>.
+ - Fixed a bug that caused MythBrowser to fail due to dcopserver not
+ starting, which was caused by the x init script not correctly setting
+ the permissions on /tmp/.ICE-unix.
Fixed build system
- Fixed devel/binutils so that it builds static libraries as well.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/font.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/font.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/font.pm
Sat May 23 11:58:04 2009
@@ -19,7 +19,9 @@
$minimyth->message_output('info', "updating fonts ...");
File::Path::mkpath('/usr/lib/X11/fonts/TTF', { mode => 0755 });
+ chmod(0755, '/usr/lib/X11/fonts/TTF');
File::Path::mkpath('/usr/share/mythtv', { mode => 0755 });
+ chmod(0755, '/usr/share/mythtv');
if ($minimyth->var_get('MM_FONT_FILE_TTF_DELETE'))
{
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
Sat May 23 11:58:04 2009
@@ -270,7 +270,9 @@
# Create directories used by the LIRC daemon.
File::Path::mkpath('/var/lock', { mode => 0755 });
+ chmod(0755, '/var/lock');
File::Path::mkpath('/var/run', { mode => 0755 });
+ chmod(0755, '/var/run');
# 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
Sat May 23 11:58:04 2009
@@ -38,6 +38,7 @@
chown($uid, $gid, '/etc/ssh/authorized_keys');
File::Path::mkpath('/root/.ssh', { mode => 0755 });
+ chmod(0755, '/root/.ssh');
File::Copy::copy('/etc/ssh/authorized_keys', '/root/.ssh/authorized_keys');
chmod(0600, '/root/.ssh/authorized_keys');
chown($uid, $gid, '/root/.ssh/authorized_keys');
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
Sat May 23 11:58:04 2009
@@ -22,8 +22,9 @@
{
my $uid = getpwnam('root');
my $gid = getgrnam('root');
- rmdir('/tmp/.ICE-unix');
- File::Path::mkpath('/tmp/.ICE-unix', { mode => 01777 });
+ File::Path::rmtree('/tmp/.ICE-unix');
+ File::Path::mkpath('/tmp/.ICE-unix', { mode => 0777 } );
+ chmod(0777, '/tmp/.ICE-unix');
chown($uid, $gid, '/tmp/.ICE-unix');
}
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/rc.pl
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/rc.pl
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/rc.pl
Sat May 23 11:58:04 2009
@@ -150,7 +150,8 @@
my $log_dir = File::Basename::dirname($log_file);
if (! -e $log_dir)
{
- File::Path::mkpath($log_dir);
+ File::Path::mkpath($log_dir, { mode => 0755 });
+ chmod(0755, $log_dir);
}
if (-w $log_dir)
{
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/usr/bin/mm_sleep
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/usr/bin/mm_sleep
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/usr/bin/mm_sleep
Sat May 23 11:58:04 2009
@@ -21,7 +21,7 @@
# Create the state directory for mm_sleep.
File::Path::rmtree("/var/lib/mm_sleep.$$");
-File::Path::mkpath("/var/lib/mm_sleep.$$");
+File::Path::mkpath("/var/lib/mm_sleep.$$", { mode => 0755 });
# Turn off any external equipment.
system(qq(/usr/bin/mm_external power_off));
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Sat May 23
11:58:04 2009
@@ -1 +1 @@
-262292d05195bd4ee1cb0f21d3f19711 download/MiniMyth.pm
+ed2891ba01a254ad33c01a0d2a9547ff download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Sat May
23 11:58:04 2009
@@ -297,7 +297,7 @@
(defined $self->{'conf_variable'}) || die 'MiniMyth::var_save:
MiniMyth configuration variables have not been loaded.';
- File::Path::mkpath(File::Basename::dirname("$conf_file"));
+ File::Path::mkpath(File::Basename::dirname("$conf_file"), { mode =>
0755 });
unlink("$conf_file.$$");
if (open(FILE, '>', "$conf_file.$$"))
{
@@ -594,7 +594,7 @@
default { $message = '' ; }
}
$self->message_log('info', qq(starting splash screen));
- File::Path::mkpath($var_splash_fifo_dir, {mode => 0755});
+ File::Path::mkpath($var_splash_fifo_dir, { mode => 0755 });
$self->splash_command('exit');
system(qq($var_splash_command --theme="minimyth" --progress="0"
--mesg="$message" --type="$type"));
$self->splash_command('set tty silent 3');
@@ -1232,7 +1232,7 @@
my $local_dir = $local_file;
$local_dir =~ s/[^\/]*$//;
$local_dir =~ s/\$//;
- File::Path::mkpath($local_dir, {mode => 0755});
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
$self->message_log('err', qq(fetching '$url': failed to create
local directory '$local_dir'.));
@@ -1363,7 +1363,7 @@
my $remote_dir = $remote_file;
$remote_dir =~ s/[^\/]*$//;
$remote_dir =~ s/\$//;
- File::Path::mkpath($remote_dir, {mode => 0755});
+ File::Path::mkpath($remote_dir, { mode => 0755 });
if (! -d $remote_dir)
{
$self->message_log('err', qq(saving '$local_file':
failed to create remote directory '$remote_dir'.));
@@ -1531,7 +1531,7 @@
if (! -e $mount_dir)
{
- File::Path::mkpath($mount_dir) || return 0;
+ File::Path::mkpath($mount_dir, { mode => 0755 }) || return 0;
}
# Parse the URL.
@@ -1598,9 +1598,9 @@
$dir =~ s/\/+/~/g;
$dir = "/initrd/rw/loopfs/$dir";
my $file = 'image.sfs';
- File::Path::mkpath("$dir");
- File::Path::mkpath("$dir/ro");
- File::Path::mkpath("$dir/rw");
+ File::Path::mkpath("$dir", { mode => 0755 });
+ File::Path::mkpath("$dir/ro", { mode => 0755 });
+ File::Path::mkpath("$dir/rw", { mode => 0755 });
$self->url_get($url, "$dir/$file") || return 0;
system(qq(/bin/mount -t squashfs -o
loop "$dir/$file" "$dir/ro")) && return 0;
system(qq(/bin/mount -t unionfs -o dirs=$dir/rw=rw:$dir/ro=ro
none "$mount_dir")) && return 0;
@@ -1611,9 +1611,9 @@
$dir =~ s/\/+/~/g;
$dir = "/initrd/rw/loopfs/$dir";
my $file = 'image.cmg';
- File::Path::mkpath("$dir");
- File::Path::mkpath("$dir/ro");
- File::Path::mkpath("$dir/rw");
+ File::Path::mkpath("$dir", { mode => 0755 });
+ File::Path::mkpath("$dir/ro", { mode => 0755 });
+ File::Path::mkpath("$dir/rw", { mode => 0755 });
$self->url_get($url, "$dir/$file") || return 0;
system(qq(/bin/mount -t cramfs -o
loop "$dir/$file" "$dir/ro")) && return 0;
system(qq(/bin/mount -t unionfs -o dirs=$dir/rw=rw:$dir/ro=ro
none "$mount_dir")) && return 0;
@@ -1700,7 +1700,7 @@
my $local_dir = $ENV{'HOME'} . '/' . 'tmp';
my $local_file = $local_dir . '/' . $file;
- File::Path::mkpath($local_dir);
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
@@ -1731,7 +1731,7 @@
my $local_dir = $ENV{'HOME'} . '/' . 'tmp';
my $local_file = $local_dir . '/' . $file;
- File::Path::mkpath($local_dir);
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
@@ -1751,7 +1751,7 @@
if ($game_save_list)
{
- File::Path::mkpath('/home/minimyth');
+ File::Path::mkpath('/home/minimyth', { mode => 0755 });
unlink ($local_file);
if (system(qq(/bin/tar -C '/home/minimyth' -cf $local_file
$game_save_list)) != 0)
{
@@ -1804,7 +1804,7 @@
my $local_dir = $ENV{'HOME'} . '/' . 'tmp';
my $local_file = $local_dir . '/' . $file;
- File::Path::mkpath($local_dir);
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
@@ -1912,7 +1912,7 @@
my $local_dir = $ENV{'HOME'} . '/' . 'tmp';
my $local_file = $local_dir . '/' . $file;
- File::Path::mkpath($local_dir);
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
@@ -1998,7 +1998,7 @@
my $local_file = $local_dir . '/' . $file;
unlink($local_file);
- File::Path::mkpath($local_dir, { mode => 0700 });
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
@@ -2041,7 +2041,7 @@
my $local_file = $local_dir . '/' . $file;
unlink($local_file);
- File::Path::mkpath($local_dir, { mode => 0700 });
+ File::Path::mkpath($local_dir, { mode => 0755 });
if (! -d $local_dir)
{
return 0;
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
