37 lines
961 B
Perl
Executable File
37 lines
961 B
Perl
Executable File
#!/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; |