Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]9183[/thread]

Bilder, html installieren.



<< >> 2 Einträge, 1 Seite
linse
 2007-07-12 22:34
#78421 #78421
User since
2006-02-02
61 Artikel
BenutzerIn
[Homepage]
user image
Hallo beisammen, ich habe ein Module geschrieben das auch Bilder sowie css und javascript files enthält und suche nun den besten weg diese zu installieren.
Zur zeit  benutze ich folgendes Makefile.PL.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use ExtUtils::MakeMaker;
use strict;
my $htd =  "/srv/www/htdocs";
$htd = prompt("Where is your Document root ?" ,$htd);
WriteMakefile(
    NAME              => 'HTML::Menu::TreeView',
    VERSION_FROM      => 'lib/HTML/Menu/TreeView.pm', # finds $VERSION
    INSTALLDIRS => 'perl',
    INSTALLBIN => "\$(PERLPREFIX)$htd",
   PL_FILES => {'extra/release.pl' =>"-release blib/bin  -readdir htdocs/"},
    PREREQ_PM         => {"Module::Signature" => 0.55}, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
      (AUTHOR         => 'Dirk Lindner <lindnerei@o2online.de>') : ()),
#     'NO_META' => 1,
    SIGN => 1, 
);

Zur zeit missbrauche ich INSTALLBIN
um die files zu installieren und kopiere diese per
PL_FILES =>
ins blib Verzeichnis.
Jemand nen bessere Idee ?
Ansonsten würde ich noch gerne wissen was ihr davon haltet
Module::Signature zu benutzen war an überlegen ob ich wieder drauf verzichte weil es sich deswegen nicht überall installieren lässt).
Achso hier noch der release script (ich muss zugeben einen ziemlich veraltetes script).
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
use strict;
use Getopt::Long;
my $release = 'blib/';
my $dir ='htdocs/';
my $result = GetOptions("release=s"   => \$release,"readdir=s"   => \$dir,);
system("mkdir -p $release") unless -e $release;
&change($dir);
sub change{
    my $d = shift;
    chomp($d);
    opendir(IN,$d) or  die  "cant open $d $!:\n";
    my @files = readdir(IN);
    closedir(IN);
    for(my $i = 0; $i <= $#files; $i++){
        unless($files[$i]=~/^\./ ){
            my $c = $d.$files[$i];
            my $e = $c;
            $e=~s/^$dir(.*)/$1/;
               
 unless(-d $d.$files[$i]){
#system("perltidy $c") if (-e $d.".perltidyrc" && $files[$i]=~/.*(\.pl|\.pm)$/);
               
     system(" cp ".$c." $release/$e") unless( -e $release."/".$e && $files[$i]=~/\~$/ );
                            }else{
               
     unless($files[$i]=~/CVS/ ){
               
     system("mkdir -p $release/$e") unless(-e $release."/".$e );
               
     &change($d.$files[$i]."/");
               
     }
                            }
        }
    }
}
1;
ptk
 2007-07-12 22:56
#78422 #78422
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Weitere Idee:
Man könnte jede Webanwendungen so kapseln, dass man die notwendigen Parameter komplett in einer Apache-Conf beschreibt, die man dann in /etc/apache/conf.d legt. Typischerweise reichen einige Alias-, ScriptAlias- und Location-Anweisungen aus. Diese Conf-Datei könnte man original mit Platzhaltern versehen und die echten Pfade während der Installation eintragen (ich verwende meistens TT2 dafür). Das hätte den Vorteil, dass man die Dateien überall hin installieren kann, oder nirgendwo, oder die Standard-Installationspfade von Perl verwendet.
<< >> 2 Einträge, 1 Seite



View all threads created 2007-07-12 22:34.