Initial checkin of the Field part of the User work. Just ideas at the moment, nothing here is implemented, and much of it is likely to change.

webtools/PLIF/PLIF/Service/UserField.pm

@@ -0,0 +1,80 @@
+# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*-
+#
+# This file is MPL/GPL dual-licensed under the following terms:
+# 
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.1 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and
+# limitations under the License.
+#
+# The Original Code is PLIF 1.0.
+# The Initial Developer of the Original Code is Ian Hickson.
+#
+# Alternatively, the contents of this file may be used under the terms
+# of the GNU General Public License Version 2 or later (the "GPL"), in
+# which case the provisions of the GPL are applicable instead of those
+# above. If you wish to allow use of your version of this file only
+# under the terms of the GPL and not to allow others to use your
+# version of this file under the MPL, indicate your decision by
+# deleting the provisions above and replace them with the notice and
+# other provisions required by the GPL. If you do not delete the
+# provisions above, a recipient may use your version of this file
+# under either the MPL or the GPL.
+
+package PLIF::Service::UserField;
+use strict;
+use vars qw(@ISA);
+use PLIF::Service;
+@ISA = qw(PLIF::Service);
+1;
+
+sub provides {
+    my $class = shift;
+    my($service) = @_;
+    return ($service eq 'user.field.'.$class->category.'.'.$class->type or $class->SUPER::provides($service));
+}
+
+sub init {
+    my $self = shift;
+    my($app, $user, $fieldID, $fieldTypeData, $fieldName, $fieldData) = @_;
+    # do not hold on to $user!
+    $self->userID($user->userID); # change this at your peril
+    $self->fieldID($fieldID); # change this at your peril
+    $self->typeData($fieldTypeData); # change this at your peril
+    $self->name($fieldName); # change this at your peril
+    $self->data($fieldData); # this is the only thing you should be changing
+    $self->{'_DIRTY'} = 0;
+}
+
+sub category {
+    my $self = shift;
+    $self->notImplemented();
+}
+
+sub type {
+    my $self = shift;
+    $self->notImplemented();
+}
+
+sub propertySet {
+    my $self = shift;
+    my $result = $self->SUPER::propertySet(@_);
+    $self->{'_DIRTY'} = 1;
+    return $result;
+}
+
+sub DESTROY {
+    my $self = shift;
+    if ($self->{'_DIRTY'}) {
+        $self->write();
+    }
+}
+
+sub write {
+    # XXX
+}

webtools/PLIF/PLIF/Service/UserField/Generic.pm

@@ -0,0 +1,48 @@
+# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*-
+#
+# This file is MPL/GPL dual-licensed under the following terms:
+# 
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.1 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and
+# limitations under the License.
+#
+# The Original Code is PLIF 1.0.
+# The Initial Developer of the Original Code is Ian Hickson.
+#
+# Alternatively, the contents of this file may be used under the terms
+# of the GNU General Public License Version 2 or later (the "GPL"), in
+# which case the provisions of the GPL are applicable instead of those
+# above. If you wish to allow use of your version of this file only
+# under the terms of the GPL and not to allow others to use your
+# version of this file under the MPL, indicate your decision by
+# deleting the provisions above and replace them with the notice and
+# other provisions required by the GPL. If you do not delete the
+# provisions above, a recipient may use your version of this file
+# under either the MPL or the GPL.
+
+package PLIF::Service::UserField::Generic;
+use strict;
+use vars qw(@ISA);
+use PLIF::Service::UserField;
+@ISA = qw(PLIF::Service::UserField);
+1;
+
+sub provides {
+    my $class = shift;
+    my($service) = @_;
+    return ($service =~ /^user\.field\.[^.]+\.[^.]+$/ or $class->SUPER::provides($service));
+}
+
+sub category {
+    return 'generic';
+}
+
+sub type {
+    return 'generic';
+}

webtools/PLIF/PLIF/Service/UserFieldFactory.pm

@@ -0,0 +1,46 @@
+# -*- Mode: perl; tab-width: 4; indent-tabs-mode: nil; -*-
+#
+# This file is MPL/GPL dual-licensed under the following terms:
+# 
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.1 (the "License"); you may not use this file except in
+# compliance with the License. You may obtain a copy of the License at
+# http://www.mozilla.org/MPL/
+#
+# Software distributed under the License is distributed on an "AS IS"
+# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+# the License for the specific language governing rights and
+# limitations under the License.
+#
+# The Original Code is PLIF 1.0.
+# The Initial Developer of the Original Code is Ian Hickson.
+#
+# Alternatively, the contents of this file may be used under the terms
+# of the GNU General Public License Version 2 or later (the "GPL"), in
+# which case the provisions of the GPL are applicable instead of those
+# above. If you wish to allow use of your version of this file only
+# under the terms of the GPL and not to allow others to use your
+# version of this file under the MPL, indicate your decision by
+# deleting the provisions above and replace them with the notice and
+# other provisions required by the GPL. If you do not delete the
+# provisions above, a recipient may use your version of this file
+# under either the MPL or the GPL.
+
+package PLIF::Service::UserFieldFactory;
+use strict;
+use vars qw(@ISA);
+use PLIF::Service;
+@ISA = qw(PLIF::Service);
+1;
+
+sub provides {
+    my $class = shift;
+    my($service) = @_;
+    return ($service eq 'user.field.factory' or $class->SUPER::provides($service));
+}
+
+sub createField {
+    my $self = shift;
+    my($app, $user, $fieldID, $fieldData) = @_;
+    return undef; # XXX
+}