Parent Directory
| 
Revision Log
| 
Patch
| revision 1074 by dpavlin, Tue Apr 28 16:38:18 2009 UTC | revision 1075 by dpavlin, Fri May 15 20:43:17 2009 UTC | |
|---|---|---|
| # | Line 22 use strict; | Line 22 use strict; |
| 22 | use JSON; | use JSON; |
| 23 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
| 24 | use URI::Escape; | use URI::Escape; |
| 25 | use File::Path qw(make_path remove_tree); | use File::Path; |
| 26 | use Storable; | use Storable; |
| 27 | ||
| 28 | our $VERSION = '0.3'; | our $VERSION = '0.3'; |
| # | Line 148 L<http://wiki.apache.org/couchdb/HTTP_da | Line 148 L<http://wiki.apache.org/couchdb/HTTP_da |
| 148 | if ( ! -e $dir ) { | if ( ! -e $dir ) { |
| 149 | $status = 404; | $status = 404; |
| 150 | } else { | } else { |
| 151 | remove_tree($dir); | rmtree($dir); |
| 152 | if ( ! -d $dir ) { | if ( ! -d $dir ) { |
| 153 | ok; | ok; |
| 154 | } else { | } else { |
| # | Line 159 L<http://wiki.apache.org/couchdb/HTTP_da | Line 159 L<http://wiki.apache.org/couchdb/HTTP_da |
| 159 | if ( -e $dir ) { | if ( -e $dir ) { |
| 160 | $status = 412; | $status = 412; |
| 161 | } else { | } else { |
| 162 | make_path($dir); | mkpath($dir); |
| 163 | if ( -e $path ) { | if ( -e $path ) { |
| 164 | ok; | ok; |
| 165 | $status = 201; | $status = 201; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |