#!/usr/bin/perl

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

my $cgi = CGI->new();
print $cgi->header();

my $pfad = '/SAN/content/cgi-bin/links';


my $url = $cgi->param('links');
my $text = $cgi->param('beschreibung');

$text =~ s/\r?\n/<br>/sg;

open(DATEI,'>>',$pfad) or die $!;
print DATEI "$url\n";
print DATEI "$text\n";
close (DATEI) or die $!;

print $cgi->b('Link wurde eingetragen');