I'm not sure I quite understand exactly what you're looking for, so correct me if I'm wrong... What I think you want is the Cwd module that comes included with the standard distribution. If you have /dir1/cgi which calls cwd(), and a symlink to it in /dir2/cgi, executing /dir2/cgi will have cwd() return /dir2, so if you use that in the main cgi, you can always determine the directory that it is linked from. For the url part of the question, I don't think you can get what you want through HTTP_REFERER, as that will contain the url that the person came from, not the url of the cgi that is linked to. The best way to go about it would probably be to have some sort of base url inside the perl script, to which part of the directory can be appended. This also prevents any potential security problems of trusting that the user isn't messing with their Referer header.

In reply to Re: Pull referencing directory/URL? by plaid
in thread Pull referencing directory/URL? by Anonymous Monk

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.