Äîêóìåíò âçÿò èç êýøà ïîèñêîâîé ìàøèíû. Àäðåñ îðèãèíàëüíîãî äîêóìåíòà : http://xmm.vilspa.esa.es/calibration/ept/perlscripts/admin.pl
Äàòà èçìåíåíèÿ: Mon Sep 11 15:51:06 2006
Äàòà èíäåêñèðîâàíèÿ: Sun Apr 10 14:03:32 2016
Êîäèðîâêà: ISO8859-5
Ïîèñêîâûå ñëîâà: orion
#!/usr/bin/perl

use strict;
use polilib;

require 'dl24.pm';

print header();


my $USER_ID = strparam('user_id');


#use Image::Magick;



##############################################################################
#-----------------------------------------------------------------------------
# Login
#-----------------------------------------------------------------------------
##############################################################################

#if ($USER_ID eq '') {
# if (strparam('aktion') eq 'login') {
# try_login(); # einloggen
# } else {
# login_page(); # Login Seite
# }
# exit;
#}


##############################################################################
#-----------------------------------------------------------------------------
# Funktions-Weiche
#-----------------------------------------------------------------------------
##############################################################################


my $aktionp = strparam('aktion');
my %aktion = (
'main' => \&main_page,

# Zwischenablage
'extras_in_temp' => \&extras_in_temp,
'show_extras_in_temp' => \&show_extras_in_temp,

# Admin - Verwaltung
'marke_edit' => \&marke_edit,
'modell_edit' => \&modell_edit,
'linie_edit' => \&linie_edit,
'aufbau_edit' => \&aufbau_edit,
'motorisierung_edit' => \&motorisierung_edit,

# Admin - Angebote
'vorlagen_browsen' => \&show_prototypen_browse, # Liste
'new_prototyp' => \&show_prototyp_new, # Neue
'edit_prototyp_grunddaten' => \&show_prototyp_grunddaten, # Grunddaten
'prototyp_speichern_grunddaten' => \&prototyp_save,
'edit_prototyp_sonderausstattungen' => \&show_prototypen_extras, # Extras
'edit_prototyp_wunschfahrzeug' => \&show_prototypen_konfig, # Wunsch
'edit_prototyp_bestandsfahrzeuge' => \&show_prototypen_bestand, # Bestand - Liste
'new_bestandsfahrzeug' => \&prototypen_bestand_edit, # Bestand - Neu
'edit_bestandsfahrzeug' => \&prototypen_bestand_edit, # Bestand - Exit

'toplist_add' => \&toplist_add, # zu Topliste
'toplist_new' => \&toplist_new, # Toplisten neu /bearbeiten
'toplist_edit' => \&toplist_edit, # Topliste EintrÿÏÍe(Autos) bearbeiten
'toplist_add_car' => \&toplist_add_car, # Topliste EintrÿÏÍe(Autos) hinzufgen
'toplist_remove_car' => \&toplist_remove_car, # Topliste EintrÿÏÍe entfernen


'debug_delete_bestand' => \&debug_delete_all_bestands_angebote,
'thumbnail' => \&thumbnail,
);

if ( $aktion{$aktionp} ) {
$aktion{$aktionp}->();
exit;
} else {
Error("Keine Seite zum anzeigen (A)");
exit;
}




##############################################################################
#-----------------------------------------------------------------------------
# Funktionen
#-----------------------------------------------------------------------------
##############################################################################





#-----------------------------------------------------------------------------
# Funktionen zum Anzeigen der Seiten
#-----------------------------------------------------------------------------

sub main_page {
# Admin Start-Seite

print <

Admin Main




------------------------------------------------------------------------

Marken

Modelle

Linien


Aufbau

Motorisierung



------------------------------------------------------------------------

Neue Vorlage

Vorlagen Suchen/Bearbeiten

------------------------------------------------------------------------

Show Extra in Temp



------------------------------------------------------------------------

DB Data Conversion - Old --> New




------------------------------------------------------------------------

del all Bestands-Angebote



------------------------------------------------------------------------
HTML


}


#-----------------------------------------------------------------------------
# Prototypen (Vorlagen) browsen
#-----------------------------------------------------------------------------

sub show_prototypen_browse
{

####################################
# Ausgabe der Leiste mit Kriterien #
####################################

my $selected_marke = strparam('marke') eq 'Alle Marken' ? '' : strparam('marke');
my $selected_motorisierung = strparam('motorisierung') eq 'Alle Motorisierungen' ? '' : strparam('motorisierung'); ;
my $selected_aufbau = strparam('aufbau') eq 'Alle Aufbauten' ? '' : strparam('aufbau');
my $selected_modell = strparam('modell') eq 'Alle Modelle' ? '' : strparam('modell');
my $selected_linie = strparam('linie') eq 'Alle Linien' ? '' : strparam('linie');



# Marken anezigen
my $marken = get_all_marken();
my $marken_html = get_HTML_Select($marken,'marke_id','name',$selected_marke);
# HauptTemplate holen und einfgen
my $page = parse_templatefile($policonfig::ADMIN_SEARCH_PROTOTYPEN, MARKEN => $marken_html, MARKE => &get_markeName_from_markeId($selected_marke));


# Motorisierung anzeigen
#(strparam('wahl') eq 'marke') and $selected_modell = ''; # zurcksetzen
if ($selected_marke ne ''){
my $motorisierungen = get_all_motorisierungen($selected_marke);
my $motorisierung_html = get_HTML_Select($motorisierungen,'motorisierung_id','name',$selected_motorisierung);
parse_template($page, MOTORISIERUNGEN => $motorisierung_html, MOTORISIERUNG => &get_motorisierungName_from_motorisierungId($selected_motorisierung));
} else {
parse_template($page, MOTORISIERUNGEN => '');
}


# Aufbau anzeigen
#(strparam('wahl') eq 'marke') and $selected_modell = ''; # zurcksetzen
my $aufbauten = get_all_aufbauten();
my $aufbau_html = get_HTML_Select($aufbauten,'aufbau_id','name',$selected_aufbau);
parse_template($page, AUFBAUTEN => $aufbau_html, AUFBAU => &get_aufbauName_from_aufbauId($selected_aufbau));


# Modelle anzeigen
(strparam('wahl') eq 'marke') and $selected_modell = ''; # zurcksetzen
if ($selected_marke ne ''){
my $modelle = get_all_modelle($selected_marke);
my $modelle_html = get_HTML_Select($modelle,'modell_id','name',$selected_modell);
parse_template($page, MODELLE => $modelle_html, MODELL => &get_modellName_from_modellId($selected_modell));
} else {
parse_template($page, MODELLE => '');
}


# Linien anzeigen
if ($selected_modell != 0 && $selected_marke != 0){
my $linien = get_all_linien($selected_modell);
my $linien_html = get_HTML_Select($linien,'linie_id','name',$selected_linie);
parse_template($page, LINIEN => $linien_html, LINIE => &get_linieName_from_linieId($selected_linie));

} else {
parse_template($page, LINIEN => '
  • - - - keine Linien vorhanden - - -
    • ');
    }


    # sortierung
    if (strparam('select') eq 'Alphabetisch'){
    $$page =~ s/