package IIa66da94aed9b371a0ee16b72f938ea09::tag_rmurl; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $url = $attr->{url} or $this->harakiri('url?'); my $mapper = $attr->{mapper} or $this->harakiri('mapper?'); $this->evaluate for $url, $mapper; my $classSer = II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($IIb39071a48a82a07eeb9256f406abebc5::IIIllllIllIlIIIl{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},1004,$IIb39071a48a82a07eeb9256f406abebc5::IIIllllIllIlIIIl{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl}); $this->addCode('{'); $this->addCode(qq/require $mapper;/); $this->addCode(qq(die "url must start with http://" unless "$url" =~ m|^http://|;)); $this->addCode(qq/my \$file = $mapper\->url2file("$url");/); $this->addCode(qq/require $classSer;/); $this->addCode(qq/$classSer\->drop(\$file);/); $this->addCode('}'); return; } 1; 