Author: pebender
Date: Sat Aug 30 06:08:33 2008
New Revision: 3651
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/security.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/ssh_server.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/x.pm
Log:
- Fixed some perl init bugs that caused mythbrowser to fail.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/security.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/security.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/security.pm
Sat Aug 30 06:08:33 2008
@@ -33,10 +33,17 @@
unlink('/etc/ssl/cert.pem');
symlink('/etc/ssl/certs/ca-bundle.crt', '/etc/ssl/cert.pem');
# Add KSSL's bundle.
- if ((-w '/usr/kde/share/apps/kssl/ca-bundle.crt') &&
(open(FILE, '>>', '/usr/kde/share/apps/kssl/ca-bundle.crt')))
+ if ((-w '/usr/kde/share/apps/kssl/ca-bundle.crt') &&
(open(OFILE, '>>', '/usr/kde/share/apps/kssl/ca-bundle.crt')))
{
- print FILE '/etc/ssl/certs/ca-bundle.crt' . "\n";
- close(FILE);
+ if ((-r '/etc/ssl/certs/ca-bundle.crt') &&
(open(IFILE, '<', '/etc/ssl/certs/ca-bundle.crt')))
+ {
+ while (<IFILE>)
+ {
+ print OFILE $_;
+ }
+ close(IFILE);
+ }
+ close(OFILE);
}
}
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/ssh_server.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/ssh_server.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/ssh_server.pm
Sat Aug 30 06:08:33 2008
@@ -19,7 +19,8 @@
$minimyth->message_output('info', "configuring ssh server ...");
- my (undef, undef, $uid, $gid) = getpwnam('root');
+ my $uid = getpwnam('root');
+ my $gid = getgrnam('root');
if (-e '/etc/ssh/sshd_config')
{
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/x.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/x.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/x.pm
Sat Aug 30 06:08:33 2008
@@ -21,10 +21,11 @@
$minimyth->message_output('info', "configuring X ...");
{
- my (undef, undef, $uid, $gid) = getpwnam('root');
+ my $uid = getpwnam('root');
+ my $gid = getgrnam('root');
rmdir('/tmp/.ICE-unix');
- mkdir('/tmp/.ICE-unix', 1777);
- chmod(1777, '/tmp/.ICE-unix');
+ mkdir('/tmp/.ICE-unix');
+ chmod(01777, '/tmp/.ICE-unix');
chown($uid, $gid, '/tmp/.ICE-unix');
}
@@ -291,7 +292,8 @@
# Make sure that the file ownership is correct.
{
- my (undef, undef, $uid, $gid) = getpwnam('minimyth');
+ my $uid = getpwnam('minimyth');
+ my $gid = getgrnam('minimyth');
File::Find::finddepth(
sub
{
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
