Monks,

Could any one give me some pointers on the following problem. We currently have a small suite of Perl Web Applications that we use. Because there are many actions that are common to all of the applications, we have created a common file called common.pl. This file contains functions that the other applications can call.

At the moment we are loading the common file using a require command and it all seems to work fine. I know its not the best way of constructing this, but I have not got the time to convert it to a module at the moment.

Is it possible for this common file to work out if it is been called from one of the applications using the require, or if some one has accessed it directly from the Web Server?

I want to be able to make it output a warning to users who try and access it directly. Ideally I would like to move it into a directory not accessible by the web server, but I am not going to be able to move it at this point.

Any ideas would be greatly received.

Many Thanks,

Alistair

In reply to Called by Require or Not by allyc

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.