remove cache

* remove cache, cache setup is not easy, todays servers do not really
* need it anymore
* add prototypes and fix parameter issues
* suppress redefinition
This commit is contained in:
Milan
2019-04-13 20:31:25 +02:00
parent e90ea3929d
commit d3fc5f998a
81 changed files with 3190 additions and 20267 deletions

View File

@@ -1,7 +1,8 @@
package creole_wiki;
use warnings;
use strict;
use warnings;
no warnings 'redefine';
use Data::Dumper;
use markup();
@@ -10,7 +11,7 @@ use base 'Exporter';
our @EXPORT_OK = qw(extractEventFromWikiText removeMeta eventToWikiText extractMeta removeMeta metaToWiki);
#convert creole wiki text to event
sub extractEventFromWikiText {
sub extractEventFromWikiText($;$) {
my $params = shift;
my $event = shift;
$event = {} unless ( defined $event );
@@ -134,7 +135,7 @@ sub extractEventFromWikiText {
return $event;
}
sub eventToWikiText {
sub eventToWikiText($$) {
my $event = shift;
my $local_media_url = $event->{local_media_url} || '';
@@ -195,7 +196,7 @@ sub eventToWikiText {
}
#extrace meta tags from comment text
sub extractMeta {
sub extractMeta ($$){
my $comments = shift;
my $meta = shift;
@@ -236,7 +237,7 @@ sub extractMeta {
}
#remove meta tags from comment text
sub removeMeta {
sub removeMeta($) {
my $comments = shift || '';
my $result = '';