[ic] AllowGllobal/UserTag - I need a help please

Alma Nuker interchange-users@interchange.redhat.com
Tue Mar 19 23:14:01 2002


Thanks Mike.

I tried  what you suggested:

require Date::Parse;
requireDate::Manip;
require Date::Format;

sub {

    my($duedate)=@_;


    my $new_date = &ParseDate($duedate);
    my $date_new=&DateCalc($new_date,"+ 1year",\my $err);
    my @format="%Y-%m-%d";
    my $final_date=&UnixDate($date_new,@format);
    return $final_date;
}

EOR

I is not working. I am getting following message:

Safe: Undefined subroutine &Vend::Interpolate::ParseDate called at (eval
106) line 9.

And line 9 in my file is:

UserTag get_date Routine <<EOR

If I change require for use as follow:

UserTag get_date Routine <<EOR
use Date::Parse;
use Date::Manip;
use Date::Format;

sub {

my($duedate)=@_;

 my $new_date = &ParseDate($duedate);
 my $date_new=&DateCalc($new_date,"+ 1year",\my $err);
 my @format="%Y-%m-%d";
 my $final_date=&UnixDate($date_new,@format);
 return $final_date;
}

EOR


Is working, but I am getting following warning when I restart
interchange:

Prototype mismatch: sub Vend::Interpolate::strftime vs ($\@;$) at
/usr/share/perl/5.6.1/Exporter.pm line 57, <GLOBAL> line 25.
 Exporter::import('time2str', 'strftime', 'ctime', 'asctime') called at
(eval 106) line 3
 Vend::Interpolate::BEGIN() called at
/usr/local/share/perl/5.6.1/Date/Format.pm line 3
 eval {...} called at /usr/local/share/perl/5.6.1/Date/Format.pm line 3
 eval 'use Date::Parse;
use Date::Manip;
use Date::Format;

sub {

my($duedate)=@_;

 my $new_date = &ParseDate($duedate);
 my $date_new=&DateCalc($new_date,"+ 1year",\\my $err);
 my @format="%Y-%m-%d";
 my $final_date=&UnixDate($date_new,@format);
 return $final_date;
}


;' called at /usr/lib/interchange/Vend/Config.pm line 3004

 eval {...} called at /usr/lib/interchange/Vend/Config.pm line 3002
 Vend::Config::parse_tag('UserTag', 'get_date Routine ^Juse
Date::Parse;^
Juse Date::Manip;^Juse Date::Fo...') called at
/usr/lib/interchange/Vend/Config.
pm line 1114
 Vend::Config::__ANON__('usertag', 'get_date Routine ^Juse
Date::Parse;^J
use Date::Manip;^Juse Date::Fo...') called at
/usr/lib/interchange/Vend/Config.p
m line 1229
 Vend::Config::global_config() called at
/usr/lib/interchange/bin/interch
ange line 2753
 main::main_loop() called at /usr/lib/interchange/bin/interchange line
28
80
 eval {...} called at /usr/lib/interchange/bin/interchange line 2880
Interchange V4.8.3

Still it is working, so if I do not work anything else I will be happy
with this.

Thanks a lot again.

Alma