Tutorial / How-To für MySql-Daten Web Tool gesucht - #9739 (Perl/CGI)

renee

2007-03-10 14:11

User since
2003-08-04
14371 Artikel
ModeratorIn

Ist aber sehr früh ;-)

Ein ganz einfaches Skript (ungetestet):

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use CGI;
use FindBin;
use HTML::Template::Compiled;

my $query = CGI->new();
my %params = $query->Vars();

unless($params{action}){
    $query->redirect("/formular.cgi");
}
else{
    my $results = do_query(%params);
    print $query->header();
    my $template = HTML::Template::Compiled->new(
            filename => $FindBin::Bin . '/results.tmpl',
    );
    $template->param(RESULTS => $results);
    print $template->output();
}

sub do_query{
    my (%params) = @_;

    my $dbh = DBI->connect('DBI:mysql:tabelle:host','user','passwd') or die $DBI::errstr;
  
    my $stmt = "SELECT * FROM tabelle WHERE Spalte1 = ? OR Spalte2 = ? OR Spalte3 = ? OR Spalte4 = ? OR Spalte5 = ? OR Spalte6 = ?";
    my $sth = $dbh->prepare($stmt) or die $dbh->errstr;
    $sth->execute( ($params{search}) x 6) or die $dbh->errstr;

    my $results = $sth->fetchall_hashref();
    return $results;
}

formular.html:

Code: (dl )

<html>
<body>
<form action="/cgi-bin/script.cgi" method="post">
  <input type="hidden" name="action" value="1">
  <input type="text" name="search">
  <input type="submit">
</form>
</body>
</html>

results.tmpl

Code: (dl )

<html>
<body>
  <table>
  <TMPL_LOOP NAME=RESULTS>
      <tr>
        <td><TMPL_VAR NAME=Spalte1></td>
        ...
        <td><TMPL_VAR NAME=Spalte20></td>
        <td><a href="<TMPL_VAR NAME=ZUSAMMENGEBAUTERLINK ESCAPE=HTML>">Link</a></td>
  </TMPL_LOOP>
  </table>
</body>
</html>

Das mal als Grundlage... Du musst halt Pfade und Spaltennamen noch anpassen...

Viel Spass!

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/