setnotes.pl

#!/usr/bin/perl

=comment

Copyright (c) 2003-2010, Andrew Dunstan

See accompanying License file for license details

=cut 


use vars qw($VERSION); $VERSION = 'REL_4.4';

#	$Id: setnotes.pl,v 1.4 2010/11/07 23:35:29 andrewd Exp $

use strict;
use warnings;
no warnings qw(once); # suppress spurious warning about conf structure

use LWP;
use HTTP::Request::Common;
use MIME::Base64;
use Digest::SHA1  qw(sha1_hex);
use Getopt::Long;

# copy command line before processing - so we can later report it
# unmunged

my @invocation_args = (@ARGV);


my $buildconf = "build-farm.conf"; # default value
my ($sys_notes,$help,$del);

GetOptions('config=s' => \$buildconf,
		   'help' => \$help,
           'delete' => \$del,
		   )
	|| usage("bad command line");

$sys_notes = shift;

usage("No extra args allowed") 
	if @_;

usage("must not specify notes if delete flag used")
	if ($del && defined($sys_notes);

usage() 
	if $help;

usage("must specify notes") 
	unless (defined($sys_notes));


#
# process config file
#
require $buildconf ;

my ($target,$animal,$secret) = 
	@PGBuild::conf{	qw(target animal secret)	};

$target =~ s/pgstatus.pl/addnotes.pl/;



# make the base64 data escape-proof; = is probably ok but no harm done
# this ensures that what is seen at the other end is EXACTLY what we
# see when we calculate the signature

map 
{ $_ ||= ""; $_ = encode_base64($_,""); tr/+=/$@/; } 
($sys_notes);

my $content = "animal=$animal\&sysnotes=$sys_notes";

my $sig= sha1_hex($content,$secret);

# set environment from config
while (my ($envkey,$envval) = each %{$PGBuild::conf{build_env}})
{
    $ENV{$envkey}=$envval;
}

my $ua = new LWP::UserAgent;
$ua->agent("Postgres Build Farm Reporter");
if (my $proxy = $ENV{BF_PROXY})
{
	$ua->proxy('http',$proxy);
}


my $request=HTTP::Request->new(POST => "$target/$sig");
$request->content_type("application/x-www-form-urlencoded");
$request->content($content);


my $response=$ua->request($request);

unless ($response->is_success)
{
	print 
		"Query for: animal=$animal\n",
		"Target: $target/$sig\n",
    	"Query Content: $content\n";
	print "Status Line: ",$response->status_line,"\n";
	print "Content: \n", $response->content,"\n" ;
	exit 1;
}

exit(0);



#######################################################################

sub usage
{
	my $opt_message = shift ;
	print "$opt_message\n" if $opt_message;
	print  <<EOH;
set_notes.pl [ option ... ] notes
or
set_notes.pl --delete [ option ... ]

where option is one or more of
  --config=path                 /path/to/buildfarm.conf
  --help                        get this message
EOH
;

	exit defined($opt_message)+0;
}