Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Algorithm	[ DIR ]	drwxr-xr-x
Amazon	[ DIR ]	drwxr-xr-x
Apache	[ DIR ]	drwxr-xr-x
App	[ DIR ]	drwxr-xr-x
AppConfig	[ DIR ]	drwxr-xr-x
Archive	[ DIR ]	drwxr-xr-x
Authen	[ DIR ]	drwxr-xr-x
B	[ DIR ]	drwxr-xr-x
BSON	[ DIR ]	drwxr-xr-x
Barcode	[ DIR ]	drwxr-xr-x
Bit	[ DIR ]	drwxr-xr-x
Bundle	[ DIR ]	drwxr-xr-x
Business	[ DIR ]	drwxr-xr-x
Bytes	[ DIR ]	drwxr-xr-x
CDDB	[ DIR ]	drwxr-xr-x
CGI	[ DIR ]	drwxr-xr-x
Cache	[ DIR ]	drwxr-xr-x
Carp	[ DIR ]	drwxr-xr-x
Chart	[ DIR ]	drwxr-xr-x
Chatbot	[ DIR ]	drwxr-xr-x
Class	[ DIR ]	drwxr-xr-x
Config	[ DIR ]	drwxr-xr-x
Convert	[ DIR ]	drwxr-xr-x
Crypt	[ DIR ]	drwxr-xr-x
DBD	[ DIR ]	drwxr-xr-x
DBIx	[ DIR ]	drwxr-xr-x
Data	[ DIR ]	drwxr-xr-x
Date	[ DIR ]	drwxr-xr-x
DateTime	[ DIR ]	drwxr-xr-x
Debconf	[ DIR ]	drwxr-xr-x
Debian	[ DIR ]	drwxr-xr-x
Devel	[ DIR ]	drwxr-xr-x
Devscripts	[ DIR ]	drwxr-xr-x
Digest	[ DIR ]	drwxr-xr-x
Dist	[ DIR ]	drwxr-xr-x
Domain	[ DIR ]	drwxr-xr-x
Dpkg	[ DIR ]	drwxr-xr-x
Dselect	[ DIR ]	drwxr-xr-x
DynaLoader	[ DIR ]	drwxr-xr-x
Email	[ DIR ]	drwxr-xr-x
Encode	[ DIR ]	drwxr-xr-x
Error	[ DIR ]	drwxr-xr-x
Eval	[ DIR ]	drwxr-xr-x
Exception	[ DIR ]	drwxr-xr-x
Exporter	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
Finance	[ DIR ]	drwxr-xr-x
Flickr	[ DIR ]	drwxr-xr-x
Font	[ DIR ]	drwxr-xr-x
Frontier	[ DIR ]	drwxr-xr-x
GD	[ DIR ]	drwxr-xr-x
Geo	[ DIR ]	drwxr-xr-x
Getopt	[ DIR ]	drwxr-xr-x
Git	[ DIR ]	drwxr-xr-x
GnuPG	[ DIR ]	drwxr-xr-x
HTML	[ DIR ]	drwxr-xr-x
HTTP	[ DIR ]	drwxr-xr-x
Heap	[ DIR ]	drwxr-xr-x
IO	[ DIR ]	drwxr-xr-x
IPC	[ DIR ]	drwxr-xr-x
Ima	[ DIR ]	drwxr-xr-x
Image	[ DIR ]	drwxr-xr-x
Import	[ DIR ]	drwxr-xr-x
Inline	[ DIR ]	drwxr-xr-x
JSON	[ DIR ]	drwxr-xr-x
Jcode	[ DIR ]	drwxr-xr-x
LWP	[ DIR ]	drwxr-xr-x
Lingua	[ DIR ]	drwxr-xr-x
List	[ DIR ]	drwxr-xr-x
Locale	[ DIR ]	drwxr-xr-x
Log	[ DIR ]	drwxr-xr-x
MARC	[ DIR ]	drwxr-xr-x
MIDI	[ DIR ]	drwxr-xr-x
MIME	[ DIR ]	drwxr-xr-x
MLDBM	[ DIR ]	drwxr-xr-x
MP3	[ DIR ]	drwxr-xr-x
MRO	[ DIR ]	drwxr-xr-x
Mail	[ DIR ]	drwxr-xr-x
Math	[ DIR ]	drwxr-xr-x
Method	[ DIR ]	drwxr-xr-x
Module	[ DIR ]	drwxr-xr-x
MojoX	[ DIR ]	drwxr-xr-x
MongoDB	[ DIR ]	drwxr-xr-x
Moo	[ DIR ]	drwxr-xr-x
MooseX	[ DIR ]	drwxr-xr-x
NeedRestart	[ DIR ]	drwxr-xr-x
Net	[ DIR ]	drwxr-xr-x
Number	[ DIR ]	drwxr-xr-x
OLE	[ DIR ]	drwxr-xr-x
Object	[ DIR ]	drwxr-xr-x
PBKDF2	[ DIR ]	drwxr-xr-x
PDF	[ DIR ]	drwxr-xr-x
POE	[ DIR ]	drwxr-xr-x
Package	[ DIR ]	drwxr-xr-x
Parallel	[ DIR ]	drwxr-xr-x
Params	[ DIR ]	drwxr-xr-x
Parse	[ DIR ]	drwxr-xr-x
Path	[ DIR ]	drwxr-xr-x
Plucene	[ DIR ]	drwxr-xr-x
RDF	[ DIR ]	drwxr-xr-x
RPC	[ DIR ]	drwxr-xr-x
Regexp	[ DIR ]	drwxr-xr-x
Reply	[ DIR ]	drwxr-xr-x
Role	[ DIR ]	drwxr-xr-x
SOAP	[ DIR ]	drwxr-xr-x
SQL	[ DIR ]	drwxr-xr-x
Safe	[ DIR ]	drwxr-xr-x
Sort	[ DIR ]	drwxr-xr-x
Specio	[ DIR ]	drwxr-xr-x
Spreadsheet	[ DIR ]	drwxr-xr-x
Statistics	[ DIR ]	drwxr-xr-x
String	[ DIR ]	drwxr-xr-x
Sub	[ DIR ]	drwxr-xr-x
Sys	[ DIR ]	drwxr-xr-x
Task	[ DIR ]	drwxr-xr-x
Term	[ DIR ]	drwxr-xr-x
Test	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Tie	[ DIR ]	drwxr-xr-x
Time	[ DIR ]	drwxr-xr-x
Try	[ DIR ]	drwxr-xr-x
Type	[ DIR ]	drwxr-xr-x
Types	[ DIR ]	drwxr-xr-x
UNIVERSAL	[ DIR ]	drwxr-xr-x
URI	[ DIR ]	drwxr-xr-x
UUID	[ DIR ]	drwxr-xr-x
Unicode	[ DIR ]	drwxr-xr-x
User	[ DIR ]	drwxr-xr-x
WWW	[ DIR ]	drwxr-xr-x
Web	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
YAML	[ DIR ]	drwxr-xr-x
auto	[ DIR ]	drwxr-xr-x
lib	[ DIR ]	drwxr-xr-x
libwww	[ DIR ]	drwxr-xr-x
local	[ DIR ]	drwxr-xr-x
namespace	[ DIR ]	drwxr-xr-x
strictures	[ DIR ]	drwxr-xr-x
AppConfig.pm	31.71 KB	-rw-r--r--
BSON.pm	46.79 KB	-rw-r--r--
CGI.pm	122.81 KB	-rw-r--r--
CGI.pod	66.37 KB	-rw-r--r--
Cache.pm	14.33 KB	-rw-r--r--
Chart.pod	24.49 KB	-rw-r--r--
DebianLinux.pm	5.28 KB	-rw-r--r--
Dpkg.pm	5.72 KB	-rw-r--r--
Error.pm	29.45 KB	-rw-r--r--
Expect.pm	53.62 KB	-rw-r--r--
Expect.pod	42.73 KB	-rw-r--r--
Fh.pm	166 B	-rw-r--r--
Git.pm	46.44 KB	-rw-r--r--
GnuPG.pm	32.96 KB	-rw-r--r--
Heap.pm	3.8 KB	-rw-r--r--
Inline.pm	61.19 KB	-rw-r--r--
Inline.pod	40.84 KB	-rw-r--r--
JSON.pm	61.08 KB	-rw-r--r--
Jcode.pm	22.55 KB	-rw-r--r--
LWP.pm	21.18 KB	-rw-r--r--
MIDI.pm	15.15 KB	-rw-r--r--
MLDBM.pm	16.21 KB	-rw-r--r--
MailTools.pm	458 B	-rw-r--r--
MailTools.pod	2.24 KB	-rw-r--r--
MongoDB.pm	13.29 KB	-rw-r--r--
Moo.pm	33.55 KB	-rw-r--r--
NeedRestart.pm	5.88 KB	-rw-r--r--
POE.pm	25.84 KB	-rw-r--r--
PgCommon.pm	43 KB	-rw-r--r--
Plucene.pm	3.77 KB	-rw-r--r--
Specio.pm	14.83 KB	-rw-r--r--
TimeDate.pm	267 B	-rw-r--r--
URI.pm	34.13 KB	-rw-r--r--
User.pm	2.47 KB	-rw-r--r--
YAML.pm	3.12 KB	-rw-r--r--
YAML.pod	22.61 KB	-rw-r--r--
boolean.pm	2.13 KB	-rw-r--r--
boolean.pod	4.08 KB	-rw-r--r--
oo.pm	1.3 KB	-rw-r--r--
strictures.pm	14.44 KB	-rw-r--r--

Name

Size

Permission

Action

Algorithm

[ DIR ]

drwxr-xr-x

Amazon

[ DIR ]

drwxr-xr-x

Apache

[ DIR ]

drwxr-xr-x

App

[ DIR ]

drwxr-xr-x

AppConfig

[ DIR ]

drwxr-xr-x

Code Editor : NeedRestart.pm

# needrestart - Restart daemons after library updates.
#
# Authors:
#   Thomas Liske <thomas@fiasko-nw.net>
#
# Copyright Holder:
#   2013 - 2020 (C) Thomas Liske [http://fiasko-nw.net/~thomas/]
#
# License:
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this package; if not, write to the Free Software
#   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
#

package NeedRestart;

use strict;
use warnings;
use Module::Find;
use NeedRestart::Utils;
use NeedRestart::CONT;
use Sort::Naturally;

use constant {
    NEEDRESTART_PRIO_NOAUTO	=> 0,
    NEEDRESTART_PRIO_LOW	=> 1,
    NEEDRESTART_PRIO_MEDIUM	=> 10,
    NEEDRESTART_PRIO_HIGH	=> 100,
};

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT = qw(
    NEEDRESTART_PRIO_NOAUTO
    NEEDRESTART_PRIO_LOW
    NEEDRESTART_PRIO_MEDIUM
    NEEDRESTART_PRIO_HIGH

needrestart_ui
    needrestart_ui_list
    needrestart_interp_check
    needrestart_interp_source
    needrestart_cont_check
    needrestart_cont_get
    needrestart_cont_cmd
);

our @EXPORT_OK = qw(
    needrestart_ui_register
    needrestart_ui_init
    needrestart_interp_register
    needrestart_cont_register
);

our %EXPORT_TAGS = (
    ui => [qw(
	NEEDRESTART_PRIO_LOW
	NEEDRESTART_PRIO_MEDIUM
	NEEDRESTART_PRIO_HIGH

needrestart_ui_register
	needrestart_ui_init
    )],
    interp => [qw(
	needrestart_interp_register
    )],
    cont => [qw(
	needrestart_cont_register
    )],
);

our $VERSION = '3.5';
my $LOGPREF = '[Core]';

my %UIs;

sub needrestart_ui_register($$) {
    my $pkg = shift;
    my $prio = shift;

$UIs{$pkg} = $prio;
}

sub needrestart_ui_init($$) {
    my $verbosity = shift;
    my $prefui = shift;

# load preferred UI module
    if(defined($prefui)) {
	return if(eval "use $prefui; 1;");
    }

# autoload UI modules
    foreach my $module (findsubmod NeedRestart::UI) {
	unless(eval "use $module; 1;") {
	    warn "Error loading $module: $@\n" if($@ && ($verbosity > 1));
	}
    }
}

sub needrestart_ui {
    my $verbosity = shift;
    my $prefui = shift;

needrestart_ui_init($verbosity, $prefui) unless(%UIs);
    my ($ui) = sort { ncmp($UIs{$b}, $UIs{$a}) } grep {
	($UIs{$_} != NEEDRESTART_PRIO_NOAUTO) || ( defined($prefui) && ($prefui eq $_) )
    } keys %UIs;

return undef unless($ui);

print STDERR "$LOGPREF Using UI '$ui'...\n" if($verbosity > 1);

return $ui->new($verbosity);
}

sub needrestart_ui_list {
    my $verbosity = shift;
    my $prefui = shift;

needrestart_ui_init($verbosity, $prefui) unless(%UIs);
    return (sort { ncmp($UIs{$b}, $UIs{$a}) } keys %UIs);
}

my %Interps;
my %InterpCache;
my $idebug;

sub needrestart_interp_register($) {
    my $pkg = shift;

$Interps{$pkg} = new $pkg($idebug);
}

sub needrestart_interp_init($) {
    $idebug = shift;

# autoload Interp modules
    foreach my $module (findsubmod NeedRestart::Interp) {
	unless(eval "use $module; 1;") {
	    warn "Error loading $module: $@\n" if($@ && $idebug);
	}
    }
}

sub needrestart_interp_check($$$$$) {
    my $debug = shift;
    my $pid = shift;
    my $bin = shift;
    my $blacklist = shift;
    my $tolerance = shift;

needrestart_interp_init($debug) unless(%Interps);

foreach my $interp (values %Interps) {
	if($interp->isa($pid, $bin)) {
	    print STDERR "$LOGPREF #$pid is a ".(ref $interp)."\n" if($debug);

my $ps = nr_ptable_pid($pid);
	    my %files = $interp->files($pid, \%InterpCache);

foreach my $path (keys %files) {
		next unless(scalar grep { $path =~ /$_/; } @{$blacklist});
		print  STDERR "$LOGPREF blacklisted: $path\n" if($debug);
		delete($files{$path});
	    }

if(grep {!defined($_) || $_ > $ps->start + $tolerance} values %files) {
		if($debug) {
		    print STDERR "$LOGPREF #$pid uses obsolete script file(s):";
		    print STDERR join("\n$LOGPREF #$pid  ", '', map {(!defined($files{$_}) || $files{$_} > $ps->start ? $_ : ())} keys %files);
		    print STDERR "\n";
		}

return 1;
	    }
	}
    }

return 0;
}

sub needrestart_interp_source($$$) {
    my $debug = shift;
    my $pid = shift;
    my $bin = shift;

needrestart_interp_init($debug) unless(%Interps);

foreach my $interp (values %Interps) {
	if($interp->isa($pid, $bin)) {
	    print STDERR "$LOGPREF #$pid is a ".(ref $interp)."\n" if($debug);

my $src = $interp->source($pid);
	    print STDERR "$LOGPREF #$pid source is ".(defined($src) ? $src : 'UNKNOWN')."\n" if($debug);

return ($src) if(defined($src));;
	    return ();
	}
    }

return ();
}

my %CONT;
my $ndebug;

sub needrestart_cont_register($) {
    my $pkg = shift;

$CONT{$pkg} = new $pkg($ndebug);
}

sub needrestart_cont_init($) {
    $ndebug = shift;

# autoload CONT modules
    foreach my $module (findsubmod NeedRestart::CONT) {
	unless(eval "use $module; 1;") {
	    warn "Error loading $module: $@\n" if($@ && $ndebug);
	}
    }
}

sub needrestart_cont_check($$$;$) {
    my $debug = shift;
    my $pid = shift;
    my $bin = shift;
    my $norestart = shift || 0;

needrestart_cont_init($debug) unless(scalar keys %CONT);

foreach my $cont (values %CONT) {
	return 1 if($cont->check($pid, $bin, $norestart));
    }

return 0;
}

sub needrestart_cont_get($) {
    my $debug = shift;

return map {
	my $cont = $_;
	my $n = ref $cont;
	$n =~ s/^NeedRestart::CONT:://;

my %c = $cont->get;

map {
	    ("$n $_" => $c{$_});
	} sort keys %c;
    } sort { (ref $a) cmp (ref $b); } values %CONT;
}

${this.title}

Code Editor : NeedRestart.pm