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.

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

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

home is v0.1.1.3, last edit: 18.02.09.
```
;
```
chatbox is v0.9.9.8, last edit: 18.02.12.
```
;
```

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

html is v0.0.1.3, last edit: 16.06.27.
```
;
use guestbook 0.1
```

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

user is v0.2.2.5, last edit: 18.02.15.

 AUTHOR

Adrian Immanuel Kiess - < http://www.immmanuelK.net/ >

=cut

1

imagery is v0.7.1.1, last edit: 16.06.26.

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

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

text is v0.2.0.3, last edit: 18.02.09.

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

about::module is v0.0.1.3, last edit: 18.02.09.
```
1
```

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

user::profile is v0.0.0.1, last edit: 18.02.14.
```
8.02.1
```
user::account is v0.0.0.1, last edit: 18.02.11.
```
1
```

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

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

=head1

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

guestbook::opinion is v0.0.0.6, last edit: 18.02.11.
```
 NAME

guestbook::opinion.pm

=head1
```

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

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

chatbox::page is v0.0.0.3, last edit: 18.02.12.
```
6;
$| = 1
```

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

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

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

;

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

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

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

imagery::image is v0.1.1.2, last edit: 16.06.26.
```
 NAME

imagery::image.pm

=head1
```

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