outanekka.KIESS.ONL — online multiuser image display solution with additional features!
theme » relaxed · tek · unique ·
user:   password:

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:

  1. E-Mail: adrian@kiess.onl
  2. XMPP: adrian@kiess.onl
  3. Website: https://www.KIESS.ONL

Outanekka is the so called summary of all those below listed modules and additional files:

  1. text is v0.9.0.16, last edit: 20.07.14.

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

  2. config is v0.9.0.16, last edit: 20.07.15.

    6;
    our $LASTEDIT = '20.07.1

  3. home is v0.9.0.18, last edit: 20.11.29.

     AUTHOR
    
    Adrian Immanuel Kiess - < http://www.kiess.onl >
    
    =cut
    
    1

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

     SEE ALSO
    
    L<perlpod>, L<perlpodspec>
    
    =cut
    
    1

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

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

  6. theme is v0.9.0.13, last edit: 20.04.13.

     NAME
    
    theme.pm
    
    =head1

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

  8. about is v0.9.0.12, last edit: 19.04.16.

     AUTHOR
    
    Adrian Immanuel Kiess - < http://www.kiess.onl/ >
    
    =cut
    
    1

  9. html is v0.9.0.18, last edit: 20.11.29.

    2;
    use basic 0.9.0.1

  10. basic is v0.9.0.12, last edit: 19.05.09.

     SYNOPSIS
    
    A outanekka module.
    
    =head1

  11. 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

  12. 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

  13. 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

  14. 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

  15. guestbook::opinion is v0.9.0.16, last edit: 20.07.14.

     NAME
    
    guestbook::opinion.pm
    
    =head1

  16. user::profile is v0.9.0.16, last edit: 20.07.20.

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

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

     AUTHOR
    
    Adrian Immanuel Kiess - < http://www.kiess.onl/ >
    
    =cut
    
    1

  18. 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

  19. 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

  20. 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

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

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

  22. imagery::page is v0.9.0.18, last edit: 20.11.29.

     NAME
    
    imagery::page.pm
    
    =head1

  23. 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

  24. imagery::daily is v0.9.0.18, last edit: 20.11.29.

     NAME
    
    imagery::daily.pm
    
    =head1

  25. imagery::quota is v0.9.0.16, last edit: 20.07.15.

     NAME
    
    imagery::quota.pm
    
    =head1

  26. 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

  27. 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

153683
impressions since May 18, 2019
53 images

5645997854_deb257783c_o.jpeg by adrian, 6599 impressions tdz2000-lan-dac-running-netbsd-9-and-ctwm.png by adrian, 33120 impressions chrome.jpeg by adrian, 6837 impressions

30 messages

<adrian> Ja, Bugs bitte an adrian@kiess.onl senden. Danke.
<adrian> ß?üöä -- Umlauttest.
<adrian> öüäß©
<adrian> äüöß
<nuser> Ein kleiner Test!
<adrian> Hallo Welt!

Please log in to write messages!

6 users

we welcome
lapsangs · tanam · nuser · remus · moron · adrian · …

recently active
adrian · …

new images
adrian · lapsangs ·

outanekka.KIESS.ONL v0.9.0.16 (2001–2021) by Adrian Immanuel KießBSD licensed
Designed for the Mozilla browser ♦ outanekka.KIESS.ONL usage statistics
Perl code runtime: 0 wallclock secs ( 0.01 usr + 0.00 sys = 0.01 CPU)
2  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
     0  91764 ( 91764)  41920 ( 41920)  14584 ( 14584)   1552 (  1552)  27164 ( 27164) after start
     0  92336 (   572)  42448 (   528)  14584 (     0)   1552 (     0)  27736 (   572) near exit