Perl Problem Code (Seite 2) (Perl/CGI)

zeus75

2006-07-18 16:20

User since
2006-02-19
35 Artikel
BenutzerIn
[default_avatar]

gerne.. ich versuche es mal...
hier der php kram... der auch funktioniert ohne probleme.
in der datei wo die daten des nutzers geladen werden im membereich steht dies zum anfang.

Code: (dl )

1
2
3

<?php
require_once "lib/config.inc.php";
?><HTML><HEAD><TITLE>usw.

dann kommt an der stelle wo dir infos erscheinen dies..

Code: (dl )

<input name="domain" disabled type="text" value="<?php echo 'http://'.$userinfo['domain']; ?>" size=40>

in der config.inc.php steht dies

Code: (dl )

<?php

require_once "db.class.inc.php"; // laden der datenbankklasse
require_once "db.inc.php"; // laden der db config
require_once "pr.php"; // laden der pr funktion
require_once "func.inc.php"; // laden der funktionen
if(is_readable("lib/lastrun.inc.php")) require_once "lib/lastrun.inc.php"; // wann wurde daily.php zuletzt ausgeführt?

// config
$config = array();
require_once "cfg.inc.php";

// konstanten

dann noch viel bla bla bla und zum ende dies

if(check_login() == TRUE && validate_login() == FALSE)
{
    logout_user();
} else {
    $userinfos = $db->query("SELECT * FROM sites WHERE webmaster_email='".$_COOKIE['email']."' AND webmaster_url='".$_COOKIE['url']."' LIMIT 1");
    $userinfo = $db->fetch_array($userinfos);
}
?>

das ganz liegt im /html/ verzeichnis und nicht im cgi-verzeichnis. nun habe ich einen webkatalog auf den die daten vom webbi weiterverarbeitet werden sollen... auf einer weiteren anmeldeseite.
auf dieser sollen seine daten URL & EMail Adresse gleich eingetragen sein so das er das nicht mehr machen muss und vor allem das er auch keine andere seiten eintragen kann.
somit kann ein angemeldet webmaster der unser system nutzt für seinen angemeldeten account und deren URL auch nur diese eine im webkatalog eintragen und nicht etliche seiten.

das problem hier ist.. das der komplette webkatalog in oerl geschrieben wurde. somit die anmeldeseite eine anmelden.pl datei im cgi-verzeichnis ist.
da kann ich den oberen Code nun natürlich nicht anwenden.

Was ich nun wissen möchte.... was muss ich in dieser anmelden.pl datei eintragen das dort in den input Feldern für die URL und EMAIL Adresse die daten des Webbis erscheinen?

gruss

Strat

2006-07-18 16:20

User since
2003-08-04
5246 Artikel
ModeratorIn

nebenbei: ganz oben ist auch ein link zu IRC... geht notfalls sogar ueber's webinterface...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

zeus75

2006-07-18 18:33

User since
2006-02-19
35 Artikel
BenutzerIn
[default_avatar]

kann mir keiner weiterhelfen??
ich suche nun schon seid 2 tagen und komme nicht weiter....

gruss.\n\n

renee

2006-07-19 12:34

User since
2003-08-04
14371 Artikel
ModeratorIn

So ganz einfach ist das nicht, weil Du alles nach Perl umschreiben musst und nicht nur die paar Zeilen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-07-19 14:59

User since
2005-01-17
14848 Artikel
Admin1

[quote=betterworld,18.07.2006, 14:02][quote=GwenDragon,18.07.2006, 09:47]

Code: (dl )

<?php echo 'http://'.$userinfo['domain']; ?>

geht nicht so einfach in Perl.[/quote]
In meiner Perl-Version geht das einfach mit

Code: (dl )

print 'http://'.$userinfo{domain};

[/quote]
Ach so? Ja, stimmt. Aber das gilt nur im Perlskript!

Du kannst es nicht so schön in das HTML-Template schreiben, außer mit HTML-Mason.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

GwenDragon

2006-07-19 15:02

User since
2005-01-17
14848 Artikel
Admin1

Da hilft nur das ganze zu analysieren und neu in Perl zu schreiben.
PHP -> Perl konvertieren ist aufwändig.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

renee

2006-07-19 15:06

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=GwenDragon,19.07.2006, 12:59][...]

Du kannst es nicht so schön in das HTML-Template schreiben, außer mit HTML-Mason.[/quote]
Oder Embperl...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-07-19 15:08

User since
2005-01-17
14848 Artikel
Admin1

Quote
Was ich nun wissen möchte.... was muss ich in dieser anmelden.pl datei eintragen das dort in den input Feldern für die URL und EMAIL Adresse die daten des Webbis erscheinen?

So können wir das nicht sagen.
Wir kennen den Code nicht.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

GwenDragon

2006-07-19 15:26

User since
2005-01-17
14848 Artikel
Admin1

Falle es dir um den Teil mit dem Login geht, so in Perl (ohne Gewähr):

Code: (dl )

use CGI::Cookie;
my %cookies = fetch CGI::Cookie;

if(check_login() && not validate_login() )
{
   logout_user();
} else {
   my $sth = $db->prepare("SELECT * FROM sites WHERE webmaster_email='" . $cookies{'email'} . "' AND webmaster_url='" . $cookies{'url'} . "' LIMIT 1");
   $sth->execute() or die "Can't execute statement: $DBI::errstr";
   
   my @userinfos;
   while (my $ref = $sth->fetchrow_arrayref()) {
     push(@userinfos , [@$ref]);
   }
}

Was aber check_login() sowie validate_login() und logout_user() machen und wie sie aussehen sollen, kann ich nicht sagen.\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

zeus75

2006-07-19 15:29

User since
2006-02-19
35 Artikel
BenutzerIn
[default_avatar]

also zum anfang der .pl datei steht dies

Code: (dl )

1
2

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);

und an der stelle wo die URL erscheinen soll der code

Code: (dl )

print " <input size=38 type=text name=domain disabled value='http://'.$userinfo{domain};>&nbsp;</font> ";

wie du sehen kannst habe ich

Code: (dl )

'http://'.$userinfo{domain};

schon eingetragen nur leider funktioniert es nicht.