outanekka.KIESS.ONL, your online image gallery!
theme » relaxed · tek · unique ·
user:   password:

About outanekka

Outanekka modules

The outanekka base arrived at version 0.9.0.11.

It is the so called summary of all those below listed modules and additional files.

  1. basic is v0.9.1.1, last edit: 18.02.09.

     NAME
    
    basic.pm
    
    =head1

  2. config is v0.2.0.1, last edit: 18.02.09.

    ;
         };
      #$module = MODULE . '::' . $module;
      #$pkg =~ s/_THEPACKAGE_/$module/g; 
      { 
        eval $pkg;
      }
    }
    
    =head1

  3. home is v0.1.1.3, last edit: 18.02.09.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package home;
    
    use strict;
    use warnings;
    use CGI;
    use CGI::Carp 	qw/fatalsToBrowser/;
    
    =head1

  4. chatbox is v0.9.9.8, last edit: 18.02.12.

     DESCRIPTION
    
    The chatbox module allows authorized users 
    to chat with one another. 
    A superuser can delete entries. 
    In conclution it is - well, a simple chatbox.
    
    =head2 STATUS
    
    The status is considered unstable.
    
    =cut
    
    BEGIN {     
      my @sql = (
        qq{CREATE TABLE IF NOT EXISTS chatbox (
            id          BIGINT UNSIGNED NOT NULL AUTO_INCREMENT,
            message	    TEXT,
            user	      INT UNSIGNED NOT NULL, 
            unixtime    varchar(1

  5. about is v1.0.2.1, last edit: 18.02.12.

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

  6. html is v0.0.1.3, last edit: 16.06.27.

    .3;
    our $LASTEDIT = '1

  7. guestbook is v0.9.9.8, last edit: 18.02.09.

     SYNOPSIS
    
    A outanekka guestbook module.
    
    =head1

  8. user is v0.2.2.5, last edit: 18.02.15.

     DESCRIPTION
    
    The user module handles stuff like user authentification and user profiles.
    
    =head2 STATUS
    
    The status is to be considered unstable.
    
    =cut
    
    use constant MODULE      => __PACKAGE__;
    
    BEGIN {   
    #  $::dbh->do(qq{ CREATE TABLE IF NOT EXISTS ${\MODULE} ( 
    #        id		MEDIUMINT UNSIGNED NOT NULL AUTO_INCREMENT,
    #	avatar		INT UNSIGNED,
    #	bio		TEXT,
    #	created		VARCHAR(1

  9. imagery is v0.7.1.1, last edit: 16.06.26.

    .1

  10. theme is v0.2.2.1, last edit: 18.02.09.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package theme;
    
    use strict;
    use warnings;
    use CGI;
    use CGI::Carp 	qw/fatalsToBrowser carpout set_message/;
    use contributed::Util qw/shuffle first/;
    
    =head1

  11. text is v0.2.0.3, last edit: 18.02.09.

    )/gemo;
          #s/comment(ary)?:(\d+)/&news::comment_link($2)/gesmo;
          s/user:(\w+)/&user::getUserLink($1

  12. 0
  13. about::module is v0.0.1.3, last edit: 18.02.09.

    ;
    

  14. about::page is v0.0.1.4, last edit: 18.02.11.

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

  15. 00
  16. user::profile is v0.0.0.1, last edit: 18.02.14.

    ;
    

  17. user::account is v0.0.0.1, last edit: 18.02.11.

    ;
    }
    
    =item validatePassword()
    
    validatePassword() validates the password to it's correctness to the system.
    
    =cut
    
    sub validatePassword {
      my $newPassword = shift;
      
      if ($newPassword) {
    	  if ((length($newPassword) > $$PASSWORD_LENGTH_MAX) or 
                (length($newPassword) < $$PASSWORD_LENGTH_MIN)) {
          &basic::failureMessage("Password length failure",
          "Passwords have to be between $$PASSWORD_LENGTH_MIN and 
          $$PASSWORD_LENGTH_MAX characters long. Please try again.");
    	 	  return 0;
    		} else {
    			return 1

  18. user::page is v0.0.0.1, last edit: 18.02.10.

    6),' &hellip;').
             $q->p('recently active'.$q->br(),&user::session::lastSeenSystemLinks(1

  19. user::session is v0.0.0.2, last edit: 18.02.12.

    ;		
    
    our $q = new CGI; 
    our $VERSION = 0.0.0.2;
    our $LASTEDIT = '1

  20. guestbook::opinion is v0.0.0.6, last edit: 18.02.11.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package guestbook::opinion;
    
    use strict;
    use warnings;
    use CGI 	qw/:standard escapeHTML/;
    use CGI::Carp 	qw/fatalsToBrowser carpout set_message/;
    use POSIX 	qw/strftime/;
    
    use guestbook;
    
    =head1

  21. guestbook::page is v0.0.0.5, last edit: 18.02.11.

     NAME
    
    guestbook::page.pm
    
    =head1

  22. chatbox::message is v0.0.0.10, last edit: 18.02.12.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package chatbox::message;
    
    use strict;
    use warnings;
    use CGI 	qw/:standard escapeHTML/;
    use CGI::Carp 	qw/fatalsToBrowser carpout set_message/;
    use POSIX 	qw/strftime/;
    
    
    =head1

  23. chatbox::page is v0.0.0.3, last edit: 18.02.12.

     NAME
    
    chatbox::page.pm
    
    =head1

  24. imagery::album is v0.1.0.2, last edit: 16.06.26.

     DESCRIPTION
    
    imgery::album handles everythong corresponding to albums.
    
    =head2 STATUS
    
    The status is to be considered unstable.
    
    =cut
    
    use constant	MODULE      => 'imagery';
    
    
    BEGIN {
      $::dbh->do(qq{CREATE TABLE IF NOT EXISTS ${\MODULE}_albums (  
            album_id          	INT UNSIGNED NOT NULL AUTO_INCREMENT,
    	description		TEXT,
    	impressions		INT UNSIGNED,
            path		    	VARCHAR(255) BINARY NOT NULL,
    	thumb			VARCHAR(255),
    	thumb_height		SMALLINT UNSIGNED,
            thumb_width		SMALLINT UNSIGNED,
    	user			INT UNSIGNED NOT NULL,
    	unixtime		VARCHAR(1

  25. imagery::thumb is v0.0.1.1, last edit: 05.03.12.

    .1

  26. imagery::quota is v0.9.1.0, last edit: 16.06.27.

     : return 0; 
    }
    
    =item getAlbumNum()
    
    getAlbumNum().
    
    =cut
    
    sub getAlbumNum {
      my $userId = shift;
      my ($count, $sth);
    
      confess unless $userId;
      
      $sth = $::dbh->prepare(qq{ 
          SELECT count(*) FROM ${\MODULE}_albums WHERE user=?
      });
      $sth->execute($userId);
      $count = $sth->fetchrow;
    
      return $count;
    }
    
    =item getImageNum()
    
    getImageNum().
    
    =cut
    
    sub getImageNum {
      my $userId = shift;
      my ($count, $sth);
    
      confess unless $userId;
      
      $sth = $::dbh->prepare(qq{ 
          SELECT count(*) FROM 
          ${\MODULE} LEFT OUTER JOIN ${\MODULE}_albums ON
          ${\MODULE}.album_id=${\MODULE}_albums.album_id
          WHERE ${\MODULE}_albums.user=?
      });
      $sth->execute($userId);
      $count = $sth->fetchrow;
    
      return $count;
    }
    
    =item getFreeSpace()
    
    getFreeSpace().
    
    =cut
    
    sub getFreeSpace {
      my $userId = shift;
      my ($free, $used, $sth);
    
      confess unless $userId;
      
      $sth = $::dbh->prepare(qq{ 
          SELECT sum(size) FROM 
          ${\MODULE} LEFT OUTER JOIN ${\MODULE}_albums ON
          ${\MODULE}.album_id=${\MODULE}_albums.album_id
          WHERE ${\MODULE}_albums.user=?
      });
      $sth->execute($userId);
      $used = $sth->fetchrow;
    	if (defined $used) {
        $used = int($used / 1

  27. imagery::page is v0.2.1.0, last edit: 16.06.26.

    "
    	   ).
    	   $navigation;
      $html .= $q->start_div({-id=>'thumbnails-albums'}) if $navName eq 'albums';
      
      foreach my $id (@images) {
        if ($navName eq 'images') {
          $html .= &imagery::thumb::link($id);
        } else {
          $html .= &imagery::album::link($id);
        }
      }
    
      $html .= $q->end_div if $navName eq 'albums';
      $html .= $navigation.
               $q->start_multipart_form({-action=>$$REF}).
    	   $q->p({-style=>'text-align:center;'},
    	   $q->hidden('module').
    	   $q->popup_menu(-name=>'action',
                 -values=>['randomness','recently','popular','popularAlbums'],
                 -labels=>\%labels).
    	   $q->submit('submit','Order By')).
    	   $q->end_form();
       return $html;	   
    }
    
    =item slider()
    
    The slider contains three random thumbnails and 
    will be print to the page's slider.
    
    =cut
    
    sub slider {
      unless ($$Q_MODULE and $$Q_MODULE eq MODULE) { 
        return $q->div({-class=>'slider-title'},
    	     $q->a({-href=>$$REF},&imagery::image::countImages().' images')
    	   ).
               $q->p({-style=>'text-align:center;'},
    	     map { &imagery::thumb::link($_) } &imagery::image::randomImages($$SLIDER_THUMBS)
    	   );
      }
      return 0;
    }
    
    =head1

  28. imagery::image is v0.1.1.2, last edit: 16.06.26.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka
    ###############################################################################
    
    package imagery::image;
    
    use strict;
    use warnings;
    use CGI; 
    use CGI::Carp 		qw(fatalsToBrowser carpout set_message confess);
    use POSIX		qw(strftime);
    use File::Copy;
    use File::Path;
    use Image::Magick;
    use Image::Info         qw(image_info);
    use File::Basename;
    
    =head1

  29. imagery::daily is v0.0.2.1, last edit: 16.06.26.

    ;});    
      $sth->execute();
      $href = $sth->fetchrow_hashref;
      $id = $href->{'id'};
      $daily = $href->{'daily'};
      
      # If there is no daily image yet, or the existing one is older than 
      # one day, we calculate the next dailyImage by using the data from 
      # the imagery_daily database. After finishing this, we DROP this 
      # database and collect further on for the next dailyImage.
      if (!$id) {
        # There are no images yet in the imagery database. Thus we cant 
        # pick one.
        return;
      } elsif (!defined $daily) {
        # There are images in the imagery database, but this is going to 
        # become the first daily image pick. We suspect there is no suitable 
        # collection in the imagery_daily database yet, so we make the first 
        # pick the first image by id by default.
        &add($id); 
      } elsif (defined $daily && $daily < ($^T - 86400)) { # 86400
        # There already were previously daily images and the current one 
        # is older than one day (86400 seconds) which leads us to pick the 
        # new daily image.
        my $pickedId;
        my $sthAdd;
    
        $sthAdd = $main::dbh->prepare(qq!
        SELECT ${\MODULE}_daily.id FROM ${\MODULE}_daily 
        LEFT OUTER JOIN ${\MODULE} ON ${\MODULE}_daily.id=${\MODULE}.id 
        WHERE ${\MODULE}.daily IS NULL 
        ORDER BY points DESC, id DESC 
        LIMIT 1

about v1.0.2.1

408245
impressions since February 09, 2018
4 images

SeqCrypt-screenshot-2018-10-25.png, 432300 impressions MendelLaw-screenshot-2018-10-25.png, 167025 impressions KnightTour-screenshot-2018-10-25.png, 159253 impressions

chatbox

<adrian> jjj
<susan> ll
<susan> Hallo Welt!
<test> 123
<test> aa
<adrian> as

Please log in to write a message!

users

we welcome
Sites · resun · sunur · 1sss · matum · susan1 · susan · sinir · test12 · meter111 · meter11 · meter1 · meter · munar · munar · rrrr · …

recently active
adrian · susan · sunur · …

new images
Sites · resun · sunur · 1sss · matum · susan1 · susan · sinir · test12 · meter111 · meter11 · meter1 · meter · munar · munar · rrrr · …

outanekka.kiess.onl v0.9.0.11 (2001–2018) by Adrian Immanuel KiessGPL licensed
Designed for gecko engine < mozilla.org> ♦ outanekka.kiess.onl usage statistics
Perl code runtime: 0 wallclock secs ( 0.03 usr + 0.00 sys = 0.03 CPU)