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:
);/gi; } return $text; } else { return undef; } } =item insertSpaces() insertSpaces() inserts repeatedly a space at a given location of a string. =cut sub insertSpaces { my $text = shift || ""; my $where = shift || '80'; if ($text =~ m/(\S+)/gi) { my $found = $1
NAME config.pm =head1
.29'; our $VER = sprintf("%vd", $VERSION); our $REF = $conf::sitePath; our $NAME = $conf::siteName; our $Q_MODULE = $q->param('module'); our $Q_ACTION = $q->param('action'); our $MODULE = __PACKAGE__; =head2 FUNCTIONS =over 4 =item run() run() is called from index.pl. =cut sub run { if (!$Q_MODULE or ($Q_MODULE and $Q_MODULE eq 'theme')) { my $v = $q->p({-class=>'about-modules'}, &about::module::moduleVersion($MODULE, $VER) . &about::module::moduleVersion('basic', $basic::VER) . &about::module::moduleVersion('config', $config::VER) . &about::module::moduleVersion('html', $html::VER) . &about::module::moduleVersion('text', $text::VER) . &about::module::moduleVersion('theme', $theme::VER)); return &home::page() . $v; } } =item page() page() prints the homepage. =cut sub page { return # $q->h1
; our $q = new CGI; our $VERSION = 0.9.0.1
024; $Q_PATH =~ $imagery::PATH_REGEX; $Q_PATH = $1
; our $q = new CGI; our $VERSION = 0.9.0.1
; # vim: noai:sts=2 sw=2 ts=2 # # EOF
; our $q = new CGI; our $VERSION = 0.9.0.1
2; use chatbox::page 0.9.0.1
50,1
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
("About " . $::conf::siteTitle ) . $q->h2({-id=>'support'},"support and donate") . $q->p("You can support the " . $::conf::siteTitle . " development as well as take a share of the server hosting costs" . " by " . $q->a({-href=>'https://www.paypal.me/adriankiess'}, "donating a small amount of money") . ".") . $q->h2({-id=>'modules'},"about outanekka") . $q->p("The " . $q->i("outanekka base") . " arrived at " . $q->tt("version", $q->b($::VER)) . " and is developed by " . $::conf::siteAuthor . ".") . $q->p(" You can contact " . $::conf::siteAuthor . " under: " ) . $q->ol( $q->li("E-Mail: " . $q->a({-href=>'mailto:' . $::conf::siteContact . '?Subject=Request from ' . $::conf::siteName},$::conf::siteContact)) . $q->li(" XMPP: " . $q->a({-href=>'xmpp:' . $::conf::siteContactXMPP . '?Request from ' . $::conf::siteName},$::conf::siteContact)) . $q->li(" Website: " . $q->a({-href=>$::conf::siteAuthorUrl},$::conf::siteAuthorUrl)) ) . $q->p("Outanekka is the so called summary of all those below listed modules and " . "additional files:" ); $o .= $q->start_ol(); foreach (@modules) { if ($_ and ($_ =~ m/\.pm$/)) { my $moduleInfo = &about::module::moduleInfo($_); if ($moduleInfo) { $o .= $moduleInfo; } else { } $o .= $o .= $_ if $_; } } return ($o ? $o : "") . $q->end_ol(); } =head1
############################################################################### # 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
, -rows=>'20', -cols=>'70', -default=>$href->{opinion}, -name=>'opinion', -maxlength=>$OPINION_MAX}) ). $q->p({style=>'text-align:right'}, $q->submit('submit changes >>') ). $q->end_form(); } } } return undef; } =item remove() remove() removes a opinion from the guestbook. =cut sub remove { my $id = shift || $$Q_ID; if ($id and ($id =~ m/^(\d+)$/) and (&user::session::getAccountLevel >= 255) and &guestbook::opinion::remove($id)) { return 1
4'; our $MODULE = \$guestbook::MODULE; our $VER = sprintf("%vd", $VERSION); our $REF = \$guestbook::REF; our $Q_MODULE = \$guestbook::Q_MODULE; our $Q_ACTION = \$guestbook::Q_ACTION; our $Q_ID = \$guestbook::Q_ID; our $OPINION_MIN = \$guestbook::OPINION_MIN; our $OPINION_MAX = \$guestbook::OPINION_MAX; our $SKIP = \$guestbook::SKIP; $CGI::POST_MAX = ($$OPINION_MAX * 1
AUTHOR Adrian Immanuel Kiess - < http://www.kiess.onl/ > =cut 1
("Password Request") . $q->h2("request password from " . $main::conf::siteName) . $q->p("It is easy! Only this one step and you are set.") . $q->start_form({-action=>$$REF . "passwordrequest"}) . $q->hidden('module') . $q->hidden('action') . $q->hidden('verify') . $q->p("Your " . $q->b("user nick (account)") . ":" . $q->br() . $q->textfield( -name=>'nick', -value=>'', #-size=>'32', -maxlength=>$$NICK_LENGTH_MAX, -style=>'width:256px;') . $q->Sub(" e.g. ") . $randomNick ). $q->p("Your " . $q->b("email") . ":" . $q->br() . $q->textfield( -name=>'email', -value=>'', #-size=>'32', -maxlength=>254, -style=>'width:256px;') . $q->Sub(" e.g. ") . $randomNick . "\@" . $::conf::siteName ). $q->p("Your " . $q->b("email again") . ":" . $q->br() . $q->textfield( -name=>'email_again', -value=>'', #-size=>'32', -maxlength=>254, -style=>'width:256px;')) . $q->p("Verify code: " . $q->span({-class=>'verify-code'},$verify)) . $q->p("Retype " . $q->b("verify code") . ":" . $q->br() . $q->textfield( -name=>'verify_input', -value=>'', #-size=>'32', -maxlength=>254, -style=>'width:256px;'). $q->Sub(" type ") . $verify ). $q->p( $q->submit(-style=>'padding-left: 24px; padding-right: 24px;', -label=>"request password >>") ). $q->end_form() . $q->br() . $q->div({-class=>'textbox'}, $q->div({-class=>'textbox-title'},"please note") . $q->div({-class=>'textbox-content',-style=>'padding-left:24px'}, $q->li("You only can request your " . $q->i("password ") . "if you deposited your " . $q->i("e-mail") . " with " . $::conf::siteName . ".") . $q->li("Your " . $q->i("account ") . "name can only consist out of minimal " . $$NICK_LENGTH_MIN . " and maximal " . $$NICK_LENGTH_MAX . " word or digit characters [a-zA-Z0-9].") ) ); #&basic::getHTMLFile("user--why-signup.html"); } } =item slider() slider() returns statistics about the users of outanekka. =cut sub slider { return $q->div({-class=>'slider-title'}, $q->a({-href=>$$REF.'list/'}, &user::account::count() . ' users')) . $q->div({-class=>'slider-right', -style=>'text-align:center;'}, $q->p('we welcome' . $q->br(), &user::session::lastSignupsLinks(1
############################################################################### # Author: Adrian Immanuel Kiess < adrian at kiess.onl > # License: BSD, see LICENSE file # What: Module for outanekka.kiess.onl ############################################################################### package user::account; 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 contributed::Random; use user; =head1
SYNOPSIS A outanekka user module. =head1
.1
048576) if $size > 0; # $size = sprintf("%.2f",$size); # Size im MB # # return $size; #} #sub getAvrgSize { # #my ($sth); # #my $avrg_size = $count_images ? int ($sum_size / $count_images) : 0; # # #$sum_size = int( $sum_size / 1
; our $q = new CGI; our $VERSION = 0.9.0.1
; my $newAlbumIterator = $newAlbum; $newAlbum = undef; while ($newAlbumIterator =~ m/($$PATH_REGEX)/ig) { $newAlbum .= $1
SYNOPSIS A outanekka module. =head1
: return undef; } =item verifyFreeSpace() verifyFreeSpace() =cut sub verifyFreeSpace { my $uid = shift; confess unless $uid; ((&freeSpace($uid) > 0) or (&user::session::getAccountLevel() >= 255)) ? return 1
, -default=>'', -name=>'chatboxMessage', -maxlength=>$$MESSAGE_MAX) . $q->end_form(); } else { $o .= $q->div({-style=>'text-align:center; font-style:italic; font-size:smaller;'}, "Please " . &user::account::loginLink() . " to write messages!"); } $sth = $::dbh->prepare(qq{ SELECT id, user_id, message FROM $$MODULE ORDER BY id DESC LIMIT ? }) or die $::dbh->errstr; $sth->execute($$SKIP_SLIDER) or die $::dbh->errstr; while ( my $ref = $sth->fetchrow_hashref ) { $messages = &chatbox::message::link($ref->{id}, $ref->{user_id}, $ref->{message}) . ($messages ? $messages : ""); } if (!$messages) { $messages = $q->p($q->i("Yet no chat messages." . $q->br(). "Be the first to write a chat message!")); } return "\n\n<!-- " . $$MODULE . " :: slider -->\n\n". $q->div({-class=>"slider-title"}, $q->a({-href=>$$REF}, &chatbox::message::count() . ' messages') ) . $q->div({-class=>"slider-right"}, $q->p($messages) . $q->p($o) ); } =head1
NAME chatbox::message.pm =head1