#!/usr/bin/env perl

use strict;
use warnings;
use Thrift::IDL;
use Tapir::Validator;
use Data::Dumper;

my $validator = Tapir::Validator->new(
	audit_types => 1,
	warn_unused_types => 1,
	docs => {
		# Require all methods be documented
		require => {
			methods => 1,
			rest    => 1,
		},

		# List the '@' keys that are flags and will have no value following them
		flags => {
			optional => 1,
			utf8     => 1,
			secure   => 1,
		},
	},
);

foreach my $fn (@ARGV) {
	my $idl = Thrift::IDL->parse_thrift_file($fn);
	my @errors = $validator->audit_idl_document($idl);
	if (@errors) {
		print "File $fn failed the audit:\n";
		print " - $_\n" foreach @errors;
	}
	else {
		print "File $fn passed the audit\n";
		foreach my $service (@{ $idl->services }) {
			print "Service " . $service->name . "\n";
			foreach my $method (@{ $service->methods }) {
				printf "  %s %s calls %s\n", uc($method->{doc}{rest}{method}), $method->{doc}{rest}{route}, $method->name;
			}
		}
	}
}