Installing a cgi script without shell access

Discussion in 'Perl Misc' started by The Duke of Dunstable, Feb 14, 2005.

  1. Hi

    I've downloaded the Meep!board
    (http://www.standpipe.com/site/meepboard.html) cgi script. It says you
    need telnet access to your cgi-bin directory, but I don't have that.
    Is there anyway I can install and configure this without telnet? Can
    someone help?
     
    The Duke of Dunstable, Feb 14, 2005
    #1
    1. Advertising

  2. The Duke of Dunstable

    Tintin Guest

    "The Duke of Dunstable" <> wrote in message
    news:...
    > Hi
    >
    > I've downloaded the Meep!board
    > (http://www.standpipe.com/site/meepboard.html) cgi script. It says you
    > need telnet access to your cgi-bin directory, but I don't have that.
    > Is there anyway I can install and configure this without telnet? Can
    > someone help?


    Surely the authors of this wonderful script can help out....but then
    again...maybe not.

    The following code should be a red flag that they don't know Perl that well:

    [experienced users should avert their eyes now to avoid potential long term
    damage]


    -------------
    if ($mon < 10) { $mon = "0$mon"; }
    if ($mday < 10) { $mday = "0$mday"; }
    if ($hour < 10) { $hour = "0$hour"; }
    if ($min < 10) { $min = "0$min"; }
    if ($sec < 10) { $sec = "0$sec"; }
    -------------
    system("sort -n -r $datafile.bak > $datafile");

    flock(NEWDATA,8);
    -------------
    if ($origpost = $query->param('origpost')) {
    $hidden = "<INPUT TYPE=\"hidden\" NAME=\"origpost\"
    VALUE=\"$origpost\">";
    }
    else {
    $hidden = "";
    }
    --------------
    s/NAME\=\"title\"/NAME\=\"title\" VALUE\=\"$title\"/io;
    s/NAME\=\"contact\"/NAME\=\"contact\" VALUE\=\"$contact\"/io;
    s/NAME\=\"email\"/NAME\=\"email\" VALUE\=\"$email\"/io;
    --------------
    # get starting line number to view from $datafile
    $linenumber = $query->param('keywords');

    #skip line until $linenumber is reached
    if ($linenumber > 1) {
    while(<DATABASE>) {
    if (--$linenumber <= 1) { last; }
    }
    }
    -------------
    # read next $listlength messages
    $list = "";
    $c = 0;
    while(<DATABASE>) {
    ($ID,$date,$title,$contact,$post) = split(/\t/);
    $list = join("\n",$list,"<STRONG>$ID</STRONG> $date <A
    HREF=\"view.cgi?$ID\">$title</A> - $contact<BR>");
    if (++$c > ($listlength - 1)) { last; }
    }
    ---------------
    open(POSTNUM,"$message_number");
    while(<POSTNUM>) { $mess_num = $_; }
    close(POSTNUM);
    ---------------
     
    Tintin, Feb 14, 2005
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Christian Heimes
    Replies:
    0
    Views:
    611
    Christian Heimes
    Feb 27, 2008
  2. Gerardo Herzig
    Replies:
    1
    Views:
    1,106
    Philipp Pagel
    Feb 27, 2008
  3. kath
    Replies:
    4
    Views:
    701
    J. Gleixner
    Apr 9, 2007
  4. moongeegee

    execute a shell script in a shell script

    moongeegee, Dec 3, 2007, in forum: Perl Misc
    Replies:
    2
    Views:
    258
    Ben Morrow
    Dec 4, 2007
  5. Travis Spencer

    Installing arch-specific PM without shell access

    Travis Spencer, May 9, 2008, in forum: Perl Misc
    Replies:
    1
    Views:
    103
    Travis Spencer
    May 10, 2008
Loading...

Share This Page