#1
  1. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Aug 2000
    Location
    Chennai, Tamilnadu, India
    Posts
    19
    Rep Power
    0
    Hello Friends,

    I am developing a web based email project using Perl. I am having a file called xyz.pl.
    In which i can initially log in with username and password. then i am getting into the inbox. On LHS i am having a menu which has inbox, compose, address book etc. If i have lot of messages in the mail box i am getting alignment problem. So i have decided to use frames. I used frames and it is not working properly. Can anyone help me?
    Waiting for an earlier feedback.

    Cheers

    Keshav
  2. #2
  3. No Profile Picture
    freebsd
    Guest
    Devshed Newbie (0 - 499 posts)
    >>I used frames and it is not working properly

    Anything related to target and perl? Start here-> http://www.devshed.com/Talk/Forums/F...ML/000332.html

    If it's simply a frame question, please go to HTML or JavaScript forum.
  4. #3
  5. No Profile Picture
    Junior Member
    Devshed Newbie (0 - 499 posts)

    Join Date
    Aug 2000
    Location
    Chennai, Tamilnadu, India
    Posts
    19
    Rep Power
    0
    Hello

    I know how to use it in html. I want to know how to use it in a perl script. i am using two frames. in which file i should use the frames. My file is located at ../cgi-bin/xyz.pl. Here i can login and get into inbox. that is also xyz.pl. If i use frames what should be the name of the main program. Waiting for the reply.

    Thanks
    Keshav
  6. #4
  7. No Profile Picture
    freebsd
    Guest
    Devshed Newbie (0 - 499 posts)
    ############################################
    #!/usr/local/bin/perl

    print "Content-type: text/htmlnn";

    if ($ENV{'QUERY_STRING'} eq "left") {
    print "<body bgcolor=yellow>n";
    print "This is left framen";
    print "</body>n";
    # replace these with your subroutine here
    # add the appropriate frame target or form target here
    }
    if ($ENV{'QUERY_STRING'} eq "right") {
    print "This is right framen";
    # replace these with your subroutine here
    # add the appropriate frame target or form target here
    }

    if ($ENV{'QUERY_STRING'} eq "") {
    print "<html>n";
    print "<frameset frameborder=0 border=no framespacing=0 cols="18%,*">n";
    print "<frame name=left scrolling=auto src=xyz.pl?left>n";
    print "<frame name=right src=xyz.pl?right>n";
    print "</frameset>n";
    print "</html>n";
    }
    ############################################

    If this is not what you are trying to do, please be more specific of what is not working properly since you never specified what was the problem.

IMN logo majestic logo threadwatch logo seochat tools logo