[Rt-commit] [svn] r1207 - in RTx-Atom: . html/Atom html/Atom/0.3 html/Atom/0.3/Elements html/Atom/0.3/NoAuth html/Atom/0.3/Set lib/RT

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Mon Jul 12 15:27:27 2004
New Revision: 1207

Added:
   RTx-Atom/html/Atom/0.3/index.html
   RTx-Atom/html/Atom/index.html
Removed:
   RTx-Atom/html/Atom/0.3/NoAuth/wd.png
Modified:
   RTx-Atom/   (props changed)
   RTx-Atom/Changes
   RTx-Atom/MANIFEST
   RTx-Atom/html/Atom/0.3/Elements/Error
   RTx-Atom/html/Atom/0.3/Set/Property
   RTx-Atom/html/Atom/0.3/autohandler
   RTx-Atom/html/Atom/0.3/dhandler
   RTx-Atom/lib/RT/Atom.pm
Log:
 ----------------------------------------------------------------------
 r5981 at not:  autrijus | 2004-07-12T19:25:45.597171Z
 
 * massive patches to get it run on vanilla mod_perl + apache 1.3.
 ----------------------------------------------------------------------
 r5982 at not:  autrijus | 2004-07-12T19:27:19.183374Z
 
 * bump version to 0.01.
 ----------------------------------------------------------------------


Modified: RTx-Atom/Changes
==============================================================================
--- RTx-Atom/Changes	(original)
+++ RTx-Atom/Changes	Mon Jul 12 15:27:27 2004
@@ -1,3 +1,7 @@
+[Changes for 0.01 - July 12, 2004]
+
+Made it working on Apache 1.3 + mod_perl.
+
 [Changes for 0.00_02 - May 19, 2004]
 
 Object cache expiry for Get/Property now works.

Modified: RTx-Atom/MANIFEST
==============================================================================
--- RTx-Atom/MANIFEST	(original)
+++ RTx-Atom/MANIFEST	Mon Jul 12 15:27:27 2004
@@ -14,6 +14,7 @@
 html/Atom/0.3/Get/Object
 html/Atom/0.3/Get/Property
 html/Atom/0.3/index
+html/Atom/0.3/index.html
 html/Atom/0.3/NoAuth/autohandler
 html/Atom/0.3/NoAuth/feed.css
 html/Atom/0.3/NoAuth/pod.css
@@ -24,6 +25,7 @@
 html/Atom/0.3/Set/Property
 html/Atom/0.3/Update/index
 html/Atom/dhandler
+html/Atom/index.html
 inc/ExtUtils/AutoInstall.pm
 inc/Module/Install.pm
 inc/Module/Install/AutoInstall.pm

Modified: RTx-Atom/html/Atom/0.3/Elements/Error
==============================================================================
--- RTx-Atom/html/Atom/0.3/Elements/Error	(original)
+++ RTx-Atom/html/Atom/0.3/Elements/Error	Mon Jul 12 15:27:27 2004
@@ -2,7 +2,7 @@
 $r->content_type('text/html');
 $r->headers_out->{$_} = $ARGS{$_} for sort keys %ARGS;
 $r->status($Status);
-$m->abort($Status) unless $ENV{FCGI_ROLE};
+$m->abort unless $ENV{FCGI_ROLE};
 </%INIT>
 <%ARGS>
 $Status => 500

Modified: RTx-Atom/html/Atom/0.3/Set/Property
==============================================================================
--- RTx-Atom/html/Atom/0.3/Set/Property	(original)
+++ RTx-Atom/html/Atom/0.3/Set/Property	Mon Jul 12 15:27:27 2004
@@ -1,8 +1,9 @@
 %# [PUT EditURI]
 %# Modifies a property with the serialization in the request body.
 <%INIT>
-my $content = $r->can('content') ? $r->content
-				 : do { local $/; <STDIN> };
+my $content;
+$content = $r->content if $r->can('content');
+$content = do { local $/; <STDIN> } unless defined $content;
 chomp($content);
 
 my ($status, $msg) = $m->comp(

Modified: RTx-Atom/html/Atom/0.3/autohandler
==============================================================================
--- RTx-Atom/html/Atom/0.3/autohandler	(original)
+++ RTx-Atom/html/Atom/0.3/autohandler	Mon Jul 12 15:27:27 2004
@@ -1,7 +1,7 @@
 %# Forbid direct access in this directory -- everything goes thru dhandler
 <%INIT>
-$r->content_type('text/html; charset=UTF-8');
-$m->abort(403);
+$m->notes(dhandler_arg => $r->path_info);
+return $m->comp('dhandler');
 </%INIT>
 <%FLAGS>
 inherit	=> undef

Modified: RTx-Atom/html/Atom/0.3/dhandler
==============================================================================
--- RTx-Atom/html/Atom/0.3/dhandler	(original)
+++ RTx-Atom/html/Atom/0.3/dhandler	Mon Jul 12 15:27:27 2004
@@ -52,8 +52,6 @@
 ) if $methods{Basic} and !$atom_client;
 
 my $CurrentUser;
-$CurrentUser = RT::CurrentUser->new;
-$CurrentUser->Load('root');
 
 my $headerParts = sub {
     my $header = $r->headers_in->{$_[0]} || $ENV{$_[0]};
@@ -207,7 +205,7 @@
 
 my $method = $r->method;
 
-my $path = $m->dhandler_arg;
+my $path = $m->notes('dhandler_arg') || $m->dhandler_arg;
 $path =~ s{/+(?:index\.html)?$}{}g;
 
 my $user_method;

Added: RTx-Atom/html/Atom/0.3/index.html
==============================================================================
--- (empty file)
+++ RTx-Atom/html/Atom/0.3/index.html	Mon Jul 12 15:27:27 2004
@@ -0,0 +1 @@
+<& index, %ARGS &>

Added: RTx-Atom/html/Atom/index.html
==============================================================================
--- (empty file)
+++ RTx-Atom/html/Atom/index.html	Mon Jul 12 15:27:27 2004
@@ -0,0 +1,4 @@
+<& dhandler, %ARGS &>
+<%FLAGS>
+inherit	=> undef
+</%FLAGS>

Modified: RTx-Atom/lib/RT/Atom.pm
==============================================================================
--- RTx-Atom/lib/RT/Atom.pm	(original)
+++ RTx-Atom/lib/RT/Atom.pm	Mon Jul 12 15:27:27 2004
@@ -1,5 +1,5 @@
 package RT::Atom;
-$RT::Atom::VERSION = '0.00_02';
+$RT::Atom::VERSION = '0.01';
 
 use strict;