Changeset 5248

Timestamp:

Oct 7, 2005, 3:20:12 PM (21 years ago)

Author:

jhoblitt

Message:

fwv

File:

• trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Parser.pm (modified) (2 diffs)

trunk/PS-IPP-PSFTP/lib/PS/IPP/PSFTP/Parser.pm

@@ -1 +1 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: Parser.pm,v 1.1 2005-10-07 00:12:32 jhoblitt Exp $
+# $Id: Parser.pm,v 1.2 2005-10-08 01:20:12 jhoblitt Exp $
 
 package PS::IPP::PSFTP::Parser;
 
 use strict;
+
+use Carp qw( carp );
+
+use vars qw( @FIELDS @REQUIRED_FIELDS );
+
+@FIELDS = qw( date time id type attributes size md5 url );
+@REQUIRED_FIELDS = qw( date time id type size md5 url );
 
 sub new
@@ -16 +23 @@
 }
 
+sub parse
+{
+    my ($self, $doc) = @_;
+
+    # pack data into an HoH
+    my @data;
+    foreach my $line (split /\n/, $doc) {
+        # convert string to an array of lines
+        my %record;
+        @record{@FIELDS} = map { $_ ? $_ : undef } split /\|/, $line;
+
+        # check for the proper number of fields (null or not)
+        unless (scalar keys %record == scalar @FIELDS) {
+            carp "record: $line does not have the proper number of fields\n";
+            return undef;
+        }
+
+        # check that all required fields are defined
+        foreach my $key (@REQUIRED_FIELDS) {
+           unless (defined $record{$key}) {
+                carp "record: $line is missing required field: $key\n";
+                return undef;
+           }
+        }
+
+        # convert attributes into a hash
+        if (defined $record{attributes}) {
+            my @pairs = split /:/, $record{attributes};
+            
+            my %attr;
+            foreach my $pair (@pairs) {
+                my ($key, $value) = split /=/, $pair;
+
+                unless (defined $key) {
+                    carp "record: $line has an attribute: $pair "
+                       . " with no key";
+                    return undef;
+                }
+
+                unless (defined $value) {
+                    carp "record: $line has an attribute: $pair"
+                       . " with no value";
+                    return undef;
+                }
+
+                # pack pairs into a hash
+                $attr{$key} = $value;
+            }
+        
+            # replace attributes string with a hashref
+            if (%attr) {
+                $record{attributes} = \%attr;
+            } else {
+                delete $record{attributes};
+            }
+        }
+
+        # pack date & time into stamp
+        $record{stamp} = $record{date} . "T" . $record{time};
+        delete $record{date};
+        delete $record{time};
+
+        my $obj = bless \%record, "PS::IPP::PSFTP::Record";
+
+        # pack as a FIFO
+        unshift @data, $obj;
+    }
+
+    return @data ? \@data : undef;
+}
+
+package PS::IPP::PSFTP::Record;
+
+use base qw( Class::Accessor::Fast );
+
+use vars qw( @FIELDS );
+
+@FIELDS = qw( stamp id type attributes size md5 url );
+
+__PACKAGE__->mk_accessors( @FIELDS );
+
 1;