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.

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package basic;
    
    use strict;
    use warnings;
    use CGI qw/:standard escapeHTML/;
    use CGI::Carp qw/fatalsToBrowser carpout set_message/;
    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/;
    
    =head1

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

     DESCRIPTION
    
    Provides the framework to handle the configuration files.
    
    =head2 STATUS
    
    The status is to be considered unstable.
    
    =cut
    
      
    our $VERSION = 0.2.0.1

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

    ;
    
    

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

    ;
    
    

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

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package about;
    
    use strict;
    use warnings;
    use CGI; 
    use CGI::Carp qw(fatalsToBrowser carpout set_message confess);
    use File::Find qw(find);
    
    use about::module;
    use about::page;
    
    
    =head1

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

    ;
    use guestbook 0.1

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

     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 unstable.
    
    =cut
    
    
    BEGIN {     
      my @sql = (
        qq{CREATE TABLE IF NOT EXISTS guestbook (   
            id          BIGINT UNSIGNED NOT NULL AUTO_INCREMENT,
            opinion	    TEXT,
            email	    TINYTEXT,
            unixtime    varchar(1

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

     AUTHOR
    
    Adrian Immanuel Kiess - < http://www.immmanuelK.net/ >
    
    =cut
    
    1

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

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

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

     DESCRIPTION
    
    This module handles the theme management.
    
    =head2 STATUS
    
    The status is considered unstable.
    
    =cut
    
    
    $| = 1

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

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

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

    1

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

     DESCRIPTION
    
    This module will offer bassic informations about this software to the 
    user. Additionally, one can set site specific informations to be 
    presented to the user.
    
    =head2 STATUS
    
    The status is to be considered stable.
    
    =cut
    
    $| = 1

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

    8.02.1

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

    1

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

    px;',
            -label=>'log in'}),
        $q->end_form());
      }
    }
    
    =head1

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

    ###############################################################################
    # Author: Adrian Immanuel Kiess < adrian at kiess.onl >
    # License: Gnu Public License
    # What: Module for outanekka.org
    ###############################################################################
    
    package user::session;
    
    use strict;
    use warnings;
    use CGI qw/:standard escapeHTML/;
    use CGI::Carp qw/fatalsToBrowser carpout set_message/;
    use POSIX qw/strftime/;
    use Digest::MD5  	qw(md5_hex);
    
    use user;
    use user::account;
    
    =head1

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

     NAME
    
    guestbook::opinion.pm
    
    =head1

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

    ;
      }
      
      return 0;
    }
    
    =item browse()
    
    browse() returns a list of opinions limittited by SKIP. 
    
    =cut
    
    sub browse {  
      my $skip = shift || $$SKIP;
      my $navbar;
      my $sth;
      my $entries = $::dbh->do("select last_insert_id( ) from $$MODULE;");
      my $opinions;
        
      ($navbar, $skip) = &basic::getNavigation(
                          $entries,     # Total entries
                          $$REF,         # URL basepath
    				              "opinions",   # Name
    				              $$SKIP);    # Entries per page 
      
      if (defined $skip and $skip =~ /^\d+$/ and $navbar and $entries) {
        
        $sth = $::dbh->prepare(qq{
    	    SELECT * FROM $$MODULE ORDER BY id DESC LIMIT $skip,$$SKIP
        }) or die $::dbh->erstr;
        $sth->execute() or die $::dbh->errstr;
    
        while ( my $ref = $sth->fetchrow_hashref ) {
          $opinions .= &guestbook::opinion::link($ref->{id}, 
             $ref->{opinion}, 
             $ref->{email}, 
    		     $ref->{unixtime}
    		  );
        }  
          
        if ($opinions) {
          return $navbar . $opinions . $navbar;
        }
      }
      return $q->h2("Yet no opinions!").
        $q->p("You may want to be first to submit a opinion!");
    }
    
    =item slider()
    
    slider() returns the HTML formular to submit an opinion.
    
    =cut
    
    sub slider {  
      my $opinion = $q->param('opinion');
      
    	if ($$Q_MODULE and $$Q_MODULE eq $$MODULE) {
        $q->param('module','guestbook');
        $q->param('action','submit');
        $q->param('verify_input','');
      
        my $verify_range = 1

  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.

    6;
    $| = 1

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

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

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

    ;
    
    our $q 			= new CGI; 
    our $VERSION 		= 0.0.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.

     = 'Recently Uploaded Images'; last; };
        /^popular$/ && do { 
    	  @images = &imagery::image::popularImages($$PAGE_THUMBS); 
    	  $h1

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

     NAME
    
    imagery::image.pm
    
    =head1

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

    ;
      my ($sth, $points);
    
      confess unless $id;
      
      $sth = $::dbh->prepare(qq{ 
            SELECT points FROM ${\MODULE}_daily WHERE id=? 
      });    
      $sth->execute($id);	
      $points = $sth->fetchrow;
    
      if ($points) {
        $sth = $::dbh->prepare(qq{ 
            UPDATE ${\MODULE}_daily SET points=points+$givenPoints WHERE id=? 
        });
        $sth->execute($id);
      }
      else {
        $sth = $::dbh->prepare(qq{ 
            INSERT INTO ${\MODULE}_daily (id, points) VALUES (?, ?)
        });    
        $sth->execute($id, $givenPoints);
      }
    
      return $points;
    }
    
    =head1

about v1.0.2.1

254127
impressions since February 09, 2018
13 images

Screenshot from 2018-01-19 08-22-43 - 1.png, 53883 impressions Screenshot from 2018-01-19 08-23-08.png, 253600 impressions Screenshot from 2018-01-19 08-22-42.png, 53945 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
susan · adrian · 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)