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.

);/gi;
    }

    return $text;
  }
  else {

    return undef;
  }
}


=item insertSpaces()

insertSpaces() inserts repeatedly a space at a given location of a string.

=cut

sub insertSpaces {
  my $text = shift || "";
  my $where = shift || '80';
    
  if ($text =~ m/(\S+)/gi) {
    my $found = $1

config is v0.9.0.16, last edit: 20.07.15.
```
 NAME

config.pm

=head1
```

home is v0.9.0.18, last edit: 20.11.29.

.29';
our $VER = sprintf("%vd", $VERSION);
our $REF = $conf::sitePath;
our $NAME = $conf::siteName;
our $Q_MODULE = $q->param('module');
our $Q_ACTION = $q->param('action');

our $MODULE = __PACKAGE__;


=head2 FUNCTIONS

=over 4

=item run()

run() is called from index.pl.

=cut

sub run {  
  if (!$Q_MODULE or ($Q_MODULE and $Q_MODULE eq 'theme')) {
		my $v = $q->p({-class=>'about-modules'}, &about::module::moduleVersion($MODULE, $VER) . 
		  &about::module::moduleVersion('basic', $basic::VER) .
		  &about::module::moduleVersion('config', $config::VER) . 
		  &about::module::moduleVersion('html', $html::VER) . 
		  &about::module::moduleVersion('text', $text::VER) .
		  &about::module::moduleVersion('theme', $theme::VER));


    return &home::page() . $v;
  }
}

=item page()

page() prints the homepage.

=cut 

sub page {
  return # $q->h1

chatbox is v0.9.0.12, last edit: 19.04.28.

;		

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

imagery is v0.9.0.16, last edit: 20.07.19.

024;

$Q_PATH =~ $imagery::PATH_REGEX;
$Q_PATH = $1

theme is v0.9.0.13, last edit: 20.04.13.

;		

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

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.

;

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

html is v0.9.0.18, last edit: 20.11.29.
```
2;
use chatbox::page 0.9.0.1
```
basic is v0.9.0.12, last edit: 19.05.09.
```
50,1
```

guestbook is v0.9.0.16, last edit: 20.07.14.

 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 stable.

=cut


BEGIN {     
  my @sql = (
    qq{CREATE TABLE IF NOT EXISTS guestbook (   
        id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT,
        opinion	TEXT,
        email	TINYTEXT,
        unixtime BIGINT UNSIGNED default NULL,
        PRIMARY KEY (id)
      );
    },
		#qq{ALTER TABLE guestbook MODIFY COLUMN id BIGINT UNSIGNED NOT NULL AUTO_INCREMENT;},
  );

  for (@sql) {
    my $sth = $main::dbh->prepare($_) or die $main::dbh->errstr;
    $sth->execute or die $main::dbh->errstr;
    $sth->finish;
  }
}

$| = 1

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

("About " . $::conf::siteTitle ) .
    $q->h2({-id=>'support'},"support and donate") .
    $q->p("You can support the " . $::conf::siteTitle . 
      " development as well as take a share of the server hosting costs" . 
      " by " . $q->a({-href=>'https://www.paypal.me/adriankiess'},
      "donating a small amount of money") . ".") . 
    $q->h2({-id=>'modules'},"about outanekka") .
    $q->p("The " . $q->i("outanekka base") . " arrived at " . $q->tt("version",
      $q->b($::VER)) . " and is developed by " . $::conf::siteAuthor . ".") . 
    $q->p(" You can contact " . $::conf::siteAuthor . " under: " ) . 
			$q->ol(
				$q->li("E-Mail: " .  
			    $q->a({-href=>'mailto:' . $::conf::siteContact . '?Subject=Request from ' . $::conf::siteName},$::conf::siteContact)) . 
				$q->li(" XMPP: " .
				  $q->a({-href=>'xmpp:' . $::conf::siteContactXMPP . '?Request from ' . $::conf::siteName},$::conf::siteContact)) . 
        $q->li(" Website: " .
				  $q->a({-href=>$::conf::siteAuthorUrl},$::conf::siteAuthorUrl))
			
			) . 
    $q->p("Outanekka is the so called summary of all those below listed modules and " . 
			"additional files:"
		);
  
  $o .= $q->start_ol();
  
  foreach (@modules) {
		if ($_ and ($_ =~ m/\.pm$/)) {
			my $moduleInfo = &about::module::moduleInfo($_);
			
			if ($moduleInfo) {
				$o .= $moduleInfo;
			} else {
			}

      $o .= $o .= $_ if $_;
	  }
  }

  return ($o ? $o : "") . $q->end_ol();
}


=head1

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

###############################################################################
# Author: Adrian Immanuel Kiess < adrian at kiess.onl >
# License: BSD, see LICENSE file
# What: Module for outanekka.kiess.onl
###############################################################################

package about::module;

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 qw(find);

use about::page;

=head1

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

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

4';
our $MODULE = \$guestbook::MODULE;
our $VER = sprintf("%vd", $VERSION);
our $REF = \$guestbook::REF;
our $Q_MODULE = \$guestbook::Q_MODULE;
our $Q_ACTION = \$guestbook::Q_ACTION;
our $Q_ID = \$guestbook::Q_ID;

our $OPINION_MIN = \$guestbook::OPINION_MIN;
our $OPINION_MAX = \$guestbook::OPINION_MAX;
our $SKIP = \$guestbook::SKIP;

$CGI::POST_MAX = ($$OPINION_MAX * 1

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

 AUTHOR

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

=cut

1

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

("Password Request") .
		$q->h2("request password from " . $main::conf::siteName) .
		$q->p("It is easy! Only this one step and you are set.") .
	 
		$q->start_form({-action=>$$REF . "passwordrequest"}) .
		$q->hidden('module') .
		$q->hidden('action') .
		$q->hidden('verify') .
		$q->p("Your " . $q->b("user nick (account)") . ":" . $q->br() .
			$q->textfield(
			  -name=>'nick',
				-value=>'',
				#-size=>'32',
				-maxlength=>$$NICK_LENGTH_MAX,
				-style=>'width:256px;') .
			$q->Sub(" e.g. ") .
			$randomNick
		).  
		$q->p("Your " . $q->b("email") . ":" . $q->br() .
			$q->textfield(
			  -name=>'email',
				-value=>'',
				#-size=>'32',
				-maxlength=>254,
				-style=>'width:256px;') .
			$q->Sub(" e.g. ") .
		  $randomNick . "\@" . $::conf::siteName	
		).  
		$q->p("Your " . $q->b("email again") . ":" . $q->br() .
			$q->textfield(
			  -name=>'email_again',
				-value=>'',
				#-size=>'32',
				-maxlength=>254,
				-style=>'width:256px;')) .
		$q->p("Verify code: " . 
			$q->span({-class=>'verify-code'},$verify)) .
	  $q->p("Retype " . $q->b("verify code") . ":" . $q->br() .
			$q->textfield(
			  -name=>'verify_input',
				-value=>'',
				#-size=>'32',
				-maxlength=>254,
				-style=>'width:256px;').
			$q->Sub(" type ") .
		  $verify
		).
		$q->p(
			$q->submit(-style=>'padding-left: 24px; padding-right: 24px;',    
			  -label=>"request password >>")
		).
		$q->end_form() . $q->br() .
		$q->div({-class=>'textbox'},
		$q->div({-class=>'textbox-title'},"please note") .
			$q->div({-class=>'textbox-content',-style=>'padding-left:24px'},
			$q->li("You only can request your " . $q->i("password ") .
					"if you deposited your " . $q->i("e-mail") . " with " . $::conf::siteName . ".") .
			$q->li("Your " . $q->i("account ") .
					"name can only consist out of minimal " . $$NICK_LENGTH_MIN . 
					" and maximal " . $$NICK_LENGTH_MAX . " word or digit characters [a-zA-Z0-9].")
			)
		);
		#&basic::getHTMLFile("user--why-signup.html");
  }
}

=item slider()

slider() returns statistics about the users of outanekka.

=cut 

sub slider {
  return $q->div({-class=>'slider-title'},
		$q->a({-href=>$$REF.'list/'}, &user::account::count() . ' users')) .
    $q->div({-class=>'slider-right',
	    -style=>'text-align:center;'},
    $q->p('we welcome' . $q->br(), &user::session::lastSignupsLinks(1

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

###############################################################################
# Author: Adrian Immanuel Kiess < adrian at kiess.onl >
# License: BSD, see LICENSE file
# What: Module for outanekka.kiess.onl
###############################################################################

package user::account;

use strict;
use warnings;

use CGI qw/:standard escapeHTML -utf8/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser carpout set_message set_die_handler confess);
use POSIX qw/strftime/;

use contributed::Random;
use user;

=head1

user::session is v0.9.0.16, last edit: 20.07.21.
```
 SYNOPSIS

A outanekka user module.

=head1
```
imagery::thumb is v0.9.0.16, last edit: 20.07.19.
```
.1
```

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

048576) if $size > 0;
#  $size = sprintf("%.2f",$size); # Size im MB
#
#  return $size;
#}

#sub getAvrgSize {
#  #my ($sth);
#  #my $avrg_size = $count_images ? int ($sum_size / $count_images) : 0;
# 
#  #$sum_size = int( $sum_size / 1

imagery::page is v0.9.0.18, last edit: 20.11.29.
```
;

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

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

;
				my $newAlbumIterator = $newAlbum;
				$newAlbum = undef;

        while ($newAlbumIterator =~ m/($$PATH_REGEX)/ig) {
          $newAlbum .= $1

imagery::daily is v0.9.0.18, last edit: 20.11.29.
```
 SYNOPSIS

A outanekka module.

=head1
```

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

 : return undef; 
}

=item verifyFreeSpace()

verifyFreeSpace()

=cut

sub verifyFreeSpace {
  my $uid = shift;

  confess unless $uid;

  ((&freeSpace($uid) > 0) 
	  or (&user::session::getAccountLevel() >= 255)) ? return 1

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

,
		            -default=>'',
                -name=>'chatboxMessage',
                -maxlength=>$$MESSAGE_MAX) . 
			$q->end_form();
  } else {
    $o .= $q->div({-style=>'text-align:center; font-style:italic; font-size:smaller;'},
    "Please " . &user::account::loginLink() . " to write messages!");
  }
   
  $sth = $::dbh->prepare(qq{
       	SELECT id, user_id, message FROM $$MODULE ORDER BY id DESC LIMIT ? 
  }) or die $::dbh->errstr;       
  $sth->execute($$SKIP_SLIDER) or die $::dbh->errstr;
   
  while ( my $ref = $sth->fetchrow_hashref ) {
    $messages = &chatbox::message::link($ref->{id}, 
        $ref->{user_id}, 
		    $ref->{message}) . 
			($messages ? $messages : "");
  }
     
  if (!$messages) {
    $messages = $q->p($q->i("Yet no chat messages." . $q->br().
        "Be the first to write a chat message!"));
  }
   
  return "\n\n<!-- " . $$MODULE . " :: slider -->\n\n".
    $q->div({-class=>"slider-title"},
      $q->a({-href=>$$REF}, &chatbox::message::count() . ' messages')
    ) .
    $q->div({-class=>"slider-right"},
      $q->p($messages) .
			$q->p($o)
    );  

}


=head1

chatbox::message is v0.9.0.12, last edit: 19.04.28.
```
 NAME

chatbox::message.pm

=head1
```

about v0.9.0.12

about::module v0.9.0.16

about::page v0.9.0.16