[ic] Want to use new module/library in embedded Perl code
cfm@maine.com
cfm@maine.com
Thu, 15 Feb 2001 09:43:03 -0500
On Wed, Feb 14, 2001 at 11:58:00PM -0800, Dan B wrote:
> At 01:49 AM 2/15/2001 -0500, you wrote:
> >Hey thanks alot for the advice - I'm now able to call procedures in user
> >tags, but I still don't seem to be able to "use" my JVM module. I tried
> >using the "use" syntax:
> >
> >UserTag java_code Routine <<EOF
> >sub {
> > use JVM;
> >return "testy testy";
> >
> >}
> >EOF
> >
> >But this didn't work and nothing gets reported in my:
> >/tmp/icdebug
> >file except for a log of when I restart the server:
> >Start DEBUG at Thu Feb 15 00:10:50 2001
> >
> >Anyway, after that failed, I tried to adapt your shipping subroutine that
> >you sent me to my purposes:
> >
> >UserTag java_code Routine <<EOF
> >sub {
> > require MV::JVM;
> >return "testy testy";
> >
> >}
> >EOF
> >
> >This also didn't work - is there any sort of a tutorial on the syntax of
> >writing these subroutines? Specifically on how to import modules. Once I
> >have access to the JVM module, I know the code I need to write in perl.
MV::JVM is probably not going to work for you unless you have a directory
MV in the @INC. Ours is /usr/lib/perl5/MV where we keep our custom
minivend libraries; I doubt you have that. And unless you run Debian linux
/usr/lib/perl5 is probably not even in your @INC.
See what your @INC is with something like this: I'm not sure if it
runs afoul of Safe in a stock install or not.
[perl]
{
return join '<BR>',@INC,'<BR>';
}
[/perl]
I'd suggest you NOT use "MV". There is no reason to clutter your life with
our legacy code and conventions.
See bin/interchange for how to use perl modules. Just put your JVM module
there and restart. Odds are you are not changing that module, right?
> >
> >Thanks for all of your help,
> >Tim Cassidy
>
> Does it help if you set AllowGlobal mode for your catalog?
You need that sometimes; I don't think it is completely consistent. (We're
still at 4.03 - YMMV.)
>
> http://developer.akopia.com/cgi-bin/ic/docfly.html?mv_arg=reference24%2e04
>
>
>
> >On Mon, 12 Feb 2001 cfm@maine.com wrote:
> >
> > > > The best I was able to do was create a GlobalSub in the interchange.cfg
> > > > file:
> > > >
> > > > GlobalSub <<EOF
> > > > sub count_orders {
> > > > return "this is returned from count_orders subroutine.\n";
> > > > }
> > > > EOF
> > >
> > > You don't have these modules, but the syntax is the same.
> > > I'm pretty sure you can "use" (vs "require").
> > >
> > >
> > > #############
> > > ## merchants_shipping
> > >
> > > UserTag merchants_shipping Order base
> > > UserTag merchants_shipping Routine <<EOF
> > > sub {
> > > require MV::Merchants;
> > > require MV::Shipping;
> > > my($M,$adj,%opt);
> > >
> > > $opt{config}=$Vend::Cfg->{CatalogName};
> > > $adj=0;
> > >
> > $M=&MV::Merchants::load_merchant(\%opt,$Vend::Session->{values}); #
> > stubbed everywhere
> > > $opt{shipping_rules}=$M->{$opt{config}}{shipping_rules} if
> > defined($M);
> > >
> > $adj+=&MV::Shipping::base_item_shipping(\%opt,$opt{shipping_rules}) if
> > ($opt{shipping_rules});
> > >
> > $adj+=&MV::Shipping::extra_item_shipping(\%opt,$opt{shipping_rules}) if
> > ($opt{shipping_rules});
> > >
> > $adj+=&MV::Shipping::gift_certificate_shipping(\%opt,$opt{shipping_rules})
> > if ($opt{shipping_rules});
> > > return $adj;
> > > }
> > > EOF
> > >
> > > Frankly, I think
> > > the issue is you are taking too big a first bite. Write a
> > > little perl module that just opens, writes and closes a file.
> > > Call that perl module. Get it to work. They are all the same
> > > after that.
> > >
> > > > So then I tried creating a regular subroutine in the interchange.cfg
> > file:
> > > > Sub <<EOF
> > > > sub sort_cart_by_quantity {
> > > > my $out = 'This is a test!!!';
> > > > return $out;
> > > > }
> > > > EOF
> > > >
> > > > But again I couldn't call it from my embedded perl code in my html pages:
> > > > [perl]
> > > > return sort_cart_by_quantity();
> > > > [/perl]
> > >
> > > Is that right? I bet you created a nameless sub that has
> > > a compiled sub in it, sort_cart_by_quantity. I'm not sure about
> > > that Sub syntax in cfg - never used it. Check Config.pm and see
> > > how it gets parsed.
> > >
> > >
> > > --
> > >
> > > Christopher F. Miller, Publisher cfm@maine.com
> > > MaineStreet Communications, Inc 208 Portland Road, Gray, ME 04039
> > > 1.207.657.5078 http://www.maine.com/
> > > Content management, electronic commerce, internet integration, Debian linux
> > >
> > > _______________________________________________
> > > Interchange-users mailing list
> > > Interchange-users@lists.akopia.com
> > > http://lists.akopia.com/mailman/listinfo/interchange-users
> > >
> >
> >
> >
> >_______________________________________________
> >Interchange-users mailing list
> >Interchange-users@lists.akopia.com
> >http://lists.akopia.com/mailman/listinfo/interchange-users
>
> Dan Browning, Cyclone Computer Systems, danb@cyclonecomputers.com
>
>
> _______________________________________________
> Interchange-users mailing list
> Interchange-users@lists.akopia.com
> http://lists.akopia.com/mailman/listinfo/interchange-users
--
Christopher F. Miller, Publisher cfm@maine.com
MaineStreet Communications, Inc 208 Portland Road, Gray, ME 04039
1.207.657.5078 http://www.maine.com/
Content management, electronic commerce, internet integration, Debian linux