The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# symlink or copy this file as WEsiteinfo.pm

package WEsiteinfo;

######################################################################
#
# Projectinfo
#
package WEprojectinfo;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(stagingextracgi));
$c = bless {}, __PACKAGE__;
$c->stagingextracgi(["bla.cgi"]);

######################################################################
#
# Paths
#
package WEsiteinfo::Paths;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(absoluteurl
			     rooturl rootdir cgiurl cgidir we_templatebase
			     site_templatebase we_htmlbase we_database photodir
			     downloaddir pubhtmldir prototypedir));
$c = bless {}, __PACKAGE__;
$c->absoluteurl("http://www:80/~eserte/webeditor/wwwroot");
$c->rooturl("/~eserte/webeditor/wwwroot");
$c->pubhtmldir("$FindBin::RealBin/testhtml");

######################################################################
#
# Staging
#
package WEsiteinfo::Staging;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(transport user password host directory
			     cgidirectory tempdirectory temp2directory));
$c = bless {}, __PACKAGE__;

$c->transport("ftp");
$c->user("dummy");
$c->password("dummy");
$c->host("dad");
$c->directory("testproject_live");
$c->cgidirectory("testproject_live/cgi-bin");

######################################################################
#
# WEsiteinfo
#
package WEsiteinfo;
use base qw(Exporter Class::Accessor);
__PACKAGE__->mk_accessors(qw(project paths searchengine staging debug));
@EXPORT_OK = qw($c);
$c = bless {}, __PACKAGE__;

$c->paths($WEsiteinfo::Paths::c);
$c->staging($WEsiteinfo::Staging::c);
$c->project($WEprojectinfo::c);

1;