Spickerrrrrrrrrrr!

Check-in [e78310f82c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Unnötiges use raus
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA3-256: e78310f82cecba5cfac995745a0f7cf520f117a040902f6732078306e55c86ce
User & Date: Cthulhux 2019-09-05 09:04:54
Context
2019-09-05
09:04
Unnötiges use raus Leaf check-in: e78310f82c user: Cthulhux tags: trunk
00:37
panic() entschärft check-in: 1c18cef17d user: Cthulhux tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to spicker.pl.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
..
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
..
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

package webspicker;

use strict;
use warnings;
use utf8;

use Mojo::JSON qw(decode_json);
use Mojo::UserAgent;
use Mojolicious::Lite;

our $APIURL = 'https://spickerrr.piraten-tools.de/api/';

# ----------------------------------------------------
# Routing
................................................................................
    # AJAX-Anfrage: Liste der Anträge
    my $c = shift;
    my $parteitag = $c->stash('parteitag');
    
    if ($parteitag ne 'dummy') {    
        my $ua  = Mojo::UserAgent->new;
        my $url = "${APIURL}book/${parteitag}/motions";
	    
        $c->render(json => $ua->get($url)->result->json);
    }
};

post '/Parteitag/:parteitag/Antrag/:antrag' => sub {
    # AJAX-Anfrage: Antrag :antrag für Parteitag :parteitag
    my $c = shift;
................................................................................
                $needle_location = $idx;
                last;
            }
        }
        
        # Der gesuchte Antrag steht jetzt in $antraege->[$needle_location].
        # Aufbereiten für die Anzeige:
	    my $antrag = $antraege->[$needle_location];
	    
	    # Im Antragstext könnten Wikilinks drin sein. Bäh ... :-)
	    my $antragstext = $antrag->{text};
	    $antragstext =~ s/<a href="(\\)?\//<a href="https:\/\/wiki.piratenpartei.de\//g;
	    
	    # Der Link zum Autor ist vermutlich auch falsch.
	    my $author = $antrag->{author};
	    $author =~ s/<a href="(\/)?Benutzer:/<a target="_blank" href="https:\/\/wiki.piratenpartei.de\/Benutzer:/g;
	    
	    $c->content_for(author => $author);
	    $c->stash(origlink => $antrag->{url});
	    $c->stash(antragsid => $antrag->{id});
	    $c->stash(title => $antrag->{title});
	    $c->content_for(antrag => $antragstext);
	    $c->content_for(begruendung => $antrag->{remarks});
	    
        $c->render(template => 'antrag');
    }
};

app->start;







<







 







|







 







|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|





2
3
4
5
6
7
8

9
10
11
12
13
14
15
..
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
..
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

package webspicker;

use strict;
use warnings;
use utf8;


use Mojo::UserAgent;
use Mojolicious::Lite;

our $APIURL = 'https://spickerrr.piraten-tools.de/api/';

# ----------------------------------------------------
# Routing
................................................................................
    # AJAX-Anfrage: Liste der Anträge
    my $c = shift;
    my $parteitag = $c->stash('parteitag');
    
    if ($parteitag ne 'dummy') {    
        my $ua  = Mojo::UserAgent->new;
        my $url = "${APIURL}book/${parteitag}/motions";
        
        $c->render(json => $ua->get($url)->result->json);
    }
};

post '/Parteitag/:parteitag/Antrag/:antrag' => sub {
    # AJAX-Anfrage: Antrag :antrag für Parteitag :parteitag
    my $c = shift;
................................................................................
                $needle_location = $idx;
                last;
            }
        }
        
        # Der gesuchte Antrag steht jetzt in $antraege->[$needle_location].
        # Aufbereiten für die Anzeige:
        my $antrag = $antraege->[$needle_location];
        
        # Im Antragstext könnten Wikilinks drin sein. Bäh ... :-)
        my $antragstext = $antrag->{text};
        $antragstext =~ s/<a href="(\\)?\//<a href="https:\/\/wiki.piratenpartei.de\//g;
        
        # Der Link zum Autor ist vermutlich auch falsch.
        my $author = $antrag->{author};
        $author =~ s/<a href="(\/)?Benutzer:/<a target="_blank" href="https:\/\/wiki.piratenpartei.de\/Benutzer:/g;
        
        $c->content_for(author => $author);
        $c->stash(origlink => $antrag->{url});
        $c->stash(antragsid => $antrag->{id});
        $c->stash(title => $antrag->{title});
        $c->content_for(antrag => $antragstext);
        $c->content_for(begruendung => $antrag->{remarks});
        
        $c->render(template => 'antrag');
    }
};

app->start;