103 lines
2.7 KiB
Perl
103 lines
2.7 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
|
||
|
|
|
||
|
|
require cfg ;
|
||
|
|
|
||
|
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
|
use CGI;
|
||
|
|
use Crypt::PasswdMD5;
|
||
|
|
|
||
|
|
|
||
|
|
&today ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
@ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'});
|
||
|
|
|
||
|
|
foreach $ARG (@ARGV) { ($par,$val) = split(/\=/,$ARG) ; $param{$par} = $val ; }
|
||
|
|
|
||
|
|
# https://itvadmin.co.za/cgi-bin/scripts/admin/oneoff/update_user_password_from_excel.pl?1
|
||
|
|
|
||
|
|
our $debug = $ARGV[0] ;
|
||
|
|
our $username = 'rory' ;
|
||
|
|
|
||
|
|
# print "\n debug : $debug \n" ;
|
||
|
|
|
||
|
|
if ($debug) { print "Content-type: text/html\n\n"; }
|
||
|
|
|
||
|
|
&common_debug("\n 1. START") ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
&today ;
|
||
|
|
&common_debug("\n 2. START") ;
|
||
|
|
# &set_delete_date ;
|
||
|
|
&read_csv ;
|
||
|
|
|
||
|
|
if ($debug) { print "Done."; }
|
||
|
|
|
||
|
|
exit;
|
||
|
|
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub read_csv {
|
||
|
|
|
||
|
|
|
||
|
|
# my $crypted_password = apache_md5_crypt($i{password},$useropts{salt}) ;
|
||
|
|
|
||
|
|
my $file_path = "$htmlpath/csv/operator_list_csv.csv" ;
|
||
|
|
|
||
|
|
&common_debug("file_path : $file_path") if -f $file_path ;
|
||
|
|
|
||
|
|
# Open the file for reading
|
||
|
|
|
||
|
|
unless (open(CSV_FILE, '<', $file_path)) {
|
||
|
|
die "Unable to open the file '$file_path' for reading: $!";
|
||
|
|
}
|
||
|
|
|
||
|
|
my $header_line = <CSV_FILE> ; my @fields = () ;
|
||
|
|
|
||
|
|
while (my $line = <CSV_FILE>) {
|
||
|
|
|
||
|
|
@fields = () ; @fields = split(',',$line) ;
|
||
|
|
|
||
|
|
my $id = $fields[0] ;
|
||
|
|
my $password = $fields[5] ;
|
||
|
|
$password =~ s/\n//g; $password =~ s/ //g;
|
||
|
|
my $length = length ($password) ;
|
||
|
|
$password = substr($password,0,$length-1) ;
|
||
|
|
|
||
|
|
my $crypted_password = apache_md5_crypt($password,$useropts{salt}) ;
|
||
|
|
|
||
|
|
&common_debug("UPDATE `users` SET `password` = '$crypted_password' WHERE `id` = '$id' ;") ;
|
||
|
|
|
||
|
|
# # $fields[4] =~ s\/'\\gi ;
|
||
|
|
# $fields[0] =~ s\/'\\gi ;
|
||
|
|
|
||
|
|
# $fields[3] =~ s/\n//g;
|
||
|
|
|
||
|
|
# my $region_id = 0 ; my $city_id = 0 ;
|
||
|
|
# $region_id = 4 if $fields[3] eq 'KZN' ;
|
||
|
|
# $region_id = 9 if $fields[3] eq 'CPT' ;
|
||
|
|
# $region_id = 2 if $fields[3] eq 'Bloem' ;
|
||
|
|
# $region_id = 3 if $fields[3] eq 'JHB' ;
|
||
|
|
|
||
|
|
# $city_id = 1 if $fields[3] eq 'JHB' ;
|
||
|
|
# $city_id = 10 if $fields[3] eq 'CPT' ;
|
||
|
|
# $city_id = 20 if $fields[3] eq 'Bloem' ;
|
||
|
|
|
||
|
|
# print "\n;UPDATE `users` SET `region_ids` = '$region_id', `city_id` = '$city_id' WHERE region_ids = '0' AND `name` LIKE '$fields[0]%' AND `name` LIKE '%$fields[1]'" ;
|
||
|
|
|
||
|
|
# print "\n ;UPDATE `users` SET email = '$fields[2]' WHERE region_ids = '0' AND name LIKE '$fields[0]%' AND name LIKE '%$fields[1]' AND (`email` = '' OR `email` IS NULL) ;" ;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
} #-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
use db ;
|
||
|
|
use today ;
|
||
|
|
use common ;
|
||
|
|
use common_min ;
|