ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/ActiveDoc/SimpleXMLURLDoc.pm
(Generate patch)

Comparing COMP/SCRAM/src/ActiveDoc/SimpleXMLURLDoc.pm (file contents):
Revision 1.5 by sashby, Fri Feb 10 18:10:14 2006 UTC vs.
Revision 1.10 by muzaffar, Fri Dec 14 09:03:44 2007 UTC

# Line 30 | Line 30 | URL handling.
30   =cut
31  
32   package ActiveDoc::SimpleXMLURLDoc;
33 +
34 + BEGIN
35 +   {
36 +   die "\n\n".__PACKAGE__.": this package can be dropped from releases.\n\n";
37 +   }
38 +
39   use ActiveDoc::SimpleXMLDoc;
40   use URL::URLhandler;
41   require 5.004;
# Line 119 | Line 125 | sub urlget
125     return ($fullurl,$filename);
126     }
127  
128 + sub setbaseurl()
129 +   {
130 +   my $self=shift;
131 +   my ($partialurl)=@_;
132 +   return $self->urlhandler_()->setbase($partialurl);
133 +   }
134 +
135 + sub unsetbaseurl()
136 +   {
137 +   my $self=shift;
138 +   my ($type)=@_;
139 +   $self->urlhandler_()->unsetbase($type);
140 +   }
141 +
142   sub urlhandler_()
143     {
144     my $self=shift;
# Line 126 | Line 146 | sub urlhandler_()
146        : $self->{urlhandler};
147     }
148  
149 + sub parseerror()
150 +   {
151 +   my $self=shift;
152 +   my ($string)=@_;
153 +   die "Error in download: ",$string,"\n";
154 +   }
155 +
156   1;
157  
158   =back

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines