Changeset 13574

Timestamp:

May 31, 2007, 12:11:49 PM (19 years ago)

Author:

Paul Price

Message:

Adding function to open file for appending.

File:

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

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.49 2007-05-24 20:14:20 price Exp $
+# $Id: Config.pm,v 1.50 2007-05-31 22:11:49 price Exp $
 
 package PS::IPP::Config;
@@ -296 +296 @@
     my $fh;
     unless (open $fh, '>', $name) {
+        carp "Unable to create file $name --- $!";
+        exit($PS_EXIT_SYS_ERROR);
+    }
+    return $fh;
+}
+
+# Create and open file for appending
+sub file_create_append
+{
+    my $self = shift;           # Configuration object
+    my $name = shift;           # File name to check
+
+    $self->file_prepare( $name );
+
+    my ($scheme) = $name =~ m|^(\S+):|; # The scheme, e.g., file://, path://
+    if (defined $scheme) {
+        if ($scheme eq 'neb') {
+            $name =~ s|^(\S+):/*||;
+            $self->_neb_start();
+            return $self->{nebulous}->open_create( $name );
+        }
+        if ($scheme eq 'path' or $scheme eq 'file') {
+            $name = $self->convert_filename_absolute( $name );
+        }
+    }
+
+    my $fh;
+    unless (open $fh, '>>', $name) {
         carp "Unable to create file $name --- $!";
         exit($PS_EXIT_SYS_ERROR);