Changeset 20503

Timestamp:

Oct 31, 2008, 5:17:48 PM (18 years ago)

Author:

bills

Message:

add file_delete which can deal with nebulous paths. For cleanup

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.92 2008-09-13 02:22:10 eugene Exp $
+# $Id: Config.pm,v 1.93 2008-11-01 03:17:48 bills Exp $
 
 package PS::IPP::Config;
@@ -569 +569 @@
 
     return ($fileRef, $fileName);
+}
+# Delete a file
+sub file_delete
+{
+    my $self = shift;                # Configuration object
+    my $name = shift;                # File name to check
+    my $status;
+
+    my $scheme = file_scheme($name); # The scheme, e.g., file://, path://
+    if (defined $scheme and lc($scheme) eq 'neb') {
+        $self->_neb_start();
+        $status = $self->{nebulous}->delete( $name );
+    } else {
+        my $resolved = $self->file_resolve($name);
+        if ($resolved && -e $resolved) {
+            $status = unlink($resolved);
+        }
+    }
+    return $status;
 }