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.

    6;
    our $LASTEDIT = '20.07.1

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

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

  3. home is v0.9.0.12, last edit: 19.05.02.

    2;
    our $LASTEDIT = '1

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

    ;
          }
          elsif ($action eq "delete") {
            my $delete = &chatbox::page::delete();
            #o .= $remove if $remove and $remove ne 1

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

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

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

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: BSD, see LICENSE file
    # What: Module for outanekka.kiess.onl
    ###############################################################################
    
    package theme;
    
    use strict;
    use warnings;
    
    use CGI qw/:standard escapeHTML -utf8/;
    use CGI::Carp	qw/fatalsToBrowser carpout set_message/;
    use contributed::Util qw/shuffle first/;
    
    =head1

  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.

    9.04.1

  9. html is v0.9.0.16, last edit: 20.09.23.

    2;
    use imagery::page 0.9.0.1

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

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: BSD, see LICENSE file
    # What: Module for outanekka.kiess.onl
    ###############################################################################
    
    package basic;
    
    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;
    use POSIX qw(strftime);
    use Log::Message::Simple qw[msg error debug
                                carp croak cluck confess];
    use File::Path qw/make_path remove_tree/;
    use MIME::Lite;
    
    =head1

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

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

  12. about::page is v0.9.0.16, last edit: 20.09.23.

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

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

    ;
      open(MO, "<", $module) or die "can't open $!";
      srand();
      rand($.) < 1

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

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

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

     SYNOPSIS
    
    A outanekka guestbook module.
    
    =head1

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

     SYNOPSIS
    
    A outanekka user module.
    
    =head1

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

    ("List of users at $::conf::siteName") .
    			$q->h2("User list") .
    		  $q->p("There are " . $q->b($q->big($count)) . " registered users at " . $::conf::siteName . ".") .
    			$q->p(	
    			$q->table({-border=>0,-width=>'1

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

    ,
    					$newNick, 
    					$newPassword, 
    					$rightslevel) or die $::dbh->errstr;    
    				
    				return 1

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

    ;
      } else {
    
    		return undef;
    	}
    }
    
    =item lastSignups()
    
    lastSignups() returns the last signups to outanekka.
    
    =cut
    
    sub lastSignups {
      my $limit = shift || 3;
      
    	if ($limit) {
        my ($sth, $aref);
    
    		$sth = $::dbh->prepare(qq{
    			  SELECT id FROM $$MODULE ORDER BY id DESC LIMIT 0,?
    			}) or die $::dbh->erstr;
        $sth->execute($limit) or die $::dbh->errstr;
    
    		$aref = $sth->fetchall_arrayref( {} );
    
    		return $aref;
      }
    
    	return undef;
    }
    
    =item lastSignupsLinks()
    
    lastSignupsLinks() returns the links to the last signed up users.
    
    =cut
    
    sub lastSignupsLinks {
      my $limit = shift || 3;
      my ($lastSignups, @links);
    	
    	$lastSignups = &lastSignups($limit);
    
      foreach my $user (@{ $lastSignups }) {
        push @links, &user::account::link($user->{'id'}) . ' &middot; ';
      }
    
      return @links;
    }
    
    =item lastSeen()
    
    lastSeen() returns the users last seen to outanekka.
    
    =cut
    
    sub lastSeen {
      my $limit = shift || 3;
    	
    	if ($limit) {
        my ($sth, $aref);
    
    		$sth = $::dbh->prepare(qq{
    			SELECT user_id
    			FROM $$MODULE\_session GROUP BY user_id ORDER BY MAX(last_seen) DESC LIMIT 0,?
    			}) or warn $::dbh->erstr;
        $sth->execute($limit) or warn $::dbh->errstr;
    
    		$aref = $sth->fetchall_arrayref( {} );
    
        return $aref;
      }
    
    	return undef;
    }
    
    =item lastSeenLinks() 
    
    lastSeenLinks() returns the links of the users last seen to outanekka.
    
    =cut
    
    sub lastSeenLinks {
      my $limit = shift || 3;
      my ($lastSeen, @links);
    	
    	$lastSeen = &lastSeen($limit);
    
      foreach my $user (@{ $lastSeen }) {
        push @links, &user::account::link($user->{'user_id'}) . ' &middot; ';
      }
    
      return @links;
    }
    
    =item hasSession()
    
    hasSession() returns true if the user has a valid session, false otherwise.
    
    =cut
    
    sub hasSession {
      return $$sessionKey ? $$sessionKey : 0;
    }
    
    =item getAccountId()
    
    getAccountId() returns the account ID of the user session.
    
    =cut
    
    sub getAccountId {
      return $$accountId ? $$accountId : 0;
    }
    
    =item getAccountNick() 
    
    getAccountNick() returns the account nick of the user session.
    
    =cut
    
    sub getAccountNick {
      return $$accountNick ? $$accountNick : 0;
    }
    
    =item getAccountLevel()
    
    getAccountLevel() returns the rightslevel of the user session.
    
    =cut
    
    sub getAccountLevel {
      return $$accountLevel ? $$accountLevel : 0;
    }
    
    =head1

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

    9';
    our $VER = sprintf("%vd", $VERSION);
    our $MODULE = \$imagery::MODULE;
    
    our $REF = \$imagery::REF; 
    our $REF_IMAGE = \$imagery::REF_IMAGE; 
    our $REF_VIEW	= \$imagery::REF_VIEW;
    our $REF_LOCAL = \$imagery::REF_LOCAL;
    
    our $PATH_ALBUMS = \$imagery::PATH_ALBUMS;
    our $PATH_CACHES = \$imagery::PATH_CACHES;
    our $CACHE_THUMBS = \$imagery::CACHE_THUMBS;
    
    our $THUMB_MD = \$imagery::THUMB_MD;
    
    our $PATH_REGEX = \$imagery::PATH_REGEX;
    our $IMAGE_REGEX = \$imagery::IMAGE_REGEX; 
    
    
    =head2 FUNCTIONS
    
    =over 4
    
    =item link()
    
    link()
    
    =cut
    
    sub link {
      my $iid = shift;
       
      if ($iid and &imagery::image::exists($iid)) { 
    		my ($href);
    
    		($href) = &imagery::thumb::queryRecord($iid);
    
    		if ($href) { 
    		  my $nick = &user::account::queryNick($href->{'user_id'});
    		  
    		  $href->{'impressions'} = $href->{'impressions'} ? $href->{'impressions'} : 1

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

    024 * 1

  22. imagery::page is v0.9.0.16, last edit: 20.07.19.

     = 'Recently Acative Users'; 
    			#$navName = 'albums'; last; };
    		last; };
         
         @images = @ { &imagery::image::random($$PAGE_THUMBS) };
         $h1

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

     NAME
    
    imagery::album.pm
    
    =head1

  24. imagery::daily is v0.9.0.12, last edit: 18.05.12.

    2';
    our $VER = sprintf("%vd", $VERSION);
    our $MODULE =  \$imagery::MODULE;
    our $REF = \$imagery::REF;
    our $REF_IMAGE = \$imagery::REF_IMAGE; 
    
    our $Q_MODULE = \$imagery::Q_MODULE;
    our $Q_ACTION = \$imagery::Q_ACTION;
    our $Q_ID = \$imagery::Q_ID;
    
    
    =head2 FUNCTIONS
    
    =over 4
    
    =item delete()
    
    delete()
    
    =cut
    
    sub delete {
      my $iid = shift;
    
    	my ($sth);
    
      $sth = $::dbh->prepare(qq{
        DELETE FROM $$MODULE\_daily WHERE image_id=?
      });
      $sth->execute($iid) or die $::dbh->errstr;
    
      return $iid;
    }
    
    =item image()
    
    image()
    
    =cut
    
    sub image {
      my ($sth, $href, $iid, $unixtime);
    
      $sth = $main::dbh->prepare(qq{
    		SELECT image_id, unixtime FROM $$MODULE\_daily ORDER BY unixtime DESC LIMIT 1

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

    5';
    our $VER = sprintf("%vd", $VERSION);
    our $MODULE =  \$imagery::MODULE;
    
    =head2 FUNCTIONS
    
    =over 4
    
    =cut
    
    =item verifyAlbum()
    
    verifyAlbum()
    
    =cut
    
    sub verifyAlbum {
      my $uid = shift;
    
      confess unless $uid;
    
      ((&albumNum($uid) < $conf::albumMaxNum) 
    		  or (&user::session::getAccountLevel() >= 255)) ? return 1

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

    ;
        } else {
          return undef;
        }
        return undef;
      }
      return undef;
    }
    
    
    =item delete()
    
    delete() deletes a message from the chatbox.
    
    =cut
    
    sub delete {
      my $id = shift || $$Q_ID;
      
      if ((&user::session::getAccountLevel() >= 255 ) and $id and 
        ($id =~ m/(\d+)/)) {
        
        if (&chatbox::message::delete($id)) {
          return 1

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

    2;
    our $LASTEDIT = '1

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

98818
impressions since May 18, 2019
86 images

m2n-lan-dac-having-i915-gpu-running-netbsd9-with-xfce4-mpv-not-playing-videos-screenshot-2020-04-22-08-39-40.png by adrian, 30974 impressions running-jexercise-programs-at-netbsd-9-host-www3-kiess-onl.png by adrian, 1415 impressions g6-lan-dac-gnome-session-connected-to-www2-kiess-onl-running-freebsd-12-1.png by adrian, 10131 impressions

28 messages

<nuser> Schicke Sachen! Wir werden weiter an Outanekka bauen!
<tanam> Saubere Arbeit. Die Userprofile sind nun implementiert.
<adrian> Ja, Bugs bitte an adrian@kiess.onl senden. Danke.
<adrian> ß?üöä -- Umlauttest.
<adrian> öüäß©
<adrian> äüöß

Please log in to write messages!

6 users

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

recently active
adrian · lapsangs · remus · moron · …

new images
adrian · moron · lapsangs ·

outanekka.KIESS.ONL v0.9.0.16 (2001–2020) by Adrian Immanuel KießBSD licensed
Designed for gecko engine < mozilla.org > ♦ outanekka.KIESS.ONL usage statistics
Perl code runtime: 0 wallclock secs ( 0.01 usr + 0.01 sys = 0.02 CPU)
2  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
     0  97664 ( 97664)  40908 ( 40908)  13608 ( 13608)   1440 (  1440)  27228 ( 27228) after start
     0  98064 (   400)  41172 (   264)  13608 (     0)   1440 (     0)  27628 (   400) near exit