#!/usr/bin/perl

use strict;        
use warnings;          
use CGI qw( :all );    
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);         

# Initialisierung
##################

my $cgi         = new CGI;              
my %params      = $cgi->Vars();            
my $file         = '/SAN/content/cgi-bin/links';    
my $save_error   = "";             
my $i = 0;               
my $k = 0;                   

# Link speichern
#################

if ( defined $params{write} && $params{write} eq "true" ) { #
   $params{text} =~ s/\r\n/<br>/sg;

   if (! -f $file ) {
      &create_linklist;
   }
   else {
      if ( $params{url} =~ /^http:\/\/.*$/ ) {
         open ( D, '>>', $file ) or die "Could not save data. $!";
         print D "#" x80, "\nLINK: $params{url}\nTEXT: $params{text}\n";
         close D;
      }
      else {
         $save_error  = "<p>Bitte geben Sie den kompletten URL an, sonst kann ";
         $save_error .= "Ihr Link nicht gespeichert werden.<br /> Beispiel: ";
         $save_error .= "http://ihr.neuer.link.com/</p>";
      }
   }
}

# Links laden
##############

my ( @data, @links, @texts );

if (! -f $file ) {
   &create_linklist;
}
else {
   open ( F, '<', $file ) || die "Could not open $file. $!";
   @data = grep { /^[^#]/ } <F>;
close F;
   $i = $k = 0;
   foreach ( @data ) {
        chomp ( $_ );
        if ( $_ =~ /^LINK:\s/ ) {
                $_ =~ s/^LINK:\s//;
                $links[$i] = $_;
                $i++;
        }
        else {
                $_ =~ s/^TEXT:\s//;
                $texts[$k] = $_;
                $k++;
        }
   }
}

# Dokument ausgeben
####################

my $author = "Andre Hornig";

print $cgi->header(),
$cgi->start_html(
   -title   => "Linkit - Eine kleine Favoritenliste.",
   -bgcolor => "#99ccff",
   'Linkit'
),
$cgi->h1('Linkit'),
$cgi->p({-style => 'color:red'}, "Verfasst von: ", $cgi->i($author)),
$cgi->hr({-noshade => undef, -size => '1'}),

$cgi->p('Eine kleine Favoritenliste');

$i = 0;
foreach ( @links ) {
   print $cgi->p(
                        {-style => "margin:5px;"}, $i+1, ") ", $cgi->a( {-href => $_}, $texts[$i] )
                );
   $i++;
}

print << "EOF";
<h1>Neuen Link eintragen</h1>
$save_error
<form action="" method="post">
   <p>
      Link:<br />
      <input type="text" name="url" size="40" maxlength="40" />
   </p>
   <p>
      Beschreibung:<br />
      <textarea rows="5" cols="50" name="text"></textarea>
      <input type=hidden name="write" value="true" />
   </p>
   <p><input type="submit" value="Absenden" /></p>
</form>
EOF

$cgi->end_html();