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.18, last edit: 20.11.29.

    ($NAME . " Home") .
        &imagery::page::root();
    }
    
    =head1

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

    6384;
    our $SKIP_SLIDER = 6;
    our $SKIP_PAGE = 24;
    
    our $PAGE_REFRESH = 60;
    
    $CGI::POST_MAX = ($MESSAGE_MAX * 1

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

    ;                     # $data now untainted
        } else {
          die "Bad data in '$oldNick'";      # log this somewhere
        }
    
        if ($newNick =~ /^([-\@\w.]+)$/) {
          $newNick = $1

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

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

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

     SYNOPSIS
    
    A outanekka module.
    
    =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.

    8;
    our $LASTEDIT = '20.1

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

    ;
      }
      
      return 0;
    }
    
    =item impressionSlider()
    
    impressionSlider().
    
    =cut
    
    sub impressionSlider {
      my ($sth, $href, $impressions, $date);
      
      $impressions = 0;
    	$date = gmtime($^T);
    
      $sth = $::dbh->prepare(qq{
          SELECT impressions, unixtime FROM impression
      });    
      $sth->execute();
      $href = $sth->fetchrow_hashref;
      
    	$impressions = ($href->{'impressions'} ? $href->{'impressions'} :0 );
      $impressions++;	
    
      $date = strftime "%B %d, %Y",gmtime($href->{'unixtime'}) if $href->{'unixtime'};
    
      if (!defined $href->{'impressions'}) {
        $sth = $::dbh->prepare(qq{
              INSERT INTO impression (impressions, unixtime) VALUES (?, ?)
        });
        $sth->execute($impressions, $^T);   
      }      
      else {
        $sth = $::dbh->prepare(qq{ 
          UPDATE impression SET impressions=(?) 
        });    
        $sth->execute($impressions);	
      }
    	#$impressions = ($href->{'impressions'} ? defined $href->{'impressions'} : 0);
      
      #$sth = $::dbh->prepare(qq{
      #    SELECT impressions, unixtime FROM ${\MODULE}
      #});    
      #$sth->execute();
      #$href = $sth->fetchrow_hashref;
      
      
      return $q->div({-class=>'slider-counter'},
    		$impressions . $q->br() . 
        $q->span($q->Sub("impressions since " . $date)));
    }
    
    =item getUserMessage()
    
    getUserMessage().
    
    =cut
    
    sub getUserMessage {
      my $topic = shift || "No topic provided";
      my $message = shift || "No message provided.";
      my $status = shift;
      
      return div({-id=>'systemMessage',-title=>"$status",-class=>$status},
          span({-id=>'status'},"&raquo; " . $status . " message &laquo;").
          div({-id=>'topic'},$topic).
          div({-id=>'message'},$message));
    }
    
    =item successMessage()
    
    successMessage().
    
    =cut
    
    sub successMessage {
      my $topic = shift;
      my $message = shift;
      my $successMessage;
      
      $successMessage = &getUserMessage($topic,$message,"success");
      
      msg($successMessage);
      
      return $successMessage;
      
    }
    
    
    =item failureMessage()
    
    failureMessage().
    
    =cut
    
    sub failureMessage {
      my $topic = shift;
      my $message = shift;
      my $failureMessage;
      
      $failureMessage = &getUserMessage($topic,$message,"failure");
      
      error($failureMessage);
      
      return $failureMessage;
      
    }
    
    =item debugMessage()()
    
    debugMessage().
    
    =cut
    
    sub debugMessage {
      my $topic = shift;
      my $message = shift;
      my $debugMessage;
    
      $debugMessage = &getUserMessage($topic,$message,"debug");
    
      debug($debugMessage);
      
      return $debugMessage;
    }
    
    
    
    sub failure {
      my $topic = shift;
      my $message = shift;
      
      return &failureMessage($topic,$message);
    }
    
    sub success {
      my $topic = shift;
      my $message = shift;
      
      return &successMessage($topic,$message);
    }
    
    
    
    =item htmlFile()
    
    htmlFile().
    
    =cut
    
    sub htmlFile {
      my $file = shift;
      
      if (!$file || $file !~ /\W/) {
        return "HTMLfile $file misformatted.";
      } elsif ( ! -e "$PATH_HTML$file" ) {
        return "HTMLfile $PATH_HTML$file does not exist.";
      } else {
        my $htmlFile;
        
        open(HTML, "< $PATH_HTML$file") 
            or die "Fatal: Cant open $PATH_HTML$file $!";
        local $/ = undef;
        #$htmlFile = &::format_text( <HTML> );
        $htmlFile = <HTML>;
        close(HTML);
        
        return $htmlFile;
      }
    }
    
    
    #=item getFormattedText()
    #
    #getFormattedText().
    #
    #=cut
    #
    #sub getFormattedText {
    #  my $text = shift;
    #  
    #  if ($text) {
    #    for ($text) {
    #      #s/<a href="(lucky\.pl\?(value=go&)?&url=)?(.*?)">(.*?)<\/a>/&lucky::return_link($3,$4,1

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

    92;
    our $SKIP = 48;
    
    $CGI::POST_MAX = $OPINION_MAX * 1

  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.

     SYNOPSIS
    
    A outanekka module.
    
    =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.

    ;
          
        } else {
          &basic::failureMessage("Opinion missized",
         	  "Could ".$q->b("not")." make changes to opinion because it has " .
         	  "less than " . $$OPINION_MIN . " or more than " . $$OPINION_MAX . 
         	  " characters") if $opinion;
          
    			return undef;
        }	
     
      } else {
        &basic::failureMessage("Opinion change failed",
         	"Could ".$q->b("not")." make changes to this opinion.");
      }
      return undef;
    }
    
    =item remove()
    
    remove() removes a opinion from the guestbook.
    
    =cut
    
    sub remove {  
      my $id = shift || $q->param('id');
    
      if ((&user::session::getAccountLevel() >= 255) && 
          $$Q_ACTION && 
          $$Q_ACTION eq "delete" && 
          $id && 
          $id !~ /\D/) {
          
        my $sth = $::dbh->prepare(qq{
      	      DELETE FROM $$MODULE WHERE id=?
        }) or die $::dbh->errstr;
        $sth->execute($id) or die $::dbh->errstr;
          
        &basic::successMessage("Opinion removed",
    	    "Opinion \#$id was successfully removed.");
    	 
    	  return 1

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

    024 * 1

  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.

     SYNOPSIS
    
    A outanekka user module.
    
    =head1

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

    6;
    $| = 1

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

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

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

    .1

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

     = 'Popular Albums'; 
    	    $navName = 'albums'; last; };
        /^recentUsers/ && do { 
    			#@images = &recentImages($$PAGE_THUMBS); 
    			#$h1

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

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

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

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

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

    ###############################################################################
    # Author: Adrian Immanuel Kiess < https://www.kiess.onl >
    # License: BSD, see LICENCE file
    # What: Module for outanekka.kiess.onl
    ###############################################################################
    
    package imagery::quota;
    
    use strict;
    use warnings;
    
    use utf8;
    use CGI qw/:standard escapeHTML -utf8/;
    use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout set_message set_die_handler confess);
    use Filesys::DiskSpace;
    
    =head1

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

    6;
    our $LASTEDIT = '20.07.1

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

     
          }) or die $::dbh->errstr;         
        }
        
        $sth = $::dbh->prepare(qq{ 
          INSERT INTO $$MODULE (unixtime, user_id, message) VALUES (?, ?, ?) 
        }) or die $::dbh->errstr;      
        $sth->execute($^T, $userId, $message) or die $::dbh->errstr;
    
        &basic::successMessage("Message created",
          "Your message " . $q->i($message) . " was merged into the ".$$MODULE.".");
    
        return 1

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

228919
impressions since May 18, 2019
69 images

MendelLaw-screenshot-2021-03-01.png by adrian, 11135 impressions JuliaSet-screenshot-2018-10-25.png by adrian, 113343 impressions www2-kiess-onl-freebsd-12-1-login.png by adrian, 90743 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.00 usr + 0.01 sys = 0.01 CPU)
2  time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
     0  91828 ( 91828)  42064 ( 42064)  14728 ( 14728)   1552 (  1552)  27224 ( 27224) after start
     0  92236 (   408)  42592 (   528)  14728 (     0)   1552 (     0)  27632 (   408) near exit