PerlForms Code

#
# Copyright 2008 Samuel Borsutzky
#
# This file is part of PerlForms.
#
# PerlForms is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# PerlForms is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PerlForms.  If not, see <http://www.gnu.org/licenses/>.
#
#
#

package PerlForms::User;

use strict;
use base qw(PerlForms::Object);
use vars '$debug';
$debug=0 unless defined $debug;

sub add {
    # expects: req password name permission emailaddr email2smsaddr
    my($self)=shift if(ref($_[0]));
    $debug>=3 && print(STDERR __PACKAGE__."->add got called by ".caller()."\n");
    my(%arg)=@_;
    $debug>=3 && print(STDERR __PACKAGE__."->add got called with ".join(",",%arg)."\n");
    
    ## todo d Class->add password-fähig machen, am besten über datentyp "encrypted" oder so
    $self->SUPER::add(
        %arg,
        password=>crypt($arg{password},"X0")
    );
}

sub form {
    # expects: b path
    my($self)=shift if(ref($_[0]));
    my(%arg)=@_;
    my($data);
    my($act)="add";

    if(defined($arg{$self->{obj}->abkuerz})) {
        $data=$self->{obj}->get(%arg);
        $act="mod";
    }
    
    # Formularkopf
    my$form=$self->{req}->form(
        %arg,
        act=>$act,
        buttons=>[
            {
                what=>"device",
                attrib=>[
                    [$self->{obj}->abkuerz,$data->{id}],
                    ["filter",$self->{obj}->abkuerz]
                ]
            }
        ]
    );

    $form->text(
        name=>"name",
        value=>defined($data->{name})?$data->{name}:""
    );
    $form->passwd(
        value=>defined($data->{password})?$data->{password}:"********"
    );
    $form->text(
        name=>"permission",
        value=>defined($data->{permission})?$data->{permission}:""
    );
    $form->text(
        name=>"emailaddr",
        value=>defined($data->{emailaddr})?$data->{emailaddr}:""
    );
    $form->text(
        name=>"email2smsaddr",
        value=>defined($data->{email2smsaddr})?$data->{email2smsaddr}:""
    );
    $form->text(
        name=>"syscontactstring",
        value=>defined($data->{syscontactstring})?$data->{syscontactstring}:""
    );
}

sub mod {
    # expects: req name password permission
    my($self)=shift if(ref($_[0]));
    my(%arg)=@_;
    $self->faultt(msg=>__PACKAGE__."::mod Needs a req.") unless(defined($self->{req}));

    $self->faultt(
        msg=>__PACKAGE__."::mod Needs a ".$self->{obj}->abkuerz."."
    ) unless(
        defined($arg{$self->{obj}->abkuerz}) and $arg{$self->{obj}->abkuerz}=~/\d/
    );

    $self->faultt(req=>$self->{req},msg=>__PACKAGE__."::mod Needs a name.")
    unless(defined($arg{name}) and $arg{name}=~/\w/ or defined($arg{pfuser}));
    $self->faultt(req=>$self->{req},msg=>__PACKAGE__."::mod Needs a password.")
    unless(
        (defined($arg{password}) and $arg{password}=~/\w/)
        or $arg{passwort} eq "********"
    );
    $self->faultt(req=>$self->{req},msg=>__PACKAGE__."::mod Needs a valid permission.")
    unless(defined($arg{permission}) and $arg{permission}=~/^\s*[046]\s*$/);

    $arg{password}=crypt($arg{password},"X0");
    
    $self->SUPER::mod(%arg) or $self->faultt(
        req=>$self->{req},
        msg=>__PACKAGE__."::mod \$self->SUPER::mod failed."
    );
}



package Main;

1;