1 files changed, 173 insertions, 0 deletions
diff --git a/libical/src/Net-ICal-Libical/lib/Net/ICal/Libical/Property.pm b/libical/src/Net-ICal-Libical/lib/Net/ICal/Libical/Property.pm
new file mode 100644
index 0000000000..0aef347c43
--- /dev/null
+++ b/libical/src/Net-ICal-Libical/lib/Net/ICal/Libical/Property.pm
@@ -0,0 +1,173 @@
+#!/usr/bin/perl
+# -*- Mode: perl -*-
+#======================================================================
+# FILE: Property.pm
+# CREATOR: eric 1 Mar 01
+#
+# DESCRIPTION:
+#   
+#
+#  $Id$
+#  $Locker$
+#
+# (C) COPYRIGHT 2000, Eric Busboom, eric@softwarestudio.org
+#
+# This package is free software and is provided "as is" without express
+# or implied warranty.  It may be used, redistributed and/or modified
+# under the same terms as perl itself. ( Either the Artistic License or the
+# GPL. ) 
+#
+#
+#======================================================================
+
+use Net::ICal::Libical::Property;
+
+
+package Net::ICal::Libical::Property;
+use strict;
+
+
+sub new { 
+
+  my $class = shift;
+  my $arg = shift;
+  my $self = {};
+  my $kind;
+
+  if(ref($arg) == 'HASH'){
+  
+    $self->{'ref'} = $arg->{'ref'};
+
+  } else {
+        $kind = Net::ICal::Libical::icalproperty_string_to_kind($arg);
+	$self->{'ref'} = Net::ICal::Libical::icalproperty_new($kind);
+  }
+
+  die "Did not get icalproperty ref in Net::ICal::Libical::Property::new " if !$self->{'ref'};
+  
+  bless $self, $class;
+}
+
+
+sub DESTROY {
+  my $self = shift;
+
+  my $r = $self->{'ref'};
+
+  if($r && !Net::ICal::Libical::icalproperty_get_parent($r)){
+    Net::ICal::Libical::icalproperty_free($self->{'ref'});
+  }
+}
+
+sub name {
+  my $self = shift;
+  my $str;
+
+  die if !$self->{'ref'};
+
+  $str = Net::ICal::Libical::icalproperty_as_ical_string($self->{'ref'});
+	
+  $str =~ /^([A-Z\-]+)\n/;
+
+  return $1;
+
+}
+
+#Get/Set the internal reference to the libical icalproperty """
+sub prop_ref {
+  my $self = shift;
+  my $p_r = shift;
+
+  if($p_r){
+    $self->{'ref'} = $p_r;
+  }
+
+  return $self->{'ref'};
+  
+}
+
+
+#Get/set the RFC2445 representation of the value. Dict value 'value'
+sub value {
+  my $self = shift;
+  my $v = shift;
+  my $kind = shift;
+
+  my $vt;
+  if($v){
+            
+    if ($kind) {
+      $self->{'VALUE'} = $kind;
+      $vt = $kind;
+    }
+    elsif ($self->{'VALUE'}) { 
+      $vt = $self->{'VALUE'};
+    }
+    else {
+      $vt = 'NO'; # Use the kind of the existing value
+    }      
+     
+
+    Net::ICal::Libical::icalproperty_set_value_from_string($self->{'ref'},$v,$vt);
+      
+  }
+      
+  return Net::ICal::Libical::icalproperty_get_value_as_string($self->{'ref'});
+
+}
+
+
+# Get a named parameter
+sub get_parameter{
+  my $self  = shift;
+  my $key = shift;
+
+  die "get_parameter: missing parameter name" if !$key;
+
+  $key = uc($key);
+  my $ref = $self->{'ref'};
+
+  my $str = Net::ICal::Libical::icalproperty_get_parameter_as_string($ref,$key);
+
+  if($str eq 'NULL') {
+    return undef;
+  }
+
+  return $str  
+
+}
+
+
+# Set the value of the named parameter
+sub set_parameter{
+  my $self  = shift;
+  my $key = shift;
+  my $value = shift;
+
+  die "set_parameter: missing parameter name" if !$key;
+  die "set_parameter: missing parameter value" if !$value;
+
+  $key = uc($key);
+  my $ref = $self->{'ref'};
+
+  my $str = Net::ICal::Libical::icalproperty_set_parameter_from_string($ref,$key,$value);
+
+
+  return $self->get_parameter($self);
+
+}
+
+
+sub as_ical_string {
+  my $self = shift;
+  my $str = Net::ICal::Libical::icalproperty_as_ical_string($self->{'ref'});
+
+  $str =~ s/\r//g;
+  $str =~ s/\n\s?//g;
+
+  return $str;
+}
+
+
+
+1;