s1037989

Maintain separate bash_histories and remember the last pwd for each tmux session/window/pane!

This is useful for setting up tmux project sessions with multiple windows and panes. Each time you create a new tmux session with the same name as a previous session, each windows' pane will maintain it's own separate bash_history and pwd!

This is very useful for long-running tmux sessions, especially when something happens to any of the shells. That very complex but useful log tailer that was started 6 months ago? It's the last command that was run ... in that pane!

Pay attention to the pwd and command history for each of the split-window panes in tmux!

s1037989

package Mojolicious::Plugin::Minion::Schedule;
use Mojo::Base 'Mojolicious::Plugin', -signatures;

use Algorithm::Cron;
use Minion::Job;
use Mojo::Date;
use Mojo::JSON qw(j);
use Mojo::Util qw(monkey_patch sha1_sum);

monkey_patch 'Minion::Job',

s1037989

# Need a separate process to block to show what happens when a waiting for a non-blocking op
# 12 workers that each handle only 1 concurrent connection so that each connection can immediately be fulfilled and start the countdown

$ perl -Mojo -MTime::HiRes=time,sleep -E 'a("/#n" => sub { my $time = time; my $n = $_->param("n"); sleep $n; $_->render(inline => "<title>$n : Sleep <%= \$n %> seconds</title>", n => time - $time) })->start' prefork -w 12 -c 1
Web application available at http://127.0.0.1:3000

---

$ perl promise.pl 1 http://localhost:3000/4 http://localhost:3000/3 http://localhost:3000/2 http://localhost:3000/5 http://localhost:3000/6 http://localhost:3000/7
Getting 6 URLs starting at 1677811334.05866

s1037989

$ mojo version
CORE
  Perl        (v5.34.0, linux)
  Mojolicious (9.30, Waffle)

OPTIONAL
  Cpanel::JSON::XS 4.09+   (n/a)
  EV 4.32+                 (n/a)
  IO::Socket::Socks 0.64+  (n/a)

s1037989

use Mojo::Base -strict, -signatures;

BEGIN { $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll' }

use Test::Mojo;

use Mojo::Server::Daemon;
use Mojo::URL;
use Mojolicious;
use Mojolicious::Lite;

s1037989

use Mojolicious::Lite -signatures;

app->ua->max_redirects(10);

# Just forward the response
any '/*whatever' => {whatever => ''} => sub ($c) {
  my $proxy_to  = Mojo::URL->new($c->req->headers->header('X-Proxy-To') || $ENV{PROXY_TO}) or return $c->reply->not_found;
  #my $proxy_for = Mojo::URL->new($c->req->headers->header('X-Proxy-For') || $ENV{PROXY_FOR}) or return $c->reply->not_found;
  my $req       = $c->req;
  my $method    = $req->method;

s1037989

bindir = /usr/bin
sharedir = /usr/share/my_app

all:
	cpanm -L local --installdeps .
	mkdir -p blib
	cp -a script blib
	cp -a lib blib
	cp -a local/bin blib
	cp -a local/lib/perl5/* blib/lib

s1037989

$ perl -Mojo -E '
    c(1,2,3)
      ->tap(sub{@$_ = (
        {properties => {release => ["QQ_2022.08.1_rc1"], commit => [1]}},
        {properties => {release => ["QQ_2022.08.1"]}},
        {properties => {release => ["QQ_2022.07.1"]}}
      )})
      ->map(sub{[
        ((grep { /^QQ_2022.08.1(_rc\d+)?$/ } @{$_->{properties}->{release}})[0]||undef),
        ((grep { $_ eq "1" } @{$_->{properties}->{commit}})[0]||undef)

s1037989

// https://developer.mozilla.org/en-US/docs/Web/HTTP/Proxy_servers_and_tunneling/Proxy_Auto-Configuration_PAC_file
// application/x-ns-proxy-autoconfig
// https://linuxconfig.net/manuals/howto/squid-and-ldap-authentication-from-active-directory.html
function FindProxyForURL(url, host) {
  if (shExpMatch(host, "xyz*") && shExpMatch(url, "*:8123*")) {
    return "PROXY w3proxy.mozilla.org:8080";
  } else {
    return "DIRECT";
  }
}

s1037989

function gen_keys {
  [ -z "$1" ] && { echo "Usage: $FUNCNAME passphrase"; return 1; }
  local passphrase="$1" privatekey=$(mktemp) publickey=$(mktemp)
  openssl genrsa -aes128 -passout pass:"$passphrase" -out $privatekey 2048 >/dev/null
  openssl rsa -in $privatekey -passin pass:"$passphrase" -pubout -out $publickey >/dev/null
  printf "Private Key: %s\nPublic Key: %s\n" $privatekey $publickey
}

function sign_file {
  [ -z "$2" ] && { echo "Usage: $FUNCNAME file privatekey publickey"; return 1; }