$db_script_path = "C:/xampp/htdocs/public_html/cgi-bin/admin";
$db_dir_url = "http://localhost/public_html/cgi-bin/admin";

$db_cgi_url = "http://localhost/public_html/cgi-bin";

$build_root_path = "C:/xampp/htdocs/public_html/links";
$build_root_url = "http://localhost/public_html/links";

$build_image_url = "http://localhost/public_html/links/images";

#!C:/xampp/perl
#
#-/usr/bin/perl
#-/usr/local/bin/perl
# -------------
# Links
# -------------
# Links Manager
#
# File: admin.cgi
# Beschreibung: This is the administrative interface for the links program.
# Author: Alex Krohn
# Email: alex@gossamer-threads.com
# Web: http://www.gossamer-threads.com/
# Version: 2.01
#
# (c) 1998 Gossamer Threads Inc.
#
# This script is not freeware! Please read the README for full details
# on registration and terms of use.
# =====================================================================
#
#
# German Translation by Nicky
# http://www.nicky.net
# Deutsches Forum http://forum.nicky.net
#
# Required Librariers
# --------------------------------------------------------

eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX /
($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \
print "INC : " , @INC , "\n\n" ;
require 5.001; # Make sure we have at least perl 5.001.
# require "C:\\xampp\\htdocs\\public_html\\cgi-bin\\admin\\links.cfg";
require "links.cfg"; # Ändern Sie dieses zum vollen Pfad zu links.cfg, wenn Sie Probleme haben sollten.

print " db_lib_path : " , $db_lib_path , "\n\n";
require "$db_lib_path/db.pl"; # Database Routines.
require "$db_lib_path/db_utils.pl"; # Database Support utilities.
require "$db_lib_path/admin_html.pl"; # Admin HTML routines.
};

if ($@) {
print "Content-type: text/plain\n\n";
print "Fehler beim einlesen von dazugehörigen Bibliothek Dateien: $@\n";
print "Überprüfen Sie ob diese existieren, Pfade richtig eingestellt sind, und ob die Dateien richtig CHMOD-ed sind.";
exit;
}

# ========================================================
eval { &main; };
if ($@) { &cgierr("Allgemeiner Fehler: $@"); }
exit;
# ========================================================

sub main {
# --------------------------------------------------------

$| = 1 ;

%in = &parse_form ;


$in{'db'} ?
require "$db_lib_path/$in{'db'}.def" :
require "$db_lib_path/links.def";

$db_script_link_url = "admin.cgi?db=$in{'db'}";


if ($in{'add_form'}) { &html_add_form; }
elsif ($in{'add_record'}) { &add_record; }
elsif ($in{'add_record_mult'}) { &add_record_mult; }
elsif ($in{'view_search'}) { &html_view_search; }
elsif ($in{'view_records'}) { &view_records; }
elsif ($in{'delete_search'}) { &html_delete_search; }
elsif ($in{'delete_form'}) { &html_delete_form; }
elsif ($in{'delete_records'}) { &delete_records; }
elsif ($in{'modify_search'}) { &html_modify_search; }
elsif ($in{'modify_mult_form'}) { &html_modify_mult_form; }
elsif ($in{'modify_form'}) { &html_modify_form; }
elsif ($in{'modify_form_record'}) { &html_modify_form_record; }
elsif ($in{'modify_record'}) { &modify_record; }
elsif ($in{'modify_mult_record'}) { &modify_mult_record; }
elsif ($in{'validate_form'}) { &html_validate_form; }
elsif ($in{'validate_records'}) { &validate_records; }
elsif ($in{'check_links'}) { &check_links; }
elsif ($in{'fix_links'}) { &fix_links; }
elsif ($in{'check_duplicates'}) { &check_duplicates; }
elsif ($in{'html_mail_target'}) { &html_mail_target; }
elsif ($in{'html_mail_form'}) { &html_mail_form; }
elsif ($in{'html_mail_update'}) { &html_mail_update; }
elsif ($in{'html_edit_template'}) { &html_edit_template; }
elsif ($in{'save_template'}) { &save_template; }
elsif ($in{'html_template_help'}) { &html_template_help; }
elsif ($in{'display'} eq 'navigation') { &html_navigation; }
elsif ($in{'display'} eq 'body') { &html_body; }
elsif ($in{'display'} eq 'top') { &html_top; }
else { &html_home; }

# &cgierr("Done"); # Debugger

}

sub parse_form {
# --------------------------------------------------------

my (@pairs, %in);
my ($buffer, $pair, $name, $value );

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
else {
&cgierr('Dieser Script kann nicht aus Telnet gestartet werden.');
}

PAIR: foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);

$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

($value eq "---") and next PAIR;
exists $in{$name} ? ($in{$name} .= "~~$value") : ($in{$name} = $value);
}
return %in;
}