Revision: 5964
Author: pebender
Date: Wed Dec 16 15:59:15 2009
Log: - Removed LIRC wakeup from init script as it handled by udev.


http://code.google.com/p/minimyth/source/detail?r=5964

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
       
Wed Dec 16 15:57:26 2009
+++  
/trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/lirc.pm
       
Wed Dec 16 15:59:15 2009
@@ -11,56 +11,6 @@
  use File::Basename ();
  use File::Path ();
  use MiniMyth ();
-
-sub _remote_wakeup_enable
-{
-    my $self   = shift;
-    my $device = shift;
-
-    my $path = undef;
-    if (($device) && (-e $device) && (open(FILE, '-|', qq(/sbin/udevadm  
info --query=path --name='$device'))))
-    {
-        while (<FILE>)
-        {
-            chomp;
-            $path = Cwd::abs_path(qq(/sys/$_));
-            last;
-        }
-        close(FILE);
-    }
-
-    if ($path)
-    {
-        while (($path) && ($path !~ /^\/sys$/))
-        {
-            if (-e qq($path/power/wakeup))
-            {
-                my $state = undef;
-                if (open(FILE, '<', qq($path/power/wakeup)))
-                {
-                    while (<FILE>)
-                    {
-                        chomp;
-                        $state = $_;
-                        last;
-                    }
-                    close(FILE);
-                }
-                if ($state =~ /^disabled$/)
-                {
-                    if (open(FILE, '>', qq($path/power/wakeup)))
-                    {
-                        print FILE q(enabled);
-                        close(FILE);
-                    }
-                }
-            }
-            $path = File::Basename::dirname($path);
-        }
-    }
-
-    return 1;
-}

  sub start
  {
@@ -105,12 +55,6 @@
              }
              $driver = $driver_actual;
          }
-
-        # Enable wakeup on remote.
-        if ($minimyth->var_get('MM_LIRC_WAKEUP_ENABLED') eq 'yes')
-        {
-            $self->_remote_wakeup_enable($device);
-        }

          # Start the lircd daemon.
          my $instance = $device;

--

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.


Reply via email to