#!/usr/bin/perl require "diplomado.lib"; require ".mod"; use CGI qw(:standard); $q=new CGI; $nm=60; $archpass="$DIRADMIN\/$ARCH"; $USER=$ENV{REMOTE_USER}; $grupo=&GetGrupo($USER,$archpass); &WriteLog("index"); if ($grupo eq "docente"){ $archhtml="modulo00d.htm"; } else { $archhtml="modulo00.htm"; } open FILE,$archhtml; print header; while (){ print $_; } exit; print header; print <<_FIN_HTML_; Diplomado en Informática 2000 - Módulo $nm

Módulo $nm


user: $ENV{REMOTE_USER}
Grupo: $grupo
$ENV{REMOTE_ADDR} _FIN_HTML_ exit;