diff options
Diffstat (limited to 'script')
| -rw-r--r-- | script/mwrap-perl | 97 | ||||
| -rw-r--r-- | script/mwrap-rproxy | 115 |
2 files changed, 0 insertions, 212 deletions
diff --git a/script/mwrap-perl b/script/mwrap-perl deleted file mode 100644 index 82629b4..0000000 --- a/script/mwrap-perl +++ /dev/null @@ -1,97 +0,0 @@ -#!/usr/bin/perl -w -# Copyright (C) mwrap hackers <mwrap-perl@80x24.org> -# License: GPL-3.0+ <https://www.gnu.org/licenses/gpl-3.0.txt> -use v5.12; -use Devel::Mwrap; -my ($so) = grep(m!/Mwrap\.so\z!, @DynaLoader::dl_shared_objects); -defined($so) or die 'Mwrap.so not loaded'; -my $cur = $ENV{LD_PRELOAD}; -if (!@ARGV || ($ARGV[0] // '') =~ /\A(?:-h|--help)\z/) { - require Pod::Usage; - Pod::Usage::pod2usage(@ARGV ? 0 : 1); -} -if (defined $cur) { - my @cur = split(/[: \t]+/, $cur); - if (!grep(/\A\Q$so\E\z/, @cur)) { - # drop old redundant versions - my @keep = grep(!m!/Mwrap\.so$!, @cur); - $ENV{LD_PRELOAD} = join(':', $so, @keep); - } -} else { - $ENV{LD_PRELOAD} = $so; -} -exec @ARGV; -__END__ -=head1 NAME - -mwrap-perl - run any command under mwrap - -=head1 SYNOPSIS - - # to trace a long-running program and access it via $DIRECTORY/$PID.sock: - MWRAP=socket_dir:$DIRECTORY mwrap-perl COMMAND - - # to trace a short-lived command and dump its output to a log: - MWRAP=dump_path:$FILENAME mwrap-perl COMMAND - -=head1 DESCRIPTION - -mwrap-perl is a command-line to automatically add Mwrap.so as an -LD_PRELOAD for any command. It will resolve malloc-family calls -to a Perl file and line number, and it can also provide a backtrace -of native (C/C++) functions for non-Perl programs. - -=head1 ENVIRONMENT - -C<MWRAP> is the only environment variable read. It contains multiple -options delimited by C<,> with names and values delimited by C<:> - -=item socket_dir:$DIRECTORY - -This launches an embedded HTTP server in each process and binds it -to C<$DIRECTORY/$PID.sock>. C<curl --unix-socket $DIRECTORY/$PID.sock> -or L<mwrap-rproxy(1p)> may be used to access various endpoints in -the HTTP server. - -=item: bt:$DEPTH - -The backtrace depth for L<backtrace(3)> in addition to the Perl -file and line number where C<$DEPTH> is a non-negative number. - -The maximum allowed value is 32, though values of 5 or less are -typically useful. Increasing this to even 2 or 3 can significantly -increase the amount of memory mwrap (and liburcu) itself uses. - -This is only useful in conjunction with C<socket_dir> - -Default: 0 - -=item dump_path:$FILENAME - -Dumps the output - - total_bytes call_count location - -In the future, dumping to a self-describing CSV will be supported - -=back - -=head1 CONTACT - -Feedback welcome via plain-text mail to L<mailto:mwrap-perl@80x24.org> - -Mail archives are hosted at L<https://80x24.org/mwrap-perl/> - -=head1 COPYRIGHT - -Copyright all contributors L<mailto:mwrap-perl@80x24.org> - -License: GPL-3.0+ L<https://www.gnu.org/licenses/gpl-3.0.txt> - -Source code is at L<https://80x24.org/mwrap-perl.git/> - -=head1 SEE ALSO - -L<mwrap-rproxy(1)>, L<Devel::Mwrap(3pm)> - -=cut diff --git a/script/mwrap-rproxy b/script/mwrap-rproxy deleted file mode 100644 index 2498bc3..0000000 --- a/script/mwrap-rproxy +++ /dev/null @@ -1,115 +0,0 @@ -#!perl -w -# Copyright (C) mwrap hackers <mwrap-perl@80x24.org> -# License: GPL-3.0+ <https://www.gnu.org/licenses/gpl-3.0.txt> -# thin wrapper for Devel::Mwrap::Rproxy -use v5.12; # strict -eval { require Plack::Runner } or die "Plack not installed: $@\n"; -use Getopt::Long qw(:config no_ignore_case no_auto_abbrev pass_through); -my $usage = "$0 --socket-dir=/path/to/socket-dir [PLACKUP_OPTIONS]\n"; -my %opt = (deflate => 1); -GetOptions(\%opt, 'socket-dir=s', 'deflate!', 'help|h') or do { - require Pod::Usage; Pod::Usage::pod2usage(1); -}; -if ($opt{help}) { require Pod::Usage; Pod::Usage::pod2usage(0) } -my $socket_dir = delete $opt{'socket-dir'}; -$socket_dir //= ($ENV{MWRAP} // '') =~ m!\bsocket_dir:([^,]+)! ? $1 : undef; -$socket_dir // die $usage; -require Devel::Mwrap::Rproxy; -my $rproxy = Devel::Mwrap::Rproxy->new($socket_dir); -my $app = sub { $rproxy->call(@_) }; -my $runner = Plack::Runner->new; -$runner->parse_options(@ARGV); -if (($ENV{LISTEN_PID} // 0) == $$) { - my $fds = $ENV{LISTEN_FDS} // ''; - die "only one LISTEN_FDS=1 supported (got `$fds')\n" if $fds ne '1'; - if (open(my $s, '<&=', 3)) { - my $prev_was_blocking = $s->blocking(1); - warn <<"" unless $prev_was_blocking; -Inherited socket (fd=3) is non-blocking, making it blocking. - - bless $s, 'IO::Socket::INET'; - $runner->set_options(listen_sock => $s); - } -} -if ($opt{deflate} && eval { require Plack::Middleware::Deflater } and !$@) { - $app = Plack::Middleware::Deflater->wrap($app); -} - -# ensure mwrap_dtor() runs if running under mwrap-perl, ourselves -sub sigexit { exit 0 } -$SIG{$_} = \&sigexit for (qw(INT TERM)); - -$runner->run($app); -__END__ -=head1 NAME - -mwrap-rproxy - reverse proxy for embedded per-process mwrap httpd - -=head1 SYNOPSIS - - # start the long-running COMMAND you wish to trace: - MWRAP=socket_dir:$DIRECTORY mwrap-perl COMMAND - - # in a different terminal, point mwrap-proxy to the mwrap-perl socket_dir - mwrap-rproxy --socket-dir=$DIRECTORY -l 127.0.0.1:8080 - - # open http://127.0.0.1:8080/ in your favorite web browser: - w3m http://127.0.0.1:8080/ - -=head1 DESCRIPTION - -B<mwrap-rproxy> is a PSGI reverse proxy to provide access -via TCP to the native, Unix-socket-only httpd embedded inside -mwrap core. It provides a listing of process IDs of each process -traced via mwrap. - -B<mwrap-rproxy> does not have a hard dependency on mwrap-perl itself, -it exists to provide a convenient interface to programs being -traced by mwrap-perl. - -=head1 OPTIONS - -=over 4 - -=item --socket-dir=DIRECTORY - -If unset, it will attempt to parse C<socket_dir:> from the C<MWRAP> -environment (see L<mwrap-perl(1p)>). - -=item --no-deflate - -L<Plack::Middleware::Deflater(3pm)> is loaded by default if available. -Using C<--no-deflate> will save CPU cycles at the expense of bandwidth. - -=back - -Additionally, all options in L<plackup(1p)> are supported. Notably, -C<-l>/C<--listen> and C<--path=/prefix> may be useful. - -=head1 ENVIRONMENT - -mwrap-rproxy supports systemd (and compatible) socket activation via -C<LISTEN_PID> and C<LISTEN_FDS> variables. See L<systemd.socket(5)> -and L<sd_listen_fds(3)>. - -C<PLACK_ENV> is also supported as described by L<plackup(1p)> - -=head1 CONTACT - -Feedback welcome via plain-text mail to L<mailto:mwrap-perl@80x24.org> - -Mail archives are hosted at L<https://80x24.org/mwrap-perl/> - -=head1 COPYRIGHT - -Copyright all contributors L<mailto:mwrap-perl@80x24.org> - -License: GPL-3.0+ L<https://www.gnu.org/licenses/gpl-3.0.txt> - -Source code is at L<https://80x24.org/mwrap-perl.git/> - -=head1 SEE ALSO - -L<mwrap-perl(1p)> - -=cut |