You can support the outanekka.KIESS.ONL — online multiuser image display solution with additional features! development as well as take a share of the server hosting costs by donating a small amount of money.
The outanekka base arrived at version 0.9.0.16 and is developed by Adrian Immanuel Kieß.
You can contact Adrian Immanuel Kieß under:
Outanekka is the so called summary of all those below listed modules and additional files:
)/gemo; #s/outanekka(?:\s|\n)/&news::lucky("\/outanekka\/","dac\'s outanekka",1
6; our $LASTEDIT = '20.07.1
AUTHOR Adrian Immanuel Kiess - < http://www.kiess.onl > =cut 1
SEE ALSO L<perlpod>, L<perlpodspec> =cut 1
; #$PATH_CACHES =~ m/$PATH_REGEX/; #$PATH_CACHES = $1
NAME theme.pm =head1
6384; our $accountId = (); # set to user id our $accountNick = (); # set to user nick our $accountLevel = (); # set to rightslevel our $sessionKey = (); =head2 FUNCTIONS =over 4 =item run() run() is called from html.pm. =cut sub run { if ($Q_MODULE and $Q_MODULE eq $MODULE) { my $o; my $v = $q->p(&about::module::moduleVersion($MODULE, $VER) . &about::module::moduleVersion($MODULE . "::account", $user::account::VER) . &about::module::moduleVersion($MODULE . "::page", $user::page::VER) . &about::module::moduleVersion($MODULE . "::profile", $user::profile::VER) . &about::module::moduleVersion($MODULE . "::session", $user::session::VER)); if ($Q_ACTION) { for ($Q_ACTION) { /^account$/ && do { $o .= &user::page::account(); last; }; /^accountedit$/ && do { $o .= &user::page::accountedit(); last; }; /^delete$/ && do { $o .= &user::page::delete(); last; }; /^list$/ && do { $o .= &user::page::list(); last; }; /^listedit$/ && do { $o .= &user::page::listedit(); last; }; /^login$/ && do { $o .= &user::page::login(); last; }; /^logout$/ && do { $o .= &user::page::logout(); last; }; /^passwordrequest$/ && do { $o .= &user::page::passwordrequest(); last; }; /^profile$/ && do { $o .= &user::page::profile(); last; }; /^profileedit$/ && do { $o .= &user::page::profileedit(); last; }; /^signup$/ && do { $o .= &user::page::signup(); last; }; $o .= &user::page::list(); } } else { $o .= &user::page::list(); } return ($o ? $o : "") . $v; } } =head1
AUTHOR Adrian Immanuel Kiess - < http://www.kiess.onl/ > =cut 1
2; use basic 0.9.0.1
SYNOPSIS A outanekka module. =head1
DESCRIPTION The guestbook module allows unauthorized users to leave their opinion. A superuser can edit and delete entries. In conclution it is - well, a simple guestbook. =head2 STATUS The status is considered stable. =cut BEGIN { my @sql = ( qq{CREATE TABLE IF NOT EXISTS guestbook ( id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT, opinion TEXT, email TINYTEXT, unixtime BIGINT UNSIGNED default NULL, PRIMARY KEY (id) ); }, #qq{ALTER TABLE guestbook MODIFY COLUMN id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT;}, ); for (@sql) { my $sth = $main::dbh->prepare($_) or die $main::dbh->errstr; $sth->execute or die $main::dbh->errstr; $sth->finish; } } $| = 1
6; our $LASTEDIT = '20.09.23'; our $VER = sprintf("%vd", $VERSION); our $MODULE = \$about::MODULE; our $REF = \$about::REF; our $PATH_MODULES = \$about::PATH_MODULES; our $Q_MODULE = \$about::Q_MODULE; our $Q_ACTION = \$about::Q_ACTION; =item viewModules() viewModules() prints random portions of source code from outanekka as page output. =cut sub viewModules { my @modules = &about::module::modules($$PATH_MODULES); my $o; $o .= $q->h1
############################################################################### # Author: Adrian Immanuel Kiess < adrian at kiess.onl > # License: BSD, see LICENSE file # What: Module for outanekka.kiess.onl ############################################################################### package about::module; use strict; use warnings; use CGI qw/:standard escapeHTML -utf8/; use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout set_message set_die_handler confess); use File::Find qw(find); use about::page; =head1
############################################################################### # Author: Adrian Immanuel Kiess < adrian at kiess.onl > # License: BSD, see LICENSE file # What: Module for outanekka.kiess.onl ############################################################################### package guestbook::page; use strict; use warnings; use CGI qw/:standard escapeHTML -utf8/; use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout set_message set_die_handler confess); use POSIX qw/strftime/; use Encode qw(decode_utf8); use guestbook; use guestbook::opinion; =head1
NAME guestbook::opinion.pm =head1
; # vim: noai:sts=2 sw=2 ts=2 # # EOF
AUTHOR Adrian Immanuel Kiess - < http://www.kiess.onl/ > =cut 1
, # $newNick, # $newPassword, # $rightslevel) or die $::dbh->errstr; $sth = $::dbh->prepare(qq{ INSERT INTO $$MODULE ( created, impressions, nick, password, rightslevel) VALUES (?, ?, ?, ?, ?) }) or die $::dbh->errstr; $sth->execute( $^T, 1
############################################################################## # Author: Adrian Immanuel Kiess < adrian at kiess.onl > # License: BSD, see LICENSE file # What: Module for outanekka.kiess.onl ############################################################################### package user::session; use strict; use warnings; use CGI qw/:standard escapeHTML -utf8/; use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout set_message set_die_handler confess); use POSIX qw/strftime/; use Digest::MD5 qw(md5_hex); use user; use user::account; =head1
00; last; }; m/image\/x-webp/ && do { $imageOut = $imageOut . "\.webp"; $mimeOut = "image/x-webp"; last; }; $imageOut = $imageOut . "\.jpeg"; $mimeOut = "image/jpeg"; } } # Crop the resulting image my $cropSpectrum = 1
]->{'id'}) ? $pathUrl . $albumImages[$albumWhere - 1
NAME imagery::page.pm =head1
00; last; }; m/image\/x-webp/ && do { $imageOut = $imageOut . "\.webp"; $mimeOut = "image/x-webp"; last; }; $imageOut = $imageOut . "\.jpeg"; $mimeOut = "image/jpeg"; } } # Crop the resulting image my $cropSpectrum = 1
NAME imagery::daily.pm =head1
NAME imagery::quota.pm =head1
, -maxlength=>$$MESSAGE_MAX), $q->submit(-label=>'shout >>'), $q->end_form(), &text::formattingRules()); } else { $o .= p(i("Please " . &user::account::loginLink() . " to submit a message.")); } $sth = $::dbh->prepare(qq{ SELECT id, message, user_id, unixtime FROM $$MODULE ORDER BY id DESC LIMIT ?,? }) or warn $::dbh->errstr; $sth->execute($skip,$$SKIP_PAGE) or warn $::dbh->errstr; while ( $href = $sth->fetchrow_hashref ) { $o .= &chatbox::message::link($href->{id}, $href->{user_id}, $href->{message}, $href->{unixtime} ); } $count = &chatbox::message::count(); if ($count) { my ($navigation, $skip) = &basic::navigation($count,$$REF,"messages",$$SKIP_PAGE); return $o . $navigation . $q->p({-class=>'textbox-subformation'}, "This page automatically refreshes every $$PAGE_REFRESH seconds." ); } else { return $o . $q->p($q->i("Yet no chat messages. Feel free to stress the input field.")); } } =item slider() slider() displays some little messages in the corner of the main website. =cut sub slider { my $o; my $messages; my $sth; my @query_array = split(/;/, $q->query_string); my $hiddenFields; foreach my $field (@query_array) { $field =~ s/=(.*)$//g; $hiddenFields .= $q->hidden($field) if $field ne "chatboxMessage"; } if (&user::session::hasSession()) { $o .= $q->start_multipart_form({-action=>$$REF, -style=>'text-align:center;', -method=>''}) . ($hiddenFields ? $hiddenFields : "") . "< " . $q->b($q->a({-href=>$$REF."history"},"history")) . " > ♣ " . "your message:" . $q->br(). $q->textfield(-style=>'width:1
; } else { &basic::failureMessage("Message not deleted", "The message \#$id could " . $q->b("not") . " be deleted."); } } return undef; } =item link() link() formats the message for output to the user. =cut sub link { my $id = shift; my $uid = shift; my $msg = shift; my $unixtime = shift; if ($id and $uid and $msg) { my $o; if ($unixtime) { my $gmtime = strftime "%b %d, %R", gmtime($unixtime); if (&user::session::getAccountLevel() >= 255) { $o .= $q->small(" [ " . $q->a({-href=>$$REF."delete/$id"},"delete " . $q->b("↵")) . " ] "); } $o .= $q->i($gmtime); } $msg = &text::formattedText($msg); $msg = &text::insertSpaces($msg,'1