Author: pebender
Date: Wed Nov 5 18:54:50 2008
New Revision: 3915
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/media.pm
Log:
- Worked around an issue in the perl based media init script that caused
MM_MEDIA_TV_URL and MM_MEDIA_TV_MOUNTPOINT to fail.
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 Wed Nov 5
18:54:50 2008
@@ -1,7 +1,7 @@
MiniMyth Changelog
--------------------------------------------------------------------------------
-Changes since 59 (2008-11-04):
+Changes since 59 (2008-11-05):
Current MythTV versions
MythTV 0.20-softpad: version 0.20.2.softpad, release-0-20-fixes branch
svn 16082,
@@ -27,6 +27,8 @@
Fixed bugs
- Fixed bug in MiniMyth::url_mount that caused mount options contained
in
the URL's query part to be ignored.
+ - Worked around an issue in the perl based media init script that
caused
+ MM_MEDIA_TV_URL and MM_MEDIA_TV_MOUNTPOINT to fail.
Fixed build system
- Added missing btusb.ko driver to wiimote library list.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/media.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/media.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/media.pm
Wed Nov 5 18:54:50 2008
@@ -18,10 +18,10 @@
$minimyth->message_output('info', "mounting media shares ...");
- foreach (('TV', 'GALLERY', 'GAME', 'MUSIC', 'VIDEO', 'DVD_RIP'))
+ foreach my $media
(('TV', 'GALLERY', 'GAME', 'MUSIC', 'VIDEO', 'DVD_RIP'))
{
- my $url_name = 'MM_MEDIA_' . $_ . '_URL';
- my $mountpoint_name = 'MM_MEDIA_' . $_ . '_MOUNTPOINT';
+ my $url_name = 'MM_MEDIA_' . $media . '_URL';
+ my $mountpoint_name = 'MM_MEDIA_' . $media . '_MOUNTPOINT';
my $url = $minimyth->var_get($url_name);
my $mountpoint = $minimyth->var_get($mountpoint_name);
if (($url) && ($mountpoint))
@@ -35,7 +35,7 @@
$mounted = 1;
}
close(FILE);
- if ($mounted eq 0)
+ if ($mounted == 0)
{
$minimyth->message_output('err', "error: '$mountpoint'
failed to mount.");
return 0;
@@ -72,10 +72,10 @@
$minimyth->message_output('info', "unmounting media shares ...");
- foreach (('DVD_RIP', 'VIDEO', 'MUSIC', 'GAME', 'GALLERY', 'TV'))
+ foreach my $media
(('DVD_RIP', 'VIDEO', 'MUSIC', 'GAME', 'GALLERY', 'TV'))
{
- my $url_name = 'MM_MEDIA_' . $_ . '_URL';
- my $mountpoint_name = 'MM_MEDIA_' . $_ . '_MOUNTPOINT';
+ my $url_name = 'MM_MEDIA_' . $media . '_URL';
+ my $mountpoint_name = 'MM_MEDIA_' . $media . '_MOUNTPOINT';
my $url = $minimyth->var_get($url_name);
my $mountpoint = $minimyth->var_get($mountpoint_name);
@@ -89,7 +89,7 @@
$mounted = 1;
}
close(FILE);
- if ($mounted ne 0)
+ if ($mounted != 0)
{
system(qq(/bin/umount "$mountpoint"));
}
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
