#!/usr/bin/perl
##############################################################################
# Ultimate Auction - Deutsche Ausgabe - Version 3.0 #
##############################################################################
# Copyright 2001 thinkfactory - Alle Rechte vorbehalten. #
# Copyright 2001 Ultimate Auction Inc. - All rights reserved. #
##############################################################################
# Ultimate Auction ist ein käuflich zu erwerbendes Lizenzprodukt. #
##############################################################################
# #
# Lizenzbedingungen: #
# #
# - Durch den Kauf und Einsatz der Software erklären Sie sich mit diesen #
# Lizenzabkommen einverstanden. #
# #
# - Diese Lizenz erlaubt es Ihnen, Ultimate Auction auf einem Server und #
# einer Website zu benutzen. Für jede installierte Instanz dieses #
# Programms benötigen Sie jeweils eine erworbene Lizenz. #
# #
# - Als legitimierter Benutzer von Ultimate Auction können Sie auf eigenes #
# Risiko die Software verändern und/oder auf Ihre Bedürfnisse anpassen. #
# Sie können Dritte mit der Anpassung/Veränderung beauftragen. #
# #
# - Die Original-Software oder die angepasste/veränderte Software und #
# Teile derer dürfen nicht weitergegeben oder verkauft oder #
# wiederverkauft werden. #
# #
# - Alle Copyright- und Versions-Hinweise, die in Ultimate Auction oder #
# deren HTML-Seiten verwendet, erstellt und/oder gezeigt werden, #
# dürfen nicht entfernt werden. Die Copyright- und Versions-Hinweise #
# sowie je nach Version der Zusatz "powered by Ultimate Auction" müssen #
# für Benutzer sichtbar und in ungeänderter Form dargestellt werden. #
# #
# - Dieses Lizenzabkommen beruht auf der aktuellen internationalen #
# Gesetzeslage. #
# #
# - Bei einem Verstoß gegen diesen Lizenzvertrag kann durch die Firma #
# Ultimate Auction, Inc. oder deren Beauftragten die erworbene Lizenz #
# jederzeit zurückgezogen und für nichtig erklärt werden, es werden #
# keinerlei geleisteten Zahlungen für erworbene Lizenzen erstattet. #
# #
# - Ultimate Auction und die dazugehörenden Dateien werden ohne #
# Funktionsgarantie für die im Umfeld verwendete Hardware oder #
# Software verkauft. #
# #
# - Ultimate Auction Inc. oder deren Beauftragten sind in keiner Form #
# für Inhalte oder Verfasser verantwortlich, die durch diese #
# Software erstellt wurden. #
# #
# - Das Risiko der Benutzung von Ultimate Auction obliegt dem #
# Lizenznehmer, jegliche Erstattungen im Rechtsfall erstrecken sich #
# maximal auf den Kaufpreis der Lizenz. #
# #
# Weitere Informationen finden Sie unter http://www.ultimate-auction.de #
# #
##############################################################################
# #
# Wir wünschen viel Spaß mit Ultimate Auction! #
# #
##############################################################################
package UltimateAuctionAdmin;
BEGIN {
push(@INC,"../");
}
use DBI;
use IO::Socket;
use UltimateAuction qw(%form $couser $copass $db $dbh %config @auction_types);
use strict;
require '../variables/variables.cgi';
require '../variables/mainvariables.cgi';
#################################################
# Display and error message and exit #
#################################################
sub error {
my $error = shift;
$error .= "Bitte benutzen Sie die ZURÜCK-Funktion Ihres Browsers und versuchen Sie es erneut ...
";
&UltimateAuctionAdmin::send_header;
print qq~
~;
&UltimateAuctionAdmin::send_footer;
#print STDERR "$error\n";
exit(0);
}
#################################################
# Authenticate a user #
#################################################
sub authenticate {
my $adminpass = shift || $form{'adminpass'};
my $pw = crypt($adminpass,$config{'adminpass'});
if ($pw ne "$config{'adminpass'}") {
&UltimateAuctionAdmin::auth_form("Auktionsverwaltung");
print STDERR "Das Passwort ist ungültig.\n";
exit(0);
}
else {
return;
}
}
#################################################
# Authentication Form #
#################################################
sub auth_form {
local %form = &UltimateAuction::fetch_form;
my ($feature) = @_;
my $key;
&UltimateAuctionAdmin::send_header;
print qq~
| Bitte identifizieren Sie sich: |
|
|
|
~;
&UltimateAuctionAdmin::send_footer;
}
#################################################
# Print the HTML Header #
#################################################
sub send_header {
my $pw = shift;
my $current_time;
my $service;
my $startlink;
$current_time = time + ($config{'timediff'} * 3600);
$current_time = UltimateAuction::display_time2($current_time);
if ($config{'service'} eq 0) {
$service ="Online";
} else {
$service ="Service-Modus";
}
if ($config{'mainview_type'} eq 0) {
$startlink = "$config{'static_url'}/main.html";
} else {
$startlink = "$config{'script_dir'}/main.pl";
}
print "Content-type: text/html\n\n";
print qq~
Ultimate Auction - Administration
|
|
~;
}
#################################################
# Print the HTML Footer #
#################################################
sub send_footer {
print qq~
|
Ultimate Auction 3.08.2 - 20020514 |
|
|
~;
}
1;
