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:

Outanekka is the so called summary of all those below listed modules and additional files:

text is v0.9.0.16, last edit: 20.07.14.
```
6;
our $LASTEDIT = '20.07.1
```

config is v0.9.0.16, last edit: 20.07.15.

 AUTHOR

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

=cut

1

home is v0.9.0.12, last edit: 19.05.02.
```
2;
our $LASTEDIT = '1
```

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

imagery is v0.9.0.16, last edit: 20.07.19.

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

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

user is v0.9.0.16, last edit: 20.07.14.
```
;

# vim: noai:sts=2 sw=2 ts=2
#
# EOF
```
about is v0.9.0.12, last edit: 19.04.16.
```
9.04.1
```
html is v0.9.0.16, last edit: 20.09.23.
```
2;
use imagery::page 0.9.0.1
```

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

guestbook is v0.9.0.16, last edit: 20.07.14.

 AUTHOR

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

=head1

about::page is v0.9.0.16, last edit: 20.09.23.
```
;

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

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

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

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

 AUTHOR

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

=cut

1

guestbook::opinion is v0.9.0.16, last edit: 20.07.14.
```
 SYNOPSIS

A outanekka guestbook module.

=head1
```
user::profile is v0.9.0.16, last edit: 20.07.20.
```
 SYNOPSIS

A outanekka user module.

=head1
```

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

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

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

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

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

imagery::image is v0.9.0.16, last edit: 20.09.23.
```
024 * 1
```

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

imagery::album is v0.9.0.16, last edit: 20.07.19.
```
 NAME

imagery::album.pm

=head1
```

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

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

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

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