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.

    );/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

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

     NAME
    
    config.pm
    
    =head1

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

    .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

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

    ;		
    
    our $q = new CGI; 
    our $VERSION = 0.9.0.1

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

    024;
    
    $Q_PATH =~ $imagery::PATH_REGEX;
    $Q_PATH = $1

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

    ;		
    
    our $q = new CGI;
    our $VERSION = 0.9.0.1

  7. user is v0.9.0.16, last edit: 20.07.14.

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

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

    ;
    
    our $q = new CGI; 
    our $VERSION = 0.9.0.1

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

    2;
    use chatbox::page 0.9.0.1

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

    50,1

  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.

    ("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

  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.

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

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

    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

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

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

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

    ("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

  18. user::account 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::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

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

     SYNOPSIS
    
    A outanekka user module.
    
    =head1

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

    .1

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

    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

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

    ;
    
    our $q = new CGI; 
    our $VERSION = 0.9.0.1

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

    ;
    				my $newAlbumIterator = $newAlbum;
    				$newAlbum = undef;
    
            while ($newAlbumIterator =~ m/($$PATH_REGEX)/ig) {
              $newAlbum .= $1

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

     SYNOPSIS
    
    A outanekka module.
    
    =head1

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

     : return undef; 
    }
    
    =item verifyFreeSpace()
    
    verifyFreeSpace()
    
    =cut
    
    sub verifyFreeSpace {
      my $uid = shift;
    
      confess unless $uid;
    
      ((&freeSpace($uid) > 0) 
    	  or (&user::session::getAccountLevel() >= 255)) ? return 1

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

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

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

     NAME
    
    chatbox::message.pm
    
    =head1

about v0.9.0.12
about::module v0.9.0.16
about::page v0.9.0.16

135953
impressions since May 18, 2019
49 images

m2n-lan-dac-running-netbsd-9-with-xfce-screenshot_2020-04-20_11-16-00.png by adrian, 34725 impressions dp.jpeg by adrian, 5181 impressions 1 - tmRqzk4.jpeg by adrian, 4912 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 · nuser · …

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.02 usr + 0.01 sys = 0.03 CPU)
2  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
     0  93796 ( 93796)  41888 ( 41888)  14568 ( 14568)   1552 (  1552)  27208 ( 27208) after start
     0  94208 (   412)  42152 (   264)  14568 (     0)   1552 (     0)  27620 (   412) near exit