← Back to branch summary

~ubuntu-branches/debian/sid/libembperl-perl/sid

« back to all changes in this revision

Viewing changes to eg/web/config.pl

  • Committer: Bazaar Package Importer
  • Author(s): Angus Lees
  • Date: 2005-04-20 19:25:44 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 hoary)
  • Revision ID: james.westby@ubuntu.com-20050420192544-dcp6nkxni4puc6h6
Tags: 2.0rc3-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
eg/web/config.pl
27
27
    $self -> {root}      = $ENV{EMBPERL_SRC} . '/' ;
28
28
    
29
29
    # check if Embperl 1.3 is installed
30
 
    my $lib_1_3 = dirname ($INC{'Apache.pm'})  ;
31
 
    if (-e ($lib_1_3 . '/HTML/Embperl.pod'))
32
 
        {
33
 
        $self -> {lib_1_3}     = $lib_1_3 ;
34
 
        }
35
 
    else
36
 
        {
37
 
        $self -> {lib_1_3}     = '' ;
38
 
        }
 
30
    if ($INC{'Apache.pm'})
 
31
        {
 
32
        my $lib_1_3 = dirname ($INC{'Apache.pm'})  ;
 
33
        if (-e ($lib_1_3 . '/HTML/Embperl.pod'))
 
34
            {
 
35
            $self -> {lib_1_3}     = $lib_1_3 ;
 
36
            }
 
37
        }
 
38
    $self -> {lib_1_3} ||= '' ;
39
39
 
40
40
    # check if DBIx::Recordset is installed
41
41
    my $lib_dbix = $lib_1_3  ;
43
43
        {
44
44
        $self -> {lib_dbix}     = $lib_dbix ;
45
45
        }
46
 
    elsif (-e (dirname($lib_dbix) . '/DBIx/Intrors.pod'))
 
46
    elsif ($lib_dbix && (-e (dirname($lib_dbix) . '/DBIx/Intrors.pod')))
47
47
        {
48
48
        $self -> {lib_dbix}     = dirname($lib_dbix) ;
49
49
        }
73
73
            'Enter info to add about Embperl' => 'Eingabe von Informationen zu Embperl',
74
74
            'Show info added about Embperl'   => 'Anzeige der gespeicherten Informationen zu Embperl',
75
75
            'Infos about Embperl'             => 'Informationen �ber Embperl',  
76
 
            '1.3.4 documentation'             => '1.3.4 Dokumentation',
 
76
            '1.3.6 documentation'             => '1.3.6 Dokumentation',
77
77
            'Configuration'                   => 'Konfiguration',
78
78
            'Conferences'                     => 'Konferenzen',
79
79
            'Books'                           => 'B�cher',
92
92
         },
93
93
        { menu => 'Introduction',           uri => 'pod/intro/', sub =>
94
94
            [
95
 
            { menu => 'Embperl',            uri => 'Intro.htm',                 file => { en => 'Intro.pod', 'de' => 'IntroD.pod'},
 
95
            { menu => 'Embperl',            uri => 'Intro.htm',                 file => 'Intro.pod', #file => { en => 'Intro.pod', 'de' => 'IntroD.pod'},
96
96
                  desc => { en => 'Introduction of Embperl basic capablitities', 
97
97
                            de => 'Einf�hrung in die grundlegenden M�glichkeiten von Embperl' }},
98
98
            { menu => 'Embperl::Object',    uri => 'IntroEmbperlObject.htm',    file => 'IntroEmbperlObject.pod',
108
108
        },
109
109
        { menu => 'Documentation',          uri => 'pod/doc/', sub => 
110
110
            [
111
 
                { menu => 'README.v2',            uri => 'README.v2',             file => { en => 'README.v2', de => 'README.v2'},
112
 
                  desc => { en => 'Contains differences to Embperl 1.3 and all docs for Embperl 2 that have not made it yet into the real docs',
113
 
                            de => 'Enth�lt die Unterschiede zu Embperl 1.3 und alle Dokumentation die noch nicht in eigentliche Dokumentation eingearbeitet wurde' }},
 
111
                { menu => 'README',            uri => 'README',          file => { en => 'README', de => 'README'},
 
112
                  desc => { en => 'Short overview',
 
113
                            de => 'Kurz�berblick' }},
 
114
                { menu => 'README.v2',            uri => 'README.v2',          file => { en => 'README.v2', de => 'README.v2'},
 
115
                  desc => { en => 'Contains what\'s new in Embperl 2.0 and differences to Embperl 1.3',
 
116
                            de => 'Enth�lt die Neuigkeiten von Embperl 2.0 und die Unterschiede zu Embperl 1.3' }},
114
117
                { menu => 'Configuration',           uri => 'Config.htm',               file => { en => 'Config.pod', de => 'Config.pod'},
115
118
                  desc => { en => 'Configuration and calling of Embperl', 
116
119
                            de => 'Konfiguration und Aufruf von Embperl' }},
117
 
                { menu => 'Embperl',            uri => 'Embperl.htm',               file => { en => 'Embperl.pod', de => 'EmbperlD.pod'},
 
120
                { menu => 'Embperl',            uri => 'Embperl.htm',               file => 'Embperl.pod', #{ en => 'Embperl.pod', de => 'EmbperlD.pod'},
118
121
                  desc => { en => 'Main Embperl documentation', de => 'Hauptdokumentation' }},
119
122
                { menu => 'Embperl::Object',    uri => 'EmbperlObject.htm',         file => 'Embperl/Object.pm',
120
123
                  desc => { en => 'Documentation for creating object-oriented websites', 
158
161
                  desc => { en => 'Documentation on how to use Embperl for generating and sending mail', 
159
162
                            de => 'Dokumentation wie man Embperl benutzt um Mail zu erstellen und zu senden' }},
160
163
#                { menu => 'Embperl::Util',    uri => 'EmbperlUtil.htm',         file => 'Embperl/Util.pm'},
161
 
            { menu => '1.3.4 documentation',              uri => 'doc13.htm', 
162
 
              desc => { en => 'Old documentation from Embperl 1.3.4', 
163
 
                        de => 'Alte Dokumentation von Embperl 1.3.4' },
 
164
            { menu => '1.3.6 documentation',              uri => 'doc13.htm', 
 
165
              desc => { en => 'Old documentation from Embperl 1.3.6', 
 
166
                        de => 'Alte Dokumentation von Embperl 1.3.6' },
164
167
              sub => ,
165
168
                [
166
169
                { menu => 'HTML::Embperl',         uri => 'HTML/Embperl.htm',               path => { en => '%lib_1_3%/HTML/Embperl.pod', de => '%lib_1_3%/HTML/EmbperlD.pod'},
177
180
                  desc => { en => 'Documentation for Embperls session handling object', 
178
181
                            de => 'Dokumentation �ber Embperls Session Objekt' }},
179
182
                { menu => 'Tips & Tricks',         uri => 'HTML/Embperl/TipsAndTricks.htm', path => '%lib_1_3%/HTML/TipsAndTricks.pod' ,
180
 
                  desc => { en => 'Tips & Tricks for Embperl 1.3.4', 
181
 
                            de => 'Tips & Tricks f�r Embperl 1.3.4' }},
 
183
                  desc => { en => 'Tips & Tricks for Embperl 1.3.6', 
 
184
                            de => 'Tips & Tricks f�r Embperl 1.3.6' }},
182
185
 
183
186
                { menu => 'FAQ',                    uri => 'pod/Faq.htm',               path => '%lib_1_3%/HTML/Faq.pod',
184
 
                  desc => { en => 'FAQ for Embperl 1.3.4', 
185
 
                            de => 'FAQ f�r Embperl 1.3.4' }},
 
187
                  desc => { en => 'FAQ for Embperl 1.3.6', 
 
188
                            de => 'FAQ f�r Embperl 1.3.6' }},
186
189
 
187
190
                ],
188
191
            },
190
193
        },
191
194
        { menu => 'Installation',           uri => 'pod/INSTALL.htm',           file => 'INSTALL.pod', sub =>
192
195
            [
193
 
            { menu => 'CVS',                relurl => 'pod/CVS.htm',               file => 'CVS.pod' }
 
196
            { menu => 'CVS',                relurl => 'pod/doc/CVS.htm',               file => 'CVS.pod' }
194
197
            ]
195
198
        
196
199
         },        #{ menu => 'FAQ',                    uri => 'pod/Faq.htm',               file => 'Faq.pod' },
197
200
        #{ menu => 'Examples',               uri => 'examples/' },
198
 
        { menu => 'Download',                uri => 'pod/doc/Embperl.-page-13-.htm'},    #sect_44' },
199
 
        { menu => 'Support',                uri => 'pod/doc/Embperl.-page-12-.htm' },
 
201
        { menu => 'Download',                uri => 'pod/doc/Embperl.-page-18-.htm'},    #sect_44' },
 
202
        { menu => 'Support',                uri => 'pod/doc/Embperl.-page-17-.htm' },
200
203
        { menu => 'Changes',                 uri => 'pod/Changes.htm',           file => 'Changes.pod' },
201
204
        #{ menu => 'Sites using Embperl',    uri => 'pod/Sites.htm',             file => 'Sites.pod' },
202
205
        { menu => 'More infos',          uri => 'db/', sub =>