package HTML::Merge::Development; use CGI qw/:standard/; use HTML::Merge::Error; use strict qw(vars subs); use warnings; require Exporter; use vars qw(@ISA @EXPORT $merge_absolute_path $merge_script $extra $file $year); @ISA = qw(Exporter); @EXPORT = qw($merge_absolute_path $merge_script $extra ReadConfig $file $year); $year = (localtime)[5] + 1900; # Functions ###################################################### sub OpenToolBox { my $url = &MakeLink("toolbox.pl"); print < EOM } ################################################################## sub MakeLink { my ($script, $more) = @_; $more = "&$more" if $more; return "$HTML::Merge::Ini::MERGE_PATH/private/perl/$script?merge_absolute_path=$HTML::Merge::Ini::MERGE_ABSOLUTE_PATH&merge_script=$HTML::Merge::Ini::MERGE_SCRIPT$more"; } ################################################################## sub MakeDefault { my ($sub) = @_; return "$HTML::Merge::Ini::MERGE_PATH/$HTML::Merge::Ini::MERGE_SCRIPT?__default__=yes&sub=$sub"; } ################################################################## sub DefaultPage { print < Merge
Merge

RAZ Information System LTD.














Merge(c) 1999-$year   http://www.raz.co.il
HTML } ################################################################## sub Transfer { foreach (qw(merge_absolute_path merge_script)) { printf qq(\n), $_, (param($_)||""); } } ################################################################## sub ReadConfig { my ($dont) = @_; my @extra; foreach (qw(merge_absolute_path merge_script)) { $$_ = param($_) || ''; $merge_script =~ s|/.*$||; push(@extra, "$_=$$_"); } $extra = join("&", @extra); $file = "$merge_absolute_path/$merge_script"; $file =~ s/\.\w+$/.conf/; $HTML::Merge::config = $file; do $file unless $dont; unless ($HTML::Merge::Ini::DEVELOPMENT) { print header; HTML::Merge::Error::ForceError('Development is off'); die "development is off $HTML::Merge::Ini::DEVELOPMENT"; # Would do both for CGI and mod_perl } } ################################################################## sub DefaultError { my ($error) = @_; print < Error
Merge ver. ($HTML::Merge::Compile::VERSION) Error Message

RAZ Information System LTD.


$error










Please contact the system administrator
Merge(c) 1999-$year   http://www.raz.co.il
HTML } ################################################################## sub DefaultDisplay { require CGI; import CGI; DefaultError(CGI::param('message')); } ################################################################## sub DefaultExpire { DefaultError("Your session has expired. Please log in again"); } ################################################################## sub DefaultForbidden { DefaultError("You do not have access to this page"); } ################################################################## sub FindHash { my ($line) = @_; my $pos = 0; while ($line =~ s/^(.*?)(['"#])//) { $pos += length($1) + 1; return $pos - 1 if ($2 eq '#'); my $ch = $2; unless ($line =~ s/^(.*?)(?, L, L. =cut