package editor::gensource;
use utf8;
use strict;
use warnings;
sub new {bless {},shift};
sub automata {
my $self=shift;
return 1;
};
sub wikisrc {
my $self=shift;
my $fname=shift;
my $text=shift;
my $src='syntaxhighlight';
return <<WIKI;
== $fname forráskódja ==
<$src lang='perl'>
$text
</$src>
<small>[[:en:WTFPL]]</small>
WIKI
};
sub edit {
my $self=shift;
my $title=shift;
my $text=shift;
my $fname;
if ($title =~ /^Szerkesztő:$main::setup->{username}\/src\/([\w\/]+\.p[ml])$/) {
$fname=$1;
open F,"<:utf8",$fname;
local $/=undef;
$text=<F>;
close F;
$text=$self->wikisrc($fname,$text);
} else {
die "Unexpected title: '$title'";
};
return {
summary=>"$fname upload",
text=>$text,
notminor=>1,
nocreate=>1,
};
};
1;
