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

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

=head1

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

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

theme is v0.9.0.13, last edit: 20.04.13.
```
;

# vim: noai:sts=2 sw=2 ts=2
#
# EOF
```
user is v0.9.0.16, last edit: 20.07.14.
```
 SYNOPSIS

A outanekka module.

=head1
```

about is v0.9.0.12, last edit: 19.04.16.

 AUTHOR

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

=cut

1

html is v0.9.0.18, last edit: 20.11.29.
```
8;
our $LASTEDIT = '20.1
```

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

guestbook is v0.9.0.16, last edit: 20.07.14.

92;
our $SKIP = 48;

$CGI::POST_MAX = $OPINION_MAX * 1

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.
```
 SYNOPSIS

A outanekka module.

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

;
      
    } 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

user::profile is v0.9.0.16, last edit: 20.07.20.
```
024 * 1
```

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

 AUTHOR

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

=cut

1

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

A outanekka user module.

=head1
```
user::session is v0.9.0.16, last edit: 20.07.21.
```
6;
$| = 1
```

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

 AUTHOR

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

=cut

1

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

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

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

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

our $q = new CGI; 
our $VERSION = 0.9.0.1
```
imagery::daily is v0.9.0.18, last edit: 20.11.29.
```
;

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

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

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

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