use strict;
use warnings;


package Names;

###########################################################################
# Rolf Rost, 14.2.2011
# Anonyme Array-Elemente bekommen Namen
###########################################################################
use strict;

# Setzt ein Array in ein Objekt um
sub new{
        my $class = shift;
        my $maps  = shift; # {3 => 'Day', 4 => 'Month', 5 => 'Year'}
        my $aref  = shift; # p.e. from localtime, stat, etc.
        return if ref $maps ne 'HASH';
        return if ref $aref ne 'ARRAY';
        my $self  = {};
    for(my $i = 0; $i < scalar(@$aref); $i++){
       $self->{$maps->{$i}} = $aref->[$i] if exists $maps->{$i};
    }
    
    return bless $self, $class;
}
1; ########################################################################

package CSV;

use IO::File;
use Carp;

sub new{
        my $class = shift;
        my $file = shift or croak "No File";

        my $handle = _handle($file) or croak "$!";

        # die Spalten-Namen ergeben sich aus der ersten Zeile
        my $self = bless{
                FH => $handle,
                COLS => {},
                DATA => {},
                FIRSTLINE => undef,
                FIRSTKEY => '',
        }, $class;
        $self->_deserialize;
        return $self;
}

####################### PUBLIC ############################################
# Flags
sub user_dir_flag{
        my $self = shift;
        my $user = shift;
        my $dir = shift;
        return $self->{DATA}->{$user}->{$dir};
}
# Flag sezten
sub flag{
        my($self, $user, $dir, $flag) = @_;
        $self->{DATA}->{$user}->{$dir} = $flag;
}
# Datei speichern, serialize
sub store{
        my $self = shift;
        my $fh = $self->{FH};

        truncate $fh, 0;
        seek $fh, 0,0;
        
        # Erste Zeile muss stimmem
        # print in das handle
        print $fh "$self->{FIRSTLINE}\n";
        
        
        # den ersten Key aus Data löschen
        delete $self->{DATA}->{$self->{FIRSTKEY}};

        # $key ist der Benutzer
        foreach my $key(sort keys %{$self->{DATA}}){
                # Zeile wieder ordnungsgemäß zusammenbauen
                my @record = (); # später join ";"
                push @record, $key;
                for( my $col = 1; $col < scalar(keys %{$self->{COLS}}); $col++){
                        push @record, $self->{DATA}->{$key}->{$self->{COLS}->{$col}};
                }
                print $fh join(";", @record)."\n";
        }       
}
############################################# PRIVATE #####################
sub _handle{
        my $file = shift;
        my $fh = new IO::File $file, O_RDWR;
        return defined $fh ? $fh : undef;     # IO-Error in $!
}
###########################################################################
# Lesen der Daten auf eine Datenstruktur
sub _deserialize{
        my $self = shift;
        my $fh = $self->{FH};
        while(my $line = <$fh>){
                chomp $line;
                my @record = split ";", $line;
                # Spaltennamen aus der ersten Zeile ermitteln
                if($. == 1){
                        $self->{FIRSTLINE} = $line;
                        $self->{FIRSTKEY} = $record[0];
                        for(my $i = 0; $i < scalar @record; $i++){
                                $self->{COLS}->{$i} = $record[$i];
                        }
                }
                my $name = Names->new($self->{COLS}, \@record);
                $self->{DATA}->{$record[0]} = $name; # Key ist der Benutzername
        }
}

1;#########################################################################
package main;

my $ref = CSV->new('userdirs.csv');


# einen Wert setzen
$ref->flag('otto', '/home', 0);

print $ref->user_dir_flag('otto','/home'), "\n";
print $ref->user_dir_flag('otto','/home/test'), "\n";
print $ref->user_dir_flag('otto','/home/bin'), "\n";

# Alles wieder speichern
$ref->store;