view release on metacpan or search on metacpan
lib/App/CLI/Plugin/Proc/PID/File.pm view on Meta::CPAN
*Proc::PID::File::path = \&_path;
if ($Proc::PID::File::VERSION < $PROC_PID_FILE_RECOMENDED_VERSION) {
{
no warnings "redefine";
*Proc::PID::File::alive = \&_alive;
*Proc::PID::File::read = \&_read;
*Proc::PID::File::touch = \&_touch;
}
}
lib/App/CLI/Plugin/Proc/PID/File.pm view on Meta::CPAN
my $self = shift;
return $self->{path};
}
sub _alive {
my $self = shift;
$self->debug("alive(): for A::C::P::Proc::PID::File compat method");
my $pid = $self->read;
if (defined $pid) {
$self->debug("alive(): $pid");
} else {
$self->debug("alive(): not living my process");
return 0;
}
if ($pid != $$ && kill(0, $pid)) {
return $self->verify($pid) ? 1 : 0;
lib/App/CLI/Plugin/Proc/PID/File.pm view on Meta::CPAN
sub prerun {
my($self, @argv) = @_;
if ($self->pf->alive) {
my $pid = $self->pf->read;
die "already " . $self->argv0 . "[$pid] is running";
}
$self->pf->touch;
$self->maybe::next::method(@argv);
lib/App/CLI/Plugin/Proc/PID/File.pm view on Meta::CPAN
die "signal $signal recevied...";
}, $set, SA_RESTART);
my $old_act = POSIX::SigAction->new;
sigaction(SIGTERM, $act, $old_act);
sigaction(SIGINT, $act, $old_act);
if ($self->pf->alive) {
my $pid = $self->pf->read;
kill SIGTERM, $pid;
say "old process " . $self->argv0 . "[$pid] is killed";
}
$self->pf->touch;
view release on metacpan or search on metacpan
t/MyTestUA.pm view on Meta::CPAN
Server: nginx/1.10.3 (Ubuntu)
Date: Sun, 13 Jan 2019 13:01:45 GMT
Content-Type: text/html
Content-Length: 4569
Last-Modified: Sun, 31 Aug 2014 00:46:55 GMT
Connection: keep-alive
Vary: Accept-Encoding
ETag: "5402707f-558"
<!DOCTYPE html
t/MyTestUA.pm view on Meta::CPAN
Server: nginx/1.10.3 (Ubuntu)
Date: Sun, 13 Jan 2019 13:01:45 GMT
Content-Type: text/html
Content-Length: 3861
Last-Modified: Sun, 31 Aug 2014 00:46:55 GMT
Connection: keep-alive
Vary: Accept-Encoding
ETag: "5402707f-558"
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
t/MyTestUA.pm view on Meta::CPAN
HTTP/1.1 404 Not Found
Server: nginx/1.10.3 (Ubuntu)
Date: Wed, 19 Dec 2018 18:54:51 GMT
Content-Type: text/html
Transfer-Encoding: chunked
Connection: keep-alive
Vary: Accept-Encoding
ETag: W/"571b65cf-943"
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
t/MyTestUA.pm view on Meta::CPAN
Server: nginx/1.10.3 (Ubuntu)
Date: Sun, 13 Jan 2019 13:01:45 GMT
Content-Type: text/html
Content-Length: 3861
Last-Modified: Sun, 31 Aug 2014 00:46:55 GMT
Connection: keep-alive
Vary: Accept-Encoding
ETag: "5402707f-558"
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
t/MyTestUA.pm view on Meta::CPAN
Server: nginx/1.10.3 (Ubuntu)
Date: Sun, 13 Jan 2019 13:01:45 GMT
Content-Type: text/html
Content-Length: 3859
Last-Modified: Sun, 31 Aug 2014 00:46:55 GMT
Connection: keep-alive
Vary: Accept-Encoding
ETag: "5402707f-558"
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
t/MyTestUA.pm view on Meta::CPAN
HTTP/1.1 404 Not Found
Server: nginx/1.10.3 (Ubuntu)
Date: Wed, 19 Dec 2018 18:54:51 GMT
Content-Type: text/html
Transfer-Encoding: chunked
Connection: keep-alive
Vary: Accept-Encoding
ETag: W/"571b65cf-943"
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
view release on metacpan or search on metacpan
script/camel_pki_server.pl view on Meta::CPAN
my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my $port = 3000;
my $keepalive = 0;
my $restart = 0;
my $restart_delay = 1;
my $restart_regex = '\.yml$|\.yaml$|\.pm$';
my $restart_directory = undef;
script/camel_pki_server.pl view on Meta::CPAN
'debug|d' => \$debug,
'fork' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex,
'restartdirectory=s' => \$restart_directory,
);
script/camel_pki_server.pl view on Meta::CPAN
require App::CamelPKI;
App::CamelPKI->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/,
restart_directory => $restart_directory,
} );
script/camel_pki_server.pl view on Meta::CPAN
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
-k -keepalive enable keep-alive connections
-r -restart restart when files get modified
(defaults to false)
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
view release on metacpan or search on metacpan
t/initializr/process_zip.t view on Meta::CPAN
## setup index
note( "mangle index.html into wrapper.tt2" );
lives_ok {App::CatalystStarter::Bloated::Initializr::_setup_index()}
"index process complets alive";
## check that index.html doesn't exist
## (should be renamed to wrapper.tt2 by now)
is( search_one( qr/index\.html$/, 1), undef, "index.html not in archive" );
view release on metacpan or search on metacpan
lib/App/Chart/Download.pm view on Meta::CPAN
if ($etag) { $req->header ('If-None-Match' => $etag); }
if ($lastmod) { $req->header ('If-Modified-Since' => $lastmod); }
my $resp = $ua->request ($req);
# internal message from LWP when a keep-alive has missed the boat
if ($resp->status_line =~ /500 Server closed connection/i) {
substatus (__('retry'));
$resp = $ua->request ($req);
}
view release on metacpan or search on metacpan
pod e say
# Perl Signal Handling
# Another interesting signal is signal number 0.
# This doesn’t actually affect the target process,
# but instead checks that it’s alive and hasn’t
# changed its UIDs. That is, it checks whether
# it’s legal to send a signal, without actually
# sending one.
unless (kill 0 => $kid_pid) {
warn "something wicked happened to $kid_pid";
view release on metacpan or search on metacpan
script/app_cinema_server.pl view on Meta::CPAN
-f --fork handle each request in a new process
(defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)
-k --keepalive enable keep-alive connections
-r --restart restart when files get modified
(defaults to false)
-rd --restart_delay delay between file checks
(ignored if you have Linux::Inotify2 installed)
-rr --restart_regex regex match files that trigger
view release on metacpan or search on metacpan
...
=item stop
will find the daemon's PID in the pidfile and send it a SIGTERM signal. It
will verify $App::Daemon::kill_retries times if the process is still alive,
with 1-second sleeps in between.
To have App::Daemon send a different signal than SIGTERM (e.g., SIGINT), set
use POSIX;
view release on metacpan or search on metacpan
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Loading configuration files from
/usr/lib/perl5/vendor_perl/5.18.2/auto/share/dist/App-Dochazka-CLI
Cookie jar: /root/.cookies.txt
URI base http://localhost:5000 set from site configuration
Authenticating to server at http://localhost:5000 as user root
Server is alive
Dochazka(2016-01-12) demo PASSERBY>
Exit the CLI by issuing the C<exit> command:
Dochazka(2016-01-12) demo PASSERBY> exit
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Cookie jar: /root/.cookies.txt
URI base http://localhost:5000 set from site configuration
Username: root
Authenticating to server at http://localhost:5000 as user root
Password:
Server is alive
Dochazka(2016-01-12) root ADMIN>
=head2 List employees
A list of all employees in the database can be obtained using the C<employee
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
Now you can log in with credentials C<george/george>:
$ dochazka-cli -u george -p george
...
Authenticating to server at http://localhost:5000 as user george
Server is alive
Dochazka(2016-01-27) george PASSERBY>
lib/App/Dochazka/CLI/Testers.pm view on Meta::CPAN
This just demonstrates that the test employee can log in.
$ dochazka-cli -u george -p george
...
Authenticating to server at http://localhost:5000 as user george
Server is alive
Dochazka(2016-01-27) george PASSERBY>
=head2 Concepts (Dochazka prompt, employee priv levels)
view release on metacpan or search on metacpan
LDAP: implement a "GET ldap/info" resource
This resource would return:
- LDAP server: string (e.g. pan.suse.de)
- alive: boolean value
Would need to implement a "ping" routine in LDAP.pm
Adapt LDAP tests to skip if LDAP is enabled but server is not reachable.
view release on metacpan or search on metacpan
lib/App/DrivePlayer/Player.pm view on Meta::CPAN
sub _ensure_mpv {
my ($self) = @_;
if ($self->_mpv_pid && kill(0, $self->_mpv_pid)) {
return; # still alive
}
$self->_close_socket();
my (undef, $socket_path) = tempfile("mpv-ipc-XXXXXX", TMPDIR => 1, OPEN => 0);
view release on metacpan or search on metacpan
lib/App/DubiousHTTP/TestServer.pm view on Meta::CPAN
sub _mustclose {
my $hdr = shift;
my $close;
my $type = $hdr =~m{^[A-Z]+ /} ? 'request':'response';
while ($hdr =~m{^Connection:[ \t]*(?:(close)|keep-alive)}mig) {
$close = $1 ? 1: ($close||-1);
}
if ($close) {
$close = 0 if $close<0;
$DEBUG && _debug("set close=$close because of connection header in $type");
view release on metacpan or search on metacpan
lib/App/ElasticSearch/Utilities/Connection.pm view on Meta::CPAN
# Construct the UA Object
## no critic
my $local_version = eval '$VERSION' || '999.9';
## use critic
my $ua = LWP::UserAgent->new(
keep_alive => 3,
agent => sprintf("%s/%s (Perl %s)", __PACKAGE__, $local_version, $^V),
protocols_allowed => [qw(http https)],
timeout => $self->timeout,
ssl_opts => $self->ssl_opts,
);
view release on metacpan or search on metacpan
}
elsif ($letter eq "I") {
$a->{req_bytes} = $value;
}
elsif ($letter eq "k") {
$a->{keepalives} = $value;
}
elsif ($letter eq "l") {
$a->{ident} = $value;
}
elsif ($letter eq "L") {
}
sub parse_access_line_different {
my ($line) = @_;
# For lines like:
# unique_id:"Y0gPiJCuUIKvl11H6djHxgAAAUM" remote_host:"184.94.203.3" client_IP:"184.94.203.3" X-Real-IP:"92.205.104.221" ident:"-" user:"-" time:"[13/Oct/2022:08:15:52 -0500]" req:"GET /foo.cgi?asdf=436 HTTP/1.1"...
my $a = {};
my %key_trans = (
"time" => "datestr",
"client_ip" => "ip",
"ua" => "user_agent",
view release on metacpan or search on metacpan
share/status/app/lib/bootstrap/jquery.js view on Meta::CPAN
return "script";
}
});
var xhrCallbacks, xhrSupported,
xhrId = 0,
// #5280: Internet Explorer will keep connections alive if we don't abort on unload
xhrOnUnloadAbort = window.ActiveXObject && function() {
// Abort all pending requests
var key;
for ( key in xhrCallbacks ) {
xhrCallbacks[ key ]( undefined, true );
view release on metacpan or search on metacpan
lib/App/Framework/GetStarted.pod view on Meta::CPAN
The configuration file contents, at simplest, are just variable=value pairs with optional descriptive comments. For example:
# Server port number
port = 32023
# stay alive tick interval
tick = 5
# log
logfile = /tmp/ate_snmp.log
view release on metacpan or search on metacpan
bin/geoCancerPrognosticDatasetsRetriever view on Meta::CPAN
sub prognostic_signature_finder {
my $soft_file = $_[0];
my %hash_signature = ();
my $soft_line = "";
my $regex_tail = '(:|=)\s*(alive.*|no\sdeath|dea(d|th.*)|deceased|NED|DOD|DOC|0\s|1\s|no|yes|.*patient|died.*|alive|surviv(al|ed)|living|long|short|Y|N|NED|DOD|AWD|Exitus)';
my $regex_keyword_type_A = '(.*stat?us.*|.*(dea(d|th)|.*alive).*|.*\srecur\s.*|.*Die.*)' . $regex_tail;
my $regex_keyword_type_B = '(dss.?event\s?\(.+\)|dfs.*\w+|drfs.*|e\.dmfs.*|e\.rfs.*|e?\.?os.*)' . $regex_tail;
my $regex_keyword_type_C = '((Overall)?\s?survival.*|(overall)?.?event.*|outcome.*|prognosis.*|comort.*|evolution.*)' . $regex_tail;
my $regex_keyword_type_Ca = '(Overall)?\s?survival\s.*(:|=)\s*(\d*)';
my $outcome_1 = "Prognostic Signature filter: <Prognostic signature found>\n";
my $outcome_2 = "Prognostic Signature filter: <No data found>\n";
view release on metacpan or search on metacpan
lib/App/Greple/wordle/NYT.pm view on Meta::CPAN
ajuga ajupa ajwan akara akees akela akene aking akita akkas akker akoia akoja
akoya aksed akses alaap alack alala alamo aland alane alang alans alant alapa
alaps alarm alary alata alate alays albas albee albid album alcea alces alcid
alcos aldea alder aldol aleak aleck alecs aleem alefs aleft aleph alert alews
aleye alfas algae algal algas algid algin algor algos algum alias alibi alick
alien alifs align alike alims aline alios alist alive aliya alkie alkin alkos
alkyd alkyl allan allay allee allel allen aller alley allin allis allod allot
allow alloy allus allyl almah almas almeh almes almud almug alods aloed aloes
aloft aloha aloin alone along aloof aloos alose aloud alowe alpha altar alter
altho altos alula alums alumy alure alurk alvar alway amahs amain amari amaro
amass amate amaut amaze amban amber ambit amble ambos ambry ameba ameer amend
lib/App/Greple/wordle/NYT.pm view on Meta::CPAN
candy piano pixel queen throw guide solid tawny scope sushi resin taken genre
adapt worst young woman sleep sharp shift chain house these spent would topic
globe bacon funny table small built touch slope grace evoke phone daisy learn
child three salty mural aging twirl scant lunge cable stony final liner threw
brief route heard doing lunch blond court stole thing large north tweak still
relic block aloof snake ember leggy expel bulky alive cleft micro verge repel
which after place stiff fried never pasta scram talon ascot stash psalm ridge
price match build heavy apart piper smith often sense devil image forty urban
state flame hunch teary clone early cheer grasp pesky heave local since erupt
toxin snort spelt abide lingo shade decay risen towel sally mayor stung speak
realm force taboo frond serum plait climb wrist finch voila breed merge broth
view release on metacpan or search on metacpan
lib/App/HTTP_Proxy_IMP/Relay.pm view on Meta::CPAN
#debug("check timeouts for %d conn",+@relays);
my $now = AnyEvent->now;
RELAY: for my $r (@relays) {
# timeout depends on the state of the relay and child
# if there are active requests set it to 60, if not (e.g.
# idle keep-alive connections) to 30. If this is a forked
# child with no listener which should close after all
# requests are done close idle keep-alive connections faster,
# e.g. set timeout to 1
my $idle = ! $r->{conn}->open_requests;
my $timeout =
! $idle ? 60 :
$exit_if_no_relays ? 1 :
view release on metacpan or search on metacpan
script/histhub_server.pl view on Meta::CPAN
my $debug = 0;
my $fork = 0;
my $help = 0;
my $host = undef;
my $port = $ENV{HISTHUB_PORT} || $ENV{CATALYST_PORT} || 3000;
my $keepalive = 0;
my $restart = $ENV{HISTHUB_RELOAD} || $ENV{CATALYST_RELOAD} || 0;
my $restart_delay = 1;
my $restart_regex = '(?:/|^)(?!\.#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$';
my $restart_directory = undef;
my $follow_symlinks = 0;
script/histhub_server.pl view on Meta::CPAN
'debug|d' => \$debug,
'fork' => \$fork,
'help|?' => \$help,
'host=s' => \$host,
'port=s' => \$port,
'keepalive|k' => \$keepalive,
'restart|r' => \$restart,
'restartdelay|rd=s' => \$restart_delay,
'restartregex|rr=s' => \$restart_regex,
'restartdirectory=s@' => \$restart_directory,
'followsymlinks' => \$follow_symlinks,
script/histhub_server.pl view on Meta::CPAN
require App::HistHub::Web;
App::HistHub::Web->run( $port, $host, {
argv => \@argv,
'fork' => $fork,
keepalive => $keepalive,
restart => $restart,
restart_delay => $restart_delay,
restart_regex => qr/$restart_regex/,
restart_directory => $restart_directory,
follow_symlinks => $follow_symlinks,
script/histhub_server.pl view on Meta::CPAN
-f -fork handle each request in a new process
(defaults to false)
-? -help display this help and exits
-host host (defaults to all)
-p -port port (defaults to 3000)
-k -keepalive enable keep-alive connections
-r -restart restart when files get modified
(defaults to false)
-rd -restartdelay delay between file checks
-rr -restartregex regex match files that trigger
a restart when modified
view release on metacpan or search on metacpan
t/in/objects.cache view on Meta::CPAN
timeperiod_name never
alias Never
}
define command {
command_name check-fast-alive
command_line /usr/lib/nagios/plugins/check_fping -H '$HOSTADDRESS$'
}
define command {
command_name check-host-alive
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1
}
define command {
command_name check-host-alive_4
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1 -4
}
define command {
command_name check-nfs
command_line /usr/lib/nagios/plugins/check_rpc -H '$HOSTADDRESS$' -C nfs -c2,3
}
define command {
command_name check-printer-alive
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1
}
define command {
command_name check-printer-alive_4
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1 -4
}
define command {
command_name check-router-alive
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1
}
define command {
command_name check-router-alive_4
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1 -4
}
define command {
command_name check-rpc
command_line /usr/lib/nagios/plugins/check_rpc -H '$HOSTADDRESS$' -C '$ARG1$'
}
define command {
command_name check-switch-alive
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1
}
define command {
command_name check-switch-alive_4
command_line /usr/lib/nagios/plugins/check_ping -H '$HOSTADDRESS$' -w 5000,100% -c 5000,100% -p 1 -4
}
define command {
command_name check_all_disks
t/in/objects.cache view on Meta::CPAN
define host {
host_name alpha
alias fritzbox
address 192.168.0.1
check_command check-host-alive
contact_groups admins
notification_period 24x7
initial_state o
check_interval 5.000000
retry_interval 1.000000
t/in/objects.cache view on Meta::CPAN
define host {
host_name aneurysm
alias aneurysm
address 192.168.0.14
check_command check-host-alive
contact_groups admins
notification_period 24x7
initial_state o
check_interval 5.000000
retry_interval 1.000000
t/in/objects.cache view on Meta::CPAN
define host {
host_name steel-vpn
alias steel-vpn
address 10.200.200.2
parents alpha
check_command check-host-alive
contact_groups admins
notification_period 24x7
initial_state o
check_interval 5.000000
retry_interval 1.000000
t/in/objects.cache view on Meta::CPAN
define host {
host_name steel.derf0.net
alias steel
address 195.191.196.84
parents alpha
check_command check-host-alive
contact_groups admins
notification_period 24x7
initial_state o
check_interval 5.000000
retry_interval 1.000000
view release on metacpan or search on metacpan
lib/App/KGB/Client/RelayMsg.pm view on Meta::CPAN
use App::KGB::Client::RelayMsg;
my $client = App::KGB::Client::RelayMsg->new(
# common App::KGB::Client parameters
repo_id => 'my-repo',
...
relay_message => "It's alive!",
);
$client->process;
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/MHFS/HTTP/Server/Client.pm view on Meta::CPAN
}
# add a connection timeout timer
sub AddClientCloseTimer {
my ($self, $timelength, $id, $is_requesttimeout) = @_;
weaken($self); #don't allow this timer to keep the client object alive
my $server = $self->{'server'};
say "CCT | add timer: $id";
$server->{'evp'}->add_timer($timelength, 0, sub {
if(! defined $self) {
say "CCT | $id self undef";
lib/MHFS/HTTP/Server/Client.pm view on Meta::CPAN
} while(length($dataitem->{'buf'}));
$client->{'request'}{'response'} = undef;
_TSRReturnPrint($sentthiscall);
say "DONE Sending Data";
return 'RequestDone'; # not undef because keep-alive
}
sub TrySendItem {
my ($csock, $dataref) = @_;
my $sret = send($csock, $$dataref, 0);
view release on metacpan or search on metacpan
lib/App/MadEye/Plugin/Agent/Qudo/ExceptionLog.pm view on Meta::CPAN
my $exceptions = $qudo->exception_list;
if (scalar(@{$exceptions->{$dsn}}) >= 1) {
return 'qudo has exceptions...';
} else {
return; # alive.
}
}
1;
__END__
view release on metacpan or search on metacpan
lib/App/Milter/Limit/PidFile.pm view on Meta::CPAN
$Pid = Proc::PID::File->new;
$Pid->file(dir => $$conf{state_dir});
if ($Pid->alive) {
$Pid = undef;
return 1;
}
$Pid->touch;
view release on metacpan or search on metacpan
script/mimosa_server.pl view on Meta::CPAN
-f --fork handle each request in a new process
(defaults to false)
-? --help display this help and exits
-h --host host (defaults to all)
-p --port port (defaults to 3000)
-k --keepalive enable keep-alive connections
-r --restart restart when files get modified
(defaults to false)
-rd --restart_delay delay between file checks
(ignored if you have Linux::Inotify2 installed)
-rr --restart_regex regex match files that trigger
view release on metacpan or search on metacpan
t/unit/queue_job/fetch_and_download_inventory.t view on Meta::CPAN
ok !defined $j->{inventory_type};
}
}
# that pretty complex test was invented when old FetchAndDownloadInventory implementation was alive
# (example in revision 87eff2b3290008448b2a2eb352964666a91a6ac8 )
# it's possible that some tested cases look now unneede
for my $before_archives (0, 1, 2, 3) {
for my $after_archives (0, 1, 2, 3) {
view release on metacpan or search on metacpan
carton: 1
ssh-port-forward:
dir: /tmp
env:
- USER: me
## Using TERMINAL to let ssh stay alive in the background
- TERMINAL: 1
timeout: 5
run: ssh -L 3306:localhost:3306 db-server
groups:
database:
view release on metacpan or search on metacpan
lib/ChordPro/res/examples/mollymalone.cho view on Meta::CPAN
She died of the fever,
and nothing could save her
And that was the end of sweet Molly Malone
But her ghost wheels a barrow
through streets broad and narrow
Crying “Cockles and Mussels, alive alive-oâ€
{end_of_textblock}
view release on metacpan or search on metacpan
public/javascripts/ace/mode-nginx.js view on Meta::CPAN
"use strict";
var oop = require("../lib/oop");
var TextHighlightRules = require("./text_highlight_rules").TextHighlightRules;
var NginxHighlightRules = function () {
var keywords = "include|index|absolute_redirect|aio|output_buffers|directio|sendfile|aio_write|alias|root|chunked_transfer_encoding|client_body_buffer_size|client_body_in_file_only|client_body_in_single_buffer|client_body_temp_path|client_body_ti...
this.$rules = {
"start": [{
token: ["storage.type", "text", "string.regexp", "paren.lparen"],
regex: "\\b(location)(\\s+)([\\^]?~[\\*]?\\s+.*?)({)"