Catalyst ODBC model verbinden? (Datenbanken und Verzeichnisdienste)

[thread]13447[/thread]

Catalyst ODBC model verbinden?

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
xcoder44

2009-04-28 22:31
User since
2009-04-27
16 Artikel
BenutzerIn
Hallo liebe Coder,

Ich arbeite an einem alten Projekt, das ich bearbeiten soll.
Dabei handelt es sich um eine Webanwendung mittels Perl, Catalyst und MySQL-Server. Nun soll ich den Server nach MS-SQL umziehen und die Anwendung umschreiben.

Für die einzelnen Perl-Skripte passt das super,
da ich einfach wie folgt verbinde:
Code (perl): (dl )

1 2 3 4

... use DBI ... my $db = DBI->connect('DBI:ODBC:Driver={SQL Server};server={DSR5003};database={datenbankname}')
Nun weiss jedoch Catalyst nix davon und es existiert immer noch das alte model für die Webseiten:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

package datenbank::Model::dDB; use strict; use base 'Catalyst::Model::DBI'; __PACKAGE__->config( dsn => "DBI:mysql:" . datenbank->config->{db}{db}, user => datenbank->config->{db}{user}, password => datenbank->config->{db}{password}, options => {}, );
{db}{db} und ähnliches steht in der datenbank.yml...

Beim Umschreiben habe ich schon etwas versucht, jedoch ohne Erfolg.
Muss ich ein neues model erstellen, oder kann ich nicht einfach die Konfiguration in dem alten Model dDB.pm anpassen ?

Danke und Gruss,
xcoder
Last edited: 2009-04-29 13:10:02 +0200 (CEST)
- +6 replies
- Taulmarill
  
  2009-04-29 09:35
  
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  
  Der String "DBI:mysql" wird wohl nicht mehr passen, da du hier den Datenbanktreiber von MySQL nach M$-SQL wechseln musst.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - Gast xcoder44
    
    2009-04-29 13:05
    daher meine frage wie ich das umstellen muss.
    
    mittels:
    
    Code (perl): (dl )
    
    my $db = DBI->connect('DBI:ODBC:Driver={SQL Server};server={DSR5003};database={datenbankname}')
    
    ...kann ich das einzeln...
    
    aber wie schreibe ich das für folgendes um?:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    __PACKAGE__->config(... dsn... user... pass... )
    
    Danke und Gruss,
    - Taulmarill
      
      2009-04-29 13:35
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Ich weiß nicht, was in datenbank->config->{db}{db} bei dir drin steht, aber hinter dsn => muss letzten Endes DBI:ODBC:Driver={SQL Server};server={DSR5003};database={datenbankname} erscheinen. Momentan wird da was aus dem String DBI:mysql und einem Eintrag aus der Konfiguration zusammengebaut.
      
      Falls das nicht erfolgreich ist, solltest du mal schauen ob du irgendwo eine aussagekräftige Fehlermeldung bekommst und die Posten.
      
      Btw. in Zukunft Doppelposts vermeiden, einmal posten reicht.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +3 replies
  - xcoder44
    
    2009-04-29 13:08
    User since
    2009-04-27
    16 Artikel
    BenutzerIn
    
    ja, das ist schon klar, jedoch wie???
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8
    
    __PACKAGE__->config( ... dsn? server? user? pass? ... )
    
    daher meine frage...
    
    als einzelverbindung bekomme ich das ja weiterhin zum laufen:
    
    Code (perl): (dl )
    
    my $db = DBI->connect('DBI:ODBC:Driver={SQL Server};server={DSR5003};database={datenbankname}')
    
    Danke und Gruss,
    - +2 replies
    - renee
      
      2009-04-29 13:57
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      schon
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      package datenbank::Model::dDB; use strict; use base 'Catalyst::Model::DBI'; __PACKAGE__->config( dsn => "DBI:ODBC:Driver={SQL Server};server={DSR5003};database={" . datenbank->config->{db}{db} . "}:", user => datenbank->config->{db}{user}, password => datenbank->config->{db}{password}, options => {}, );
      
      probiert?
      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/
      - xcoder44
        
        2009-04-29 14:13
        
        User since
        2009-04-27
        16 Artikel
        BenutzerIn
        
        funktioniert genau so!....
        Dankeschön Euch allen...
        
        Gruss, xcoder44

View all threads created 2009-04-28 22:31.