SIS - Sistema Integrado de Supervisão

#!/usr/bin/perl #This next line starts the whole stuff. &Main; sub Init { open DATE, "/bin/date|"; $_ = ; chop( $hoje = $_ ); close DATE; @hoje = split( / /, $hoje ); $hora = @hoje[3]; $dia = "@hoje[2] de $mes{$hoje[1]}"; $dondeip = $ENV{REMOTE_ADDR}; $browser= $ENV{HTTP_USER_AGENT}; $file= "/usr/tmp/acessos"; open(TMP, ">>$file"); print TMP "$dondeip \| $browser \| $hoje\n"; close TMP; } #Subrotina para construcao da pagina DESENV # sub Browserdesen { print<<"EOF"; SIS - Sistema Integrado de Supervisão EOF } #Subrotina para construcao da pagina DESENV e EPT # sub Browserept { print<<"EOF"; SIS - Sistema Integrado de Supervisão EOF } #Subrotina para construcao da pagina CGRs # sub Browsercgrs { print<<"EOF"; SIS - Sistema Integrado de Supervisão EOF } #Subrotina para construcao da pagina MUNDO # sub Browsermundo { print<<"EOF"; SIS - Sistema Integrado de Supervisao EOF } #Subrotina para construcao da pagina INTEROP # sub Browserinterop { print<<"EOF"; SIS - Sistema Integrado de Supervisao EOF } sub Main { print "Content-type: text/html\n\n"; &Init; if ($dondeip =~ /10.2.80./ or $dondeip =~ /150.164.7./) { &Browserdesen; } elsif ($dondeip =~ /150.164.202./ or $dondeip =~ /150.164.201./) { &Browserept; } elsif ($dondeip =~ /10.2.8./ or $dondeip =~ /10.2.11./ or $dondeip =~ /10.2.24./ or $dondeip =~ /10.2.40./ or $dondeip =~ /10.2.48./ or $dondeip =~ /10.2.56./ or $dondeip =~ /10.2.64./ or $dondeip =~ /150.164.6./ or $dondeip =~ /10.34.48./) { &Browsercgrs; } elsif ($dondeip =~ /10.131.11.26/ or $dondeip =~ /10.131.11.65/ or $dondeip =~ /172.16.30.21/ or $dondeip =~ /172.16.30.21/ or $dondeip =~ /172.16.31.23/ or $dondeip =~ /172.16.31.24/ ) { &Browserinterop; } else { &Browsermundo; } }