Author: pebender
Date: Sun Sep 14 19:07:07 2008
New Revision: 3754
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed a bug that caused multiline MiniMyth configuration variables to
fail when the perl init scripts are to process the variables.
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 Sun Sep 14
19:07:07 2008
@@ -25,8 +25,10 @@
- Changed mm_ss_suspend so that it daemonizes.
Fixed bugs
- - Fixed a bug that cause the MM_PLUGIN_*_ENABLED variables to not work
when
+ - Fixed a bug that caused the MM_PLUGIN_*_ENABLED variables to not
work when
using the perl init scripts.
+ - Fixed a bug that caused multiline MiniMyth configuration variables to
+ fail when the perl init scripts are to process the variables.
Renamed packages
Renamed lib/mpeg2dec to lib/libmpeg2.
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 Sun Sep 14
19:07:07 2008
@@ -1 +1 @@
-b2997d80bcbb345613507c04e5bc63f1 download/MiniMyth.pm
+aae7ecdc4b83b34dcd69830f06eb8346 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 Sun Sep
14 19:07:07 2008
@@ -255,12 +255,32 @@
if ((-x '/bin/sh') && (open(FILE, '-|', qq(/bin/sh
-c '$shell_command'))))
{
- foreach (grep(/^$conf_filter$/, (<FILE>)))
+ my $name = '';
+ my $value = '';
+ while (<FILE>)
{
chomp;
- if (/^([^=]+)='(.*)'$/)
+ if (! $name)
{
- $conf_variable{$1} = $2;
+ if (/^([^=]+)=('.*)$/)
+ {
+ $name = $1;
+ $value = $2
+ }
+ }
+ else
+ {
+ $value = $value . ' ' . $_;
+ }
+ if (($name) && ($value =~ /^'(.*)'$/))
+ {
+ $value = $1;
+ if ($name =~ /^$conf_filter$/)
+ {
+ $conf_variable{$name} = $value;
+ }
+ $name = '';
+ $value = '';
}
}
close(FILE);
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
