Index: openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/Attic/file-storage-dav-install-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/tcl/file-storage-dav-install-procs.tcl	9 Nov 2003 20:56:45 -0000	1.1.2.1
@@ -0,0 +1,94 @@
+# 
+
+ad_library {
+    
+    Sets up WebDAV support service contracts
+    
+    @author Dave Bauer (dave@thedesignexperience.org)
+    @creation-date 2003-11-09
+    @cvs-id $Id: file-storage-dav-install-procs.tcl,v 1.1.2.1 2003/11/09 20:56:45 daveb Exp $
+    
+}
+
+
+namespace eval fs::install {}
+
+ad_proc -private fs::install::package_install {} {
+    setup DAV service contracts
+} {
+    db_transaction {
+	register_implementation
+    }
+}
+
+ad_proc -private fs::install::package_uninstall {} {
+    clean up for package uninstall
+} {
+    db_transaction {
+	unregister_implementation
+    }
+}
+
+
+ad_proc -private fs::install::register_implementation {
+} {
+    add file-storage repository service contract
+    implementation
+} {
+  
+   set spec {
+        name "file_storage_object"
+        aliases {
+            get fs::impl::fs_object::get
+            put fs::impl::fs_object::put
+	    propfind fs::impl::fs_object::propfind
+	    delete fs::impl::fs_object::delete
+	    mkcol fs::impl::fs_object::mkcol
+	    proppatch fs::impl::fs_object::proppatch
+	    copy fs::impl::fs_object::copy
+	    move fs::impl::fs_object::move
+        }
+	contract_name {dav}
+	owner "file-storage"
+    }
+    
+    acs_sc::impl::new_from_spec -spec $spec
+
+   set spec {
+       name "file-storage"
+       aliases {
+	   get_type fs::impl::dav_put_type::get_type
+       }
+       contract_name {dav_put_type}
+       owner "file-storage"
+   }
+
+   acs_sc::impl::new_from_spec -spec $spec
+   
+}
+
+
+ad_proc -private fs::install::unregister_implementation {
+} {
+    remove file-storage service contract implementation
+} {
+    acs_sc::impl::delete -contract_name dav -impl_name file_storage_object
+}
+
+ad_proc -private fs::install::upgrade {
+    -from_version_name
+    -to_version_name
+} {
+    Install new DAV service contracts
+} {
+    apm_upgrade_logic \
+	-from_version_name $from_version_name \
+	-to_version_name $to_version_name \
+	-spec {
+	    4.6.2 4.6.4 {
+		fs::install::package_install
+	    }
+
+	}
+
+}
\ No newline at end of file