our @ISA = qw( Exporter );
-our ( $TOPDIR, $DBDIR, $TEMPLATEDIR, $CACHEDIR, $ROOT,
- @LANGUAGES, @DDTP_LANGUAGES, $LOCALES,
+our ( $TOPDIR, $DBDIR, $TEMPLATEDIR, $CACHEDIR, $ROOT, $SEARCH_URL,
+ @LANGUAGES, @DDTP_LANGUAGES,
@SUITES, @SECTIONS, @ARCHIVES, @ARCHITECTURES,
@PRIORITIES, %FTP_SITES );
-our @EXPORT_OK = qw( $TOPDIR $DBDIR $TEMPLATEDIR $CACHEDIR $ROOT
- @LANGUAGES @DDTP_LANGUAGES $LOCALES
+our @EXPORT_OK = qw( $TOPDIR $DBDIR $TEMPLATEDIR $CACHEDIR $ROOT $SEARCH_URL
+ @LANGUAGES @DDTP_LANGUAGES
@SUITES @SECTIONS @ARCHIVES @ARCHITECTURES
@PRIORITIES %FTP_SITES );
our %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
$TEMPLATEDIR = $1 if /^\s*templatedir="?([^\"]*)"?\s*$/o;
$CACHEDIR = $1 if /^\s*cachedir="?([^\"]*)"?\s*$/o;
$ROOT = $1 if /^\s*root="?([^\"]*)"?\s*$/o;
- $LOCALES = $1 if /^\s*localedir="?([^\"]*)"?\s*$/o;
+ $SEARCH_URL = $1 if /^\s*search_url="?([^\"]*)"?\s*$/o;
$FTP_SITES{us} = $1 if /^\s*ftpsite="?([^\"]*)"?\s*$/o;
$FTP_SITES{$1} = $2 if /^\s*(\w+)_ftpsite="?([^\"]*)"?\s*$/o;
@LANGUAGES = split(/\s+/, $1) if /^\s*polangs="?([^\"]*)"?\s*$/o;
@ARCHITECTURES = split(/\s+/, $1) if /^\s*architectures="?([^\"]*)"?\s*$/o;
@PRIORITIES = split(/\s+/, $1) if /^\s*priorities="?([^\"]*)"?\s*$/o;
}
- foreach (($TEMPLATEDIR, $CACHEDIR, $LOCALES)) {
+ foreach (($TEMPLATEDIR, $CACHEDIR)) {
s/\$\{?topdir\}?/$TOPDIR/g;
}
close (C);
}
$DBDIR = "$TOPDIR/files/db";
unshift @LANGUAGES, 'en';
+ unshift @DDTP_LANGUAGES, 'en';
}
1;