TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Forum View

Use Monospaced Font
Show Text Part by Default
Condense Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender:
"Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
Subject:
From:
"Brakewood, Marcus x12479a2" <[log in to unmask]>
Date:
Fri, 28 Apr 2000 00:17:42 -0400
Content-Type:
text/plain
MIME-Version:
1.0
Reply-To:
"Brakewood, Marcus x12479a2" <[log in to unmask]>
Parts/Attachments:
text/plain (26 lines)
As of 12:17-- Ada: 62.0%, C: 28.5%
If you want to vote and see the results:
http://www.embedded.com/cgi-bin/polls/vote1.pl?option=Ada

If you just want to see the results:
http://www.embedded.com/results/viewvote1.html

If you would rather compile your own Adacgi script to view and vote:
(Adacgi can be found at http://dwheeler.com/adacgi/)

with Cgi, Ada.Text_Io;
use Cgi, Ada.Text_Io;

procedure Poll is
begin
   Put_Cgi_Header;
   Put_Html_Head("Ada Poll");
   Put_Line("<FORM METHOD=POST
ACTION=http://www.embedded.com/cgi-bin/polls/vote1.pl>");
   Put_Line("<INPUT TYPE=RADIO NAME=option VALUE=Ada CHECKED>Ada");
   Put_Line("<INPUT TYPE=SUBMIT VALUE=SUPPORT_ADA>");
   Put_Line("</FORM>");
   Put_Line("<A HREF=/poll.adb>The Source</A>");
   Put_Html_Tail;
end Poll;

ATOM RSS1 RSS2