From 9fffd5ed1907c6b11cee2813be61bdcb2b31211b Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Fri, 11 May 2018 21:22:01 +0200
Subject: [PATCH] per creare caricamento bulk

---
 create_json_user.pl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 create_json_user.pl

diff --git a/create_json_user.pl b/create_json_user.pl
new file mode 100755
index 0000000..eb61479
--- /dev/null
+++ b/create_json_user.pl
@@ -0,0 +1,37 @@
+#!/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;
\ No newline at end of file