ClusterCockpit/cc-backend
1
0
Fork 0
mirror of https://github.com/ClusterCockpit/cc-backend synced 2024-09-20 03:17:26 +02:00
Code Issues Packages Releases Activity

Start implementing anonDB.pl

Browse Source
This commit is contained in:
Jan Eitzinger 2019-05-09 07:18:28 +02:00
parent e81afc84ab
commit 6b26f8b4e9
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
anonDB.pl
View File

@ -75,10 +75,17 @@ my %row;
$sth_select_all->bind_columns( \( @row{ @{$sth->{NAME_lc} } } )); $sth_select_all->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
while ($sth_select_all->fetch) { while ($sth_select_all->fetch) {
print "$row{job_id}\n"; my $user_id = $row->{'user_id'};
if ( not exists $user_lookup{$user_id}) {
print "New user $user_id\n";
$user_index++;
$user_lookup{$user_id} = $user_index;
}
} }
exit;
opendir my $dh, $basedir or die "can't open directory: $!"; opendir my $dh, $basedir or die "can't open directory: $!";
while ( readdir $dh ) { while ( readdir $dh ) {