Wikipedia

User:AnomieBOT/source/tasks/SourceUploader/Pod.pm: Difference between revisions

Browse history interactively
← Previous edit
Content deleted Content added
VisualWikitext
AnomieBOT (talk | contribs)
Bots
6,862,354 edits
Updating published sources: SourceUploader: * Change "warning" omboxes to use type=content, even though the border is overridden anyway.
AnomieBOT (talk | contribs)
Bots
6,862,354 edits
Updating published sources: TagDater: * When check_page2 was split from check_page for unit testing purposes, some function calls weren't updated properly so check_page() was getting called with wrong arguments. General: * Apparently @_ holds implicit...
 
(4 intermediate revisions by the same user not shown)
Line 1:
<sourcesyntaxhighlight lang="perl">
package tasks::SourceUploader::Pod;
 
Line 13:
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->encoding( 'utf8' ) if $self->can('encoding');
$self->accept_targets('*');
$self->{'stack'}=[];
Line 33 ⟶ 34:
target=>$_[1]{'target'},
para=>[],
line=>exists($_[1]{'line_number'})?$_[1]{'line_number'}: // $self->line_count
};
} elsif($_[0] eq 'Data'){
Line 47 ⟶ 48:
$s=$s->[$#$s]{'para'};
return unless @$s;
my $txt = $_[0]=~s/\r\n/\n/g;
$_[0]txt=~s/\r\n/\n/g;
$txt=~s->[$#$s].=$_[0]/\r/\n/g;
$s->[$#$s].=$txt;
}
 
Line 74 ⟶ 76:
s/^\s*|\s*$//g;
if(!/^(\S+?):\s*(.*)$/){
$self->whinedie($line, "Bad header line in metadata block at $line");
next;
}
Line 85 ⟶ 87:
}
my $text=join("\n\n", @para);
$text=~s/([^\n])\n(?=[a-zA-Z0-9< ])/$1 /g; # unwrap lines
$metadata{'*'}=$text;
$self->{'metadata'}=\%metadata;
Line 113 ⟶ 115:
1;
 
</syntaxhighlight>
</source>
Retrieved from "https://en.wikipedia.org/wiki/User:AnomieBOT/source/tasks/SourceUploader/Pod.pm"