#!/usr/bin/perl
use warnings;
use strict;
use Getopt::Long;

my $import_user_json;
my $filename;
my $linecounter = 0;

GetOptions(
    "filename=s" => \$filename
) or die("Error in command line arguments\n");
open FILE, $filename
  or die( "Error: opening input file " . $filename . "\n" );


while ( my $line = <FILE> ) {
if ($linecounter == 0) {
    $linecounter++;
    $import_user_json = "[";
} else {
    $import_user_json .= ",";
}

my ( $fname,$lname,$username,$email,$phone,$company,$lang,$role ) = split( /,/, $line );
chomp($role);
    $import_user_json .= '{"username": "' . $username . '","email": "' . $email . '","email_verified": true,' .
        '"app_metadata": {"roles": "' . $role . '","company": "' . $company . '"},' .
        '"user_metadata": {"firstname": "' . $fname . '","lastname": "' . $lname . '","phone": "+' . $phone . '","language": "' . $lang . '"}}' . "\n"; 
}
$import_user_json .= "]";
close FILE;




print $import_user_json;