/* * setuid wrapper: C wrapper for setuid perl programs. * * Copyright (C) 1996,1997 Andy Wardley. All Rights Reserved. * * -- * * guestbook.c: Wrapper for the guestbook script. * * $Id: guestbook.c,v 1.1 1997/02/20 09:27:46 abw Exp abw $ * */ #include /* errno, unsurprisingly */ #include /* puts, printf, etc. */ #include /* vprintf, etc */ #include /* strerror */ #include /* execl */ /* change this to contain the FULL path of your guestbook script */ #define PROGPATH "/usr/people/abw/www/cgi-bin/guestbook.pl" #define PROGNAME "Guestbook" /* * void html_error(char *program, char *format, ...) * * Basic error reporting function. Formats the error message (as per * printf(3S)) for html output. */ void html_error(char *program, char *format, ...) { va_list args; /* gack! */ puts("Content-type: text/html\n\n"); puts("\n\nError\n\n\n"); puts("\n"); puts("

Error!

\n"); puts("An error has occurred:\n"); printf("
    %s\n
  • ", program); /* print formatted error message */ va_start(args, format); vprintf(format, args); va_end(args); puts("\n
\n\n"); puts("\n\n"); } /* * main(int argc, char **argv) * * Simply exec's the Perl script, generating an HTML error page on failure. */ main(int argc, char **argv) { execl(PROGPATH, PROGPATH, (char *) 0); html_error(PROGNAME, "exec failed: %s", strerror(errno)); }