Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]719[/thread]

Linkit

Leser: 1


<< >> 7 Einträge, 1 Seite
haijp
 2006-05-02 13:34
#7466 #7466
User since
2006-04-11
14 Artikel
BenutzerIn
[default_avatar]
hiho also hab das prog nochmal ein wenig umgeschrieben aus dem letzten post von mir und jetzt funzt es soweit genau so wie ich es haben will nur das ich es jetzt so habe das er wieder bei der asugabe auf der seite auch die tatsächlichen links angibt aber er soll ja die beschreibung als link anzeigen.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

# Initialisierung

my $cgi         = new CGI;
my %params      = $cgi->Vars();
my $file         = '/SAN/content/cgi-bin/links';
my $save_error   = "";

# Parameter pruefen

foreach ( keys %params ) {
}

# Linkliste erstellen

sub create_linklist {
   open ( F, ">", $file ) || die "could not create $file. $!";
   print  F "#" x80, "\n";
   printf F "# Linklist created %s.\n", scalar localtime ( time );
   close    F;
}

# Speichern des neuen Links wenn einer eingetragen wurde.

if ( defined $params{write} && $params{write} eq "true" ) {
   $params{text} =~ s/\r\n/<br>/sg;

   if (! -f $file ) {
      &create_linklist;
   }
   else {
      if ( $params{url} =~ /^http:\/\/.*$/ ) {
         open ( D, '>>', $file ) or die "Could not save data. $!";
         print D "#" x80, "\n$params{url}\n$params{text}\n";
         close D;
        }
      else {
         $save_error  = "<p>Bitte geben Sie den kompletten URL an, sonst kann ";
         $save_error .= "Ihr Link nicht gespeichert werden.<br /> Beispiel: ";
         $save_error .= "http://ihr.neuer.link.com/</p>";
     }
   }
}

# Laden der Linkliste

my @links;

if (! -f $file ) {
   &create_linklist;
}
else {
 open ( F, '<', $file ) || die "Could not open $file. $!";
   @links = grep { /^http/ } <F>;
   close F;
   foreach ( @links ) { chomp ( $_ ); }
}

# Ausgabe der Seite

my $author = "Andre Hornig";

print $cgi->header(),
$cgi->start_html(
   -title   => "Linkit - Eine kleine Favoritenliste.",
   -bgcolor => "#99ccff",
   'Linkit'
),
$cgi->h1('Linkit'),
$cgi->p({-style => 'color:red'}, "Verfasst von: ", $cgi->i($author)),

$cgi->hr({-noshade => undef, -size => '1'}),

$cgi->p('Eine kleine Favoritenliste');

foreach ( @links ) { print $cgi->p('',$cgi->a( {-href => $_}, $_ ) ); }

print $cgi->hr({-noshade => undef, -size => '1'});

print << "EOF";
<h1>Neuen Link eintragen</h1>
$save_error
<form action="" method="post">
   <p>
      Link:<br />
      <input type="text" name="url" size="40" maxlength="40" />
   </p>
   <p>
      Beschreibung:<br />
      <textarea rows="5" cols="50" name="text"></textarea>
      <input type=hidden name="write" value="true" />
   </p>
   <p><input type="submit" value="Absenden" /></p>
</form>
EOF

$cgi->end_html();


Und das jetzt zu kombinieren mit dem was ich vorher hatte klappt nicht ganz deswegen. Schätze ja mal das man diese zeile
Code: (dl )
foreach ( @links ) { print $cgi->p('',$cgi->a( {-href => $_}, $_ ) ); }
irgendwie fixen kann das er die beschreibung als link ausgibt oder muss ich es vorher wieder wo anders reinsaven? Naja wäre froh für ne Lösung thx
renee
 2006-05-02 13:42
#7467 #7467
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
#!/usr/bin/perl

use strict;
use warnings;

use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

# Initialisierung

my $cgi         = new CGI;
my %params      = $cgi->Vars();
my $file         = '/SAN/content/cgi-bin/links';
my $save_error   = "";

# Parameter pruefen

foreach ( keys %params ) {
}

# Linkliste erstellen

sub create_linklist {
  open ( F, ">", $file ) || die "could not create $file. $!";
  print  F "#" x80, "\n";
  printf F "# Linklist created %s.\n", scalar localtime ( time );
  close    F;
}

# Speichern des neuen Links wenn einer eingetragen wurde.

if ( defined $params{write} && $params{write} eq "true" ) {
  $params{text} =~ s/\r?\n/<br>/sg;

  if (! -f $file ) {
     &create_linklist;
  }
  else {
     if ( $params{url} =~ /^http:\/\/.*$/ ) {
        open ( D, '>>', $file ) or die "Could not save data. $!";
        print D "#" x80, "\n$params{url}\n$params{text}\n";
        close D;
       }
     else {
        $save_error  = "<p>Bitte geben Sie den kompletten URL an, sonst kann ";
        $save_error .= "Ihr Link nicht gespeichert werden.<br /> Beispiel: ";
        $save_error .= "http://ihr.neuer.link.com/</p>";
    }
  }
}

# Laden der Linkliste

my @links;

# Ausgabe der Seite

my $author = "Andre Hornig";

print $cgi->header(),
$cgi->start_html(
  -title   => "Linkit - Eine kleine Favoritenliste.",
  -bgcolor => "#99ccff",
  'Linkit'
),
$cgi->h1('Linkit'),
$cgi->p({-style => 'color:red'}, "Verfasst von: ", $cgi->i($author)),

$cgi->hr({-noshade => undef, -size => '1'}),

$cgi->p('Eine kleine Favoritenliste');

if (! -f $file ) {
  &create_linklist;
}
else {
  my $url = "";
  open ( F, '<', $file ) || die "Could not open $file. $!";
  while(my $line = <F>){
    chomp $line;
    if($. % 2 == 0){
       print $cgi->p('',$cgi->a( {-href => $url}, $line ) ); 
    }
    else{
      $url = $line;
    }
  close F;
}

print $cgi->hr({-noshade => undef, -size => '1'});

print << "EOF";
<h1>Neuen Link eintragen</h1>
$save_error
<form action="" method="post">
  <p>
     Link:<br />
     <input type="text" name="url" size="40" maxlength="40" />
  </p>
  <p>
     Beschreibung:<br />
     <textarea rows="5" cols="50" name="text"></textarea>
     <input type=hidden name="write" value="true" />
  </p>
  <p><input type="submit" value="Absenden" /></p>
</form>
EOF

$cgi->end_html();
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/
haijp
 2006-05-02 14:16
#7468 #7468
User since
2006-04-11
14 Artikel
BenutzerIn
[default_avatar]
ähm nö so gibt er mir gar nix auf der page aus ^^
lichtkind
 2006-05-02 14:32
#7469 #7469
User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn
[Homepage]
user image
warum nehmt ihr eigentlich nicht das perl-tag statt des code-tag?
Wiki:Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
GwenDragon
 2006-05-02 14:36
#7470 #7470
User since
2005-01-17
14748 Artikel
Admin1
[Homepage]
user image
[quote=lichtkind,02.05.2006, 12:32]warum nehmt ihr eigentlich nicht das perl-tag statt des code-tag?[/quote]
Weil es nicht immer korrekt funktioniert.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
renee
 2006-05-02 14:41
#7471 #7471
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Vor dem close F; fehlt noch ein }. Dann ist es lauffähig (siehe http://perl.renee-baecker.de/linkit.cgi)...
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/
renee
 2006-05-02 14:44
#7472 #7472
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nimm das "#" x80 noch beim Eintragen der URL raus... Und mach noch
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
  while(my $line = <F>){
   chomp $line;
   next unless($. >=2 );
   if($. % 2 == 0){
      print $cgi->p('',$cgi->a( {-href => $url}, $line ) );
   }
   else{
     $url = $line;
   }
 }
 close F;
anstatt
Code: (dl )
1
2
3
4
5
6
7
8
9
  while(my $line = <F>){
   chomp $line;
   if($. % 2 == 0){
      print $cgi->p('',$cgi->a( {-href => $url}, $line ) );
   }
   else{
     $url = $line;
   }
 close F;
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/
<< >> 7 Einträge, 1 Seite



View all threads created 2006-05-02 13:34.