#!/usr/bin/perl
#
# read data from STDIN
#
#   1st line:   <tenantid>
#
use strict;
my $mapfile = '/etc/benno-auth/tenant.map';

my $tenantid = <>; chomp $tenantid;

open my $dh, $mapfile
    or die "Cannot open tenant mapfile $mapfile: $!\n";

while (my $line = <$dh>) {
    next if $line =~ /^#/;
    next if $line =~ /^$/;
    chomp $line;
    my ($ftid,$container) = split /\s+/, $line;
    if ($tenantid =~ /^$ftid$/) {
        print "$container\n";
        exit;
    }
}
close $dh;
print STDERR "WARN tenantid \"$tenantid\" not in $mapfile\n";
