view release on metacpan or  search on metacpan

lang/langdbm.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use MLDBM qw(GDBM_File Data::Dumper);
use Fcntl;
use Data::Dumper;

my %lang = ();

opendir(DH, ".") or die $!;

while (my $filename = readdir(DH)) {
    next if -d $filename;
    next if $filename !~ /^(\w{2})\.lang$/;
    my $lang = $1;
    print "Importing $filename ($lang)\n";

lib/Apache/DnsZone.pm  view on Meta::CPAN

use Apache::DnsZone::Config;
use Apache::DnsZone::Resolver;
use Apache::DnsZone::DB;
use Apache::DnsZone::Language;
use Apache::DnsZone::AuthCookie;
use Net::DNS;
use Net::IP qw(:PROC);
use HTML::Entities;
use Email::Valid;
use CGI::FastTemplate;
use Data::Dumper;

my %lang = ();
my $cfg;
my $res;
my $dbh;
my $apr;
my $DebugLevel = 1;

sub init {
    my $r = shift || Apache->request();

lib/Apache/DnsZone/Language.pm  view on Meta::CPAN

package Apache::DnsZone::Language;

# $Id: Language.pm,v 1.7 2001/06/03 11:10:24 thomas Exp $

use strict;
use vars qw($VERSION);
use Apache::DnsZone;
use MLDBM qw(GDBM_File Data::Dumper);
use Fcntl;

($VERSION) = qq$Revision: 1.7 $ =~ /([\d\.]+)/;

sub fetch {
    my $class = shift;
    my $cfg = shift;
    my $lang = shift;
    Apache::DnsZone::Debug(5, qq{Apache::DnsZone::Language::fetch($lang) called});
    my $lang_dir = $cfg->{'cfg'}->{DnsZoneLangDir};