notify robotoff when products change, bug #1706

cgi/product_jqm_multilingual.pl

@@ -353,6 +353,9 @@
 	my $time = time();
 	$comment = $comment . remove_tags_and_quote(decode utf8=>param('comment'));
 	store_product($product_ref, $comment);
+
+	# Notify robotoff
+	send_notification_for_product_change($product_ref, "updated");
 
 	$response{status} = 1;
 	$response{status_verbose} = 'fields saved';

cgi/product_multilingual.pl

@@ -2155,6 +2155,10 @@ ($$$$$$)
 			. lang("see_product_page") . "</a></p>";
 	}
 	elsif ($type eq 'delete') {
+
+		# Notify robotoff
+		send_notification_for_product_change($product_ref, "deleted");
+
 		my $email = <<MAIL
 $User_id $Lang{has_deleted_product}{$lc}:
 
@@ -2166,6 +2170,9 @@ ($$$$$$)
 
 	} else {
 
+		# Notify robotoff
+		send_notification_for_product_change($product_ref, "updated");
+
 		# warning: this option is very slow
 		if ((defined $options{display_random_sample_of_products_after_edits}) and ($options{display_random_sample_of_products_after_edits})) {
 

lib/ProductOpener/Products.pm

@@ -37,6 +37,7 @@ BEGIN
 		&retrieve_product_or_deleted_product
 		&retrieve_product_rev
 		&store_product
+		&send_notification_for_product_change
 		&product_name_brand
 		&product_name_brand_quantity
 		&product_url
@@ -74,6 +75,7 @@ use CGI qw/:cgi :form escapeHTML/;
 use Encode;
 use Log::Any qw($log);
 
+use LWP::UserAgent;
 use Storable qw(dclone);
 
 use Algorithm::CheckDigits;
@@ -209,6 +211,22 @@ sub init_product($) {
 	return $product_ref;
 }
 
+# Notify robotoff when products are updated
+
+sub send_notification_for_product_change($$) {
+
+	my $product_ref = shift;
+	my $action = shift;
+
+	my $ua = LWP::UserAgent->new();
+
+	my $response = $ua->post( "https://robotoff.openfoodfacts.org/api/v1/webhook/product",  {
+		'barcode' => $product_ref->{code},
+		'action' => $action,
+		'server_domain' => "api." . $server_domain
+	} );
+}
+
 sub retrieve_product($) {
 
 	my $code = shift;