0
  "   ˆl–Ãa¾”ÔD¨ 	µÕÆ™¸ÛªbÑ¿ÁƒasÀ¿ 	Ô    -- WirePlumber
--
-- Copyright Â© 2023 Collabora Ltd.
--    @author Ashok Sidipotu <ashok.sidipotu@collabora.com>
--
-- SPDX-License-Identifier: MIT

mutils = require ("monitor-utils")

log = Log.open_topic ("s-monitors-v4l2")

SimpleEventHook {
  name = "monitor/v4l2/name-node",
  interests = {
    EventInterest {
      Constraint { "event.type", "=", "create-v4l2-device-node" },
    },
  },
  execute = function(event)
    local properties = event:get_data ("node-properties")
    local parent = event:get_subject ()
    local dev_props = parent.properties
    local factory = event:get_data ("factory")
    local id = event:get_data ("node-sub-id")

    -- set the device id and spa factory name; REQUIRED, do not change
    properties["device.id"] = parent["bound-id"]
    properties["factory.name"] = factory

    -- set the default pause-on-idle setting
    properties["node.pause-on-idle"] = false

    -- set the node name
    local name =
        (factory:find ("sink") and "v4l2_output") or
        (factory:find ("source") and "v4l2_input" or factory)
        .. "." ..
        (dev_props["device.name"]:gsub ("^v4l2_device%.(.+)", "%1") or
          dev_props["device.name"] or
          dev_props["device.nick"] or
          dev_props["device.alias"] or
          "v4l2-device")
    -- sanitize name
    name = name:gsub ("([^%w_%-%.])", "_")

    properties["node.name"] = name

    -- deduplicate nodes with the same name
    for counter = 2, 99, 1 do
      if mutils.find_duplicate (parent, id, "node.name", properties["node.name"]) then
        properties["node.name"] = name .. "." .. counter
      else
        break
      end
    end

    -- set the node description
    local desc = dev_props["device.description"] or "v4l2-device"
    desc = desc .. " (V4L2)"
    -- sanitize description, replace ':' with ' '
    properties["node.description"] = desc:gsub ("(:)", " ")

    -- set the node nick
    local nick = properties["node.nick"] or
        dev_props["device.product.name"] or
        dev_props["api.v4l2.cap.card"] or
        dev_props["device.description"] or
        dev_props["device.nick"]
    properties["node.nick"] = nick:gsub ("(:)", " ")

    -- set priority
    if not properties["priority.session"] then
      local path = properties["api.v4l2.path"] or "/dev/video100"
      local dev = path:gsub ("/dev/video(%d+)", "%1")
      properties["priority.session"] = 1000 - (tonumber (dev) * 10)
    end

    event:set_data ("node-properties", properties)
  end
}:register ()
  "   ˆl–Ðz¾”Jj"TÒzàœ¸”Å£Âƒ¯3ÁÀ ÷    #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/gemwrapper                      Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;
use Cpanel::FileUtils::Path ();

my $hasperlexpect = 0;

eval {
    require IO::Tty;
    require Expect;
    $hasperlexpect = 1;
};

my $gem = Cpanel::FileUtils::Path::findinpath('gem');

if ( $> != 0 ) {
    my $homedir = ( getpwuid($>) )[7];
    $ENV{'HOME'}     = $homedir;                   # restore HOME (cleansed by saferun_r_cleanenv when called from Cpanel::LangMods)
    $ENV{'GEM_HOME'} = $homedir . '/ruby/gems/';
}

if ( $ARGV[0] =~ m/noexpect/ ) {
    shift @ARGV;
    $hasperlexpect = 0;
}

if ( !$hasperlexpect ) {
    exec $gem, @ARGV;
}

$SIG{'ALRM'} = sub { die "Timeout\n"; };
alarm( 20 * 60 );

my $exp = Expect->spawn( $gem, @ARGV ) or die "Cannot spawn gem installer: $!";
my $pid = $exp->pid();

my $number = 0;
while ( waitpid( $pid, 1 ) != -1 ) {
    $exp->expect(
        300,
        [
            qr/(.*\(ruby\).*)/,
            sub {
                if ( !$number ) {
                    ($number) = $exp->match =~ /\s*(\d+)/;
                }
            }
        ],
        [
            '>',
            sub {
                my $temp_number = 1;