About outanekka.KIESS.ONL — online multiuser image display solution with additional features!

support and donate

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.

about outanekka

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:

text is v0.9.0.16, last edit: 20.07.14.

)/gemo;
      #s/outanekka(?:\s|\n)/&news::lucky("\/outanekka\/","dac\'s outanekka",1

config is v0.9.0.16, last edit: 20.07.15.
```
6;
our $LASTEDIT = '20.07.1
```

home is v0.9.0.18, last edit: 20.11.29.

 AUTHOR

Adrian Immanuel Kiess - < http://www.kiess.onl >

=cut

1

chatbox is v0.9.0.12, last edit: 19.04.28.

 SEE ALSO

L<perlpod>, L<perlpodspec>

=cut

1

imagery is v0.9.0.16, last edit: 20.07.19.

;
#$PATH_CACHES =~ m/$PATH_REGEX/;
#$PATH_CACHES = $1

theme is v0.9.0.13, last edit: 20.04.13.
```
 NAME

theme.pm

=head1
```

user is v0.9.0.16, last edit: 20.07.14.

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

about is v0.9.0.12, last edit: 19.04.16.

 AUTHOR

Adrian Immanuel Kiess - < http://www.kiess.onl/ >

=cut

1

html is v0.9.0.18, last edit: 20.11.29.
```
2;
use basic 0.9.0.1
```
basic is v0.9.0.12, last edit: 19.05.09.
```
 SYNOPSIS

A outanekka module.

=head1
```

guestbook is v0.9.0.16, last edit: 20.07.14.

 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::page is v0.9.0.16, last edit: 20.09.23.

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

about::module is v0.9.0.16, last edit: 20.07.15.

###############################################################################
# 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

guestbook::page is v0.9.0.16, last edit: 20.07.14.

###############################################################################
# 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

guestbook::opinion is v0.9.0.16, last edit: 20.07.14.
```
 NAME

guestbook::opinion.pm

=head1
```
user::profile is v0.9.0.16, last edit: 20.07.20.
```
;

# vim: noai:sts=2 sw=2 ts=2
#
# EOF
```

user::page is v0.9.0.16, last edit: 20.07.21.

 AUTHOR

Adrian Immanuel Kiess - < http://www.kiess.onl/ >

=cut

1

user::account is v0.9.0.16, last edit: 20.07.21.

, 
				#		$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

user::session is v0.9.0.16, last edit: 20.07.21.

##############################################################################
# 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

imagery::thumb is v0.9.0.16, last edit: 20.07.19.

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

imagery::image is v0.9.0.16, last edit: 20.09.23.

]->{'id'}) ? 
		    $pathUrl . $albumImages[$albumWhere - 1

imagery::page is v0.9.0.18, last edit: 20.11.29.
```
 NAME

imagery::page.pm

=head1
```

imagery::album is v0.9.0.16, last edit: 20.07.19.

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

imagery::daily is v0.9.0.18, last edit: 20.11.29.
```
 NAME

imagery::daily.pm

=head1
```
imagery::quota is v0.9.0.16, last edit: 20.07.15.
```
 NAME

imagery::quota.pm

=head1
```

chatbox::page is v0.9.0.16, last edit: 20.07.14.

,
	                  -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")) . " > &clubs; " .
        "your message:" . $q->br().
        $q->textfield(-style=>'width:1

chatbox::message is v0.9.0.12, last edit: 19.04.28.

;
    }
    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("&nbsp;[&nbsp;" .
				  $q->a({-href=>$$REF."delete/$id"},"delete " . $q->b("&crarr;")) . "&nbsp;] ");
      }
      
      $o .= $q->i($gmtime);
    }
    
    $msg = &text::formattedText($msg);
		$msg = &text::insertSpaces($msg,'1

about v0.9.0.12

about::module v0.9.0.16

about::page v0.9.0.16