Skip to content

Instantly share code, notes, and snippets.

@justingit
Last active December 15, 2015 10:39

Revisions

  1. justingit revised this gist Mar 26, 2013. 1 changed file with 6 additions and 4 deletions.
    10 changes: 6 additions & 4 deletions gistfile1.txt
    Original file line number Diff line number Diff line change
    @@ -1,19 +1,21 @@
    #!/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 => 'test'});
    my $ls = DADA::MailingList::Settings->new({-list => $list});

    do "bridge.cgi";

    my $verbose = 1;
    my $test = 1;

    use CGI qw(:standard);

    print header();
  2. justingit created this gist Mar 26, 2013.
    99 changes: 99 additions & 0 deletions gistfile1.txt
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,99 @@
    #!/usr/bin/perl

    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 => 'test'});

    do "bridge.cgi";

    my $verbose = 1;
    my $test = 1;

    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!";