dynax60
dynax60
/ gist:560251
Created
September 1, 2010 05:06
Linux startup script for Mojo daemon_prefork app
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/bash | |
| # | |
| # Init file for Pinger server daemon | |
| # | |
| # chkconfig: 2345 55 25 | |
| # description: Pinger server daemon | |
| # | |
| # processname: pinger | |
| # pidfile: /var/run/pinger.pid |
dynax60
/ jsonp-service.pl
Created
September 3, 2010 08:01
An example of JSONP service (cross-domain) on Mojolicious..
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use FindBin; | |
| use lib "$FindBin::Bin/mojo/lib"; | |
| use Mojolicious::Lite; |
dynax60
/ jsonp.html
Created
September 3, 2010 08:10
An example of JSONP usage (cross-domain) with JQuery.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <html> | |
| <head> | |
| <script src="http://code.jquery.com/jquery-latest.min.js"></script> | |
| </head> | |
| <body> | |
| <SCRIPT> | |
| $(function() { | |
| $('#clickme').click(function() { | |
| $.getJSON('http://domain.tld/test/?foo=bar&callback=?', |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| $ perl -MSocket -le 'print unpack("N", inet_aton(shift))' 127.0.0.1 | |
| 2130706433 | |
| $ perl -MSocket -le 'print inet_ntoa(pack("N", shift))' 2130706433 | |
| 127.0.0.1 |
dynax60
/ check_ping.patch
Created
December 3, 2010 14:08
Nagios check_ping plugin: Disable warning message "System call sent warnings to stderr"
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- check_ping.c~ 2008-12-01 00:23:18.000000000 +0300 | |
| +++ check_ping.c 2010-12-03 16:40:05.000000000 +0300 | |
| @@ -487,7 +487,7 @@ | |
| if ((result=error_scan(buf, addr)) == STATE_OK) { | |
| result = STATE_WARNING; | |
| if (warn_text == NULL) { | |
| - warn_text = strdup(_("System call sent warnings to stderr ")); | |
| + /* warn_text = strdup(_("System call sent warnings to stderr ")); */ | |
| } else { | |
| asprintf(&warn_text, "%s %s", warn_text, _("System call sent warnings to stderr ")); |
dynax60
/ ping_api.rc
Created
December 17, 2010 09:37
Example of FreeBSD rc-file for Mojolicious Hypnotoad Server
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/bin/sh | |
| # PROVIDE: ping_api | |
| # REQUIRE: NETWORKING | |
| # KEYWORD: shutdown | |
| . /etc/rc.subr | |
| name="ping_api" | |
| rcvar=`set_rcvar` |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| my $mailhome = '/var/spool/postfix/virtual'; | |
| my $domain = shift or die; | |
| my $username = shift or die; | |
| die "Invalid domain: $domain\n" unless $domain =~ m/^[\w\.\-]+$/; |
dynax60
/ delete.php.patch
Created
January 24, 2011 05:17
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| --- delete.orig.php 2011-01-21 12:27:12.000000000 +0300 | |
| +++ delete.php 2011-01-21 12:28:38.000000000 +0300 | |
| @@ -160,6 +160,8 @@ | |
| } | |
| } | |
| + system("/usr/local/bin/sudo /usr/local/sbin/maildirdel.pl $fDomain $fDelete"); | |
| + | |
| if ($error != 1) | |
| { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| # Automate Spamcop Submission | |
| use FindBin; | |
| use lib "$FindBin::Bin/mojo/lib"; | |
| use Mojo::Client; | |
| $| = 1; | |
| my $client = Mojo::Client->new; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| # Аффинная система подстановок Цезаря | |
| # --dynax60 | |
| use strict; | |
| use warnings; | |
| use encoding 'utf8'; | |
| use Encode qw(decode); | |
| my ($cmd, $a, $b, $txt) = @ARGV; |