logo

utils

Old programs, got split in utils-std and utils-extra git clone https://hacktivis.me/git/utils.git

post-update.srht (1878B)

    

  1. #!/usr/bin/env perl
  2. # SPDX-FileCopyrightText: 2017-2023 Haelwenn (lanodan) Monnier <contact+utils@hacktivis.me>
  3. # SPDX-License-Identifier: AGPL-3.0-only
  4. use strict;
  5. use utf8;
  6. no warnings;    # Wide Character…
  8. use LWP::UserAgent;
  9. use JSON::MaybeXS;
  10. use Cwd;
  11. use File::Spec;
  13. my $json = JSON::MaybeXS->new(utf8 => 1);
  15. my $base = getcwd();
  16. $base =~ s/.git$//;
  18. my $workdir = "${base}.work";
  19. my $project = (File::Spec->splitpath($base))[2];
  21. sub new_job {
  22. 	my ($manifest_file) = @_;
  23. 	my $manifest_rel = (File::Spec->splitpath($manifest_file))[2];
  25. 	my $manifest = '';
  27. 	open FILE, '<', $manifest_file or die $!;
  29. 	while (<FILE>) {
  30. 		$manifest .= $_;
  31. 	}
  33. 	my $ua = LWP::UserAgent->new;
  34. 	$ua->agent("git post-update hook <https://hacktivis.me/git/utils/>");
  36. 	my $query = <<'EOF';
  37. mutation submit($manifest: String!, $tags: [String!], $visibility: Visibility) {
  38. 	submit(manifest: $manifest, tags: $tags, visibility: $visibility) {
  39. 		id
  40. 		owner { canonicalName }
  41. 	}
  42. }
  43. EOF
  45. 	my $job = {
  46. 		"query" => "$query",
  47. 		"variables" => {
  48. 			"manifest" => "$manifest",
  49. 			"tags"     => [ "${project}", "${manifest_rel}" ],
  50. 			"visibility" => "PUBLIC",
  51. 		},
  52. 	};
  54. 	my $res = $ua->post(
  55. 		$ENV{SRHT_HOST} . "/query",
  56. 		Authorization => 'Bearer ' . $ENV{SRHT_TOKEN},
  57. 		Content_Type  => 'application/json',
  58. 		Content       => encode_json $job,
  59. 	);
  61. 	if (not $res->is_success) {
  62. 		print $res->message;
  63. 		print $res->content;
  64. 		die $!;
  65. 	} else {
  66. 		print $res->content;
  67. 	}
  68. }
  70. if (not(defined($ENV{'SRHT_HOST'}) && defined($ENV{'SRHT_TOKEN'}))) {
  71. 	print 'Environment variables $SRHT_HOST and $SRHT_TOKEN are undefined';
  72. 	exit 1;
  73. }
  75. if (-d "${workdir}/.builds") {
  77. 	# TODO: Shuffle manifests, take 4
  78. 	my @manifests = <"${workdir}/.builds/*.yml">;
  79. 	for (@manifests) {
  80. 		new_job $_;
  81. 	}
  82. } elsif (-e "${workdir}/.build.yml") {
  83. 	new_job "${workdir}/.build.yml";
  84. } else {
  85. 	print "No build manifest found";
  86. }