inject.cgi

gistfile1.txt

#!/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: <[email protected]>
Envelope-to: [email protected]
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 <[email protected]>)
    id 1UF9UR-0005Sp-2L
    for [email protected]; 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 <[email protected]>)
    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: <[email protected]>
Date: Mon, 11 Mar 2013 14:38:34 -0600
From: Moe Jette <[email protected]>
To: test-list <[email protected]>, Someone Else
 <[email protected]>
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 [email protected]}
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 <[email protected]>:

> 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 <[email protected]>*/
>
};

my ($status, $errors) = bridge::inject(
{ 
    -ls        => $ls,
    -msg       => $msg,
    -verbose   => $verbose,
    -test_mail => $test,
});

use Data::Dumper; 
print Dumper([($status, $errors)]); 
print "done!";