forked from github/kensanata.oddmuse
14b763f3c7
expected to return undef when they did not match, and the empty string if a dirty block was produced.
13 lines
229 B
Perl
13 lines
229 B
Perl
push( @MyRules, \&DownloadSupportRule );
|
|
|
|
# [[download:page name]]
|
|
|
|
sub DownloadSupportRule {
|
|
if (m!\G(\[\[download:$FreeLinkPattern\]\])!gc) {
|
|
Dirty($1);
|
|
print GetDownloadLink($2);
|
|
return '';
|
|
}
|
|
return undef;
|
|
}
|