Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-11 20:35:50 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Changed some of the "reserved" hash indexes, to make sure they all both

Browse Source 
start and end with the "_". This makes it easy to isolate them, with the
regexp /^_.*_$/.
This commit is contained in:
leif 1998-07-29 08:25:57 +00:00
parent fc7f5196b6
commit e48caed39a
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
directory/perldap/Entry.pm
View File

@ -1,5 +1,5 @@
############################################################################# #############################################################################
# $Id: Entry.pm,v 1.2 1998/07/23 11:05:55 leif Exp $ # $Id: Entry.pm,v 1.3 1998/07/29 08:25:57 leif Exp $
# #
# The contents of this file are subject to the Mozilla Public License # The contents of this file are subject to the Mozilla Public License
# Version 1.0 (the "License"); you may not use this file except in # Version 1.0 (the "License"); you may not use this file except in
@ -22,7 +22,7 @@
# DESCRIPTION # DESCRIPTION
# This package defines an object class to manage one single LDAP # This package defines an object class to manage one single LDAP
# entry. This entry can either be a newly created one, or one # entry. This entry can either be a newly created one, or one
# retrieved from an LDAP server, using the LDAP::Connection class. # retrieved from an LDAP server, using the Mozilla::LDAP::Conn class.
# #
############################################################################# #############################################################################
@ -63,11 +63,12 @@ sub STORE
return if (($val eq "") || ($attr eq "")); return if (($val eq "") || ($attr eq ""));
@{$self->{"_${attr}_save"}} = @{$self->{$attr}} @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save"}; unless $self->{"_${attr}_save_"};
$self->{$attr} = $val; $self->{$attr} = $val;
$self->{"_${attr}_modified"} = 1; $self->{"_${attr}_modified_"} = 1;
# Potentially add the attribute to the OC order list.
if (($attr ne "dn") && !grep(/^$attr$/, @{$self->{_oc_order_}})) if (($attr ne "dn") && !grep(/^$attr$/, @{$self->{_oc_order_}}))
{ {
push(@{$self->{_oc_order_}}, $attr); push(@{$self->{_oc_order_}}, $attr);
@ -98,7 +99,7 @@ sub DELETE
return if ($attr eq ""); return if ($attr eq "");
return unless defined($self->{$attr}); return unless defined($self->{$attr});
$self->{"_${attr}_deleted"} = 1; $self->{"_${attr}_deleted_"} = 1;
undef $self->{$attr}; undef $self->{$attr};
} }
@ -113,9 +114,9 @@ sub attrModified
return 0 if ($attr eq ""); return 0 if ($attr eq "");
return 0 unless defined($self->{$attr}); return 0 unless defined($self->{$attr});
@{$self->{"_${attr}_save"}} = @{$self->{$attr}} @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save"}; unless $self->{"_${attr}_save_"};
$self->{_self_obj_}->{"_${attr}_modified"} = 1; $self->{_self_obj_}->{"_${attr}_modified_"} = 1;
return 1; return 1;
} }
@ -132,7 +133,7 @@ sub remove
return 0 if ($attr eq ""); return 0 if ($attr eq "");
return 0 unless defined($self->{$attr}); return 0 unless defined($self->{$attr});
$self->{_self_obj_}->{"_${attr}_deleted"} = 1; $self->{_self_obj_}->{"_${attr}_deleted_"} = 1;
undef $self->{_self_obj_}->{$attr}; undef $self->{_self_obj_}->{$attr};
return 1; return 1;
@ -153,15 +154,15 @@ sub removeValue
return 0 if (($val eq "") || ($attr eq "")); return 0 if (($val eq "") || ($attr eq ""));
return 0 unless defined($self->{$attr}); return 0 unless defined($self->{$attr});
@{$self->{"_${attr}_save"}} = @{$self->{$attr}} @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save"}; unless $self->{"_${attr}_save_"};
foreach (@{$self->{$attr}}) foreach (@{$self->{$attr}})
{ {
if ($_ eq $val) if ($_ eq $val)
{ {
splice(@{$self->{$attr}}, $i, 1); splice(@{$self->{$attr}}, $i, 1);
$action = ($self->size($attr) > 0 ? "modified" : "deleted"); $action = ($self->size($attr) > 0 ? "modified" : "deleted");
$self->{_self_obj_}->{"_${attr}_${action}"} = 1; $self->{_self_obj_}->{"_${attr}_${action}_"} = 1;
return 1; return 1;
} }
@ -192,10 +193,10 @@ sub addValue
} }
} }
@{$self->{"_${attr}_save"}} = @{$self->{$attr}} @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save"}; unless $self->{"_${attr}_save_"};
$self->{_self_obj_}->{"_${attr}_modified"} = 1; $self->{_self_obj_}->{"_${attr}_modified_"} = 1;
push(@{$self->{$attr}}, $val); push(@{$self->{$attr}}, $val);
return 1; return 1;
@ -316,7 +317,7 @@ __END__
=head1 SYNOPSIS =head1 SYNOPSIS
use Mozilla::LDAP::Connection; use Mozilla::LDAP::Conn;
use Mozilla::LDAP::Entry; use Mozilla::LDAP::Entry;
=head1 ABSTRACT =head1 ABSTRACT