Last active
December 15, 2015 10:39
-
-
Save justingit/5246834 to your computer and use it in GitHub Desktop.
inject.cgi
This file contains 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 | |
my $list = 'test'; | |
my $verbose = 1; | |
my $test = 1; | |
use CGI::Carp qw(fatalsToBrowser); | |
use FindBin; | |
use lib "$FindBin::Bin/../"; | |
use lib "$FindBin::Bin/../DADA/perllib"; | |
use DADA::MailingList::Settings; | |
my $ls = DADA::MailingList::Settings->new({-list => $list}); | |
do "bridge.cgi"; | |
use CGI qw(:standard); | |
print header(); | |
print '<pre>'; | |
my $msg = q{Return-path: <justin@dadamailproject.com> | |
Envelope-to: bridgetest@dadamailproject.com | |
Delivery-date: Mon, 11 Mar 2013 14:38:35 -0600 | |
Received: from schedmdc by box663.bluehost.com with local-bsmtp (Exim 4.80) | |
(envelope-from <jette@schedmd.com>) | |
id 1UF9UR-0005Sp-2L | |
for slurm-dev@schedmd.com; Mon, 11 Mar 2013 14:38:35 -0600 | |
X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on box663.bluehost.com | |
X-Spam-Level: | |
X-Spam-Status: No, score=-3.6 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00 | |
shortcircuit=no autolearn=ham version=3.3.1 | |
Received: from [127.0.0.1] (port=53173 helo=localhost) | |
by box663.bluehost.com with esmtpsa (TLSv1:CAMELLIA256-SHA:256) | |
(Exim 4.80) | |
(envelope-from <jette@schedmd.com>) | |
id 1UF9UQ-0005SD-Rk; Mon, 11 Mar 2013 14:38:34 -0600 | |
Received: from 75.0.184.128 ([75.0.184.128]) by mail.schedmd.com (Horde | |
Framework) with HTTP; Mon, 11 Mar 2013 14:38:34 -0600 | |
Message-ID: <20130311143834.16794jvmmd43u0ga@mail.schedmd.com> | |
Date: Mon, 11 Mar 2013 14:38:34 -0600 | |
From: Moe Jette <justin@dadamailproject.com> | |
To: test-list <bridgetest@dadamailproject.com>, Someone Else | |
<dadamailtest@gmail.com> | |
Subject: Re: [slurm-dev] Cosmetic fixes for init.d scripts | |
References: <CA+Y5xYf3y=x9VCeRbAvb9vdqvNzrKnDdihAfa51ChD=Fkvj3PA@mail.gmail.com> | |
In-Reply-To: <CA+Y5xYf3y=x9VCeRbAvb9vdqvNzrKnDdihAfa51ChD=Fkvj3PA@mail.gmail.com> | |
MIME-Version: 1.0 | |
Content-Type: text/plain; | |
charset=UTF-8; | |
DelSp="Yes"; | |
format="flowed" | |
Content-Disposition: inline | |
Content-Transfer-Encoding: 7bit | |
User-Agent: Internet Messaging Program (IMP) H3 (4.3.11) | |
X-Identified-User: {2482:box663.bluehost.com:schedmdc:schedmd.com} {sentby:smtp auth 127.0.0.1 authed with jette@schedmd.com} | |
X-Identified-User: {2482:box663.bluehost.com:schedmdc:schedmd.com} {sentby:spamassassin for local delivery to identified user} | |
This patch has been applied to the version 2.6 code. | |
Thank you! | |
Quoting Dmitri Gribenko <gribozavr@gmail.com>: | |
> Hello, | |
> | |
> Please find attached a patch with two fixes for init.d scripts: | |
> | |
> * correct comments (full path to slurm binaries was not correct in comments); | |
> | |
> * improve the output of 'service [slurm|slurmdbd] reconfig'. It used | |
> to garble the console because of the missing 'echo' after 'killproc'. | |
> '[OK]' was displayed on the same line as the shell prompt in CentOS | |
> 6.4. Now it looks correctly: | |
> | |
> [root@head ~]# service slurm reconfig | |
> Reloading slurmctld daemon configuration: [ OK ] | |
> [root@head ~]# | |
> | |
> Please review and apply. | |
> | |
> Dmitri | |
> | |
> -- | |
> main(i,j){for(i=2;;i++){for(j=2;j<i;j++){if(!(i%j)){j=0;break;}}if | |
> (j){printf("%d\n",i);}}} /*Dmitri Gribenko <gribozavr@gmail.com>*/ | |
> | |
}; | |
my ($status, $errors) = bridge::inject( | |
{ | |
-ls => $ls, | |
-msg => $msg, | |
-verbose => $verbose, | |
-test_mail => $test, | |
}); | |
use Data::Dumper; | |
print Dumper([($status, $errors)]); | |
print "done!"; |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment