admin/questionnaires/thankyou-cheat.cgi

   1 #!/usr/bin/perl
   2 #                              -*- Mode: Perl -*-
   3 use vars qw(*in);
   4 use jfenq;
   5 require 'cgi-lib.pl';
   6 &ReadParse(*in);
   7
   8 my $email = "lisa\@amorph.net";
   9 $email =  $in{'email'} if $in{'email'};
  10
  11 jfenq::print_html_header("Thank you.");
  12   print <<THANKS;
  13 <BLOCKQUOTE>
  14   <HR>
  15   <P><SPAN CLASS="new">[ATTENTION] ¤³¤Î CGI (thankyou-cheat.cgi) ¤Ï¡¢
  16   ËÜÍè¤Ï¤¹¤Ç¤Ë¥¢¥ó¥±¡¼¥È¤Ë²óÅú¤ò½ª¤¨¤¿¤â¤Î¤È²¾Äê¤·¡¢
  17   ¤½¤ÎÄ¾¸å¤ËÉ½¼¨¤µ¤ì¤ë¤â¤Î¤Ç¤¹¡£
  18   º£¤Ï¥Æ¥¹¥ÈÍÑ¤Ë "¤º¤ë" ¤Ç¤¤ë¤è¤¦¤ËÍÑ°Õ¤·¤Þ¤·¤¿¡£
  19   </SPAN>
  20   </P>
  21   <HR>
  22 </BLOCKQUOTE>
  23
  24 <P><TT>$email</TT>ÍÍ¡¢¤´²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£</P>
  25 <P>¥¢¥ó¥±¡¼¥È¤Ë¤´¶¨ÎÏ¤¤¤¿¤À¤¤¤¿Êý¤Ë¤Ï¡¢
  26 ¤â¤ì¤Ê¤¯ JF Project ¤è¤ê
  27 <A HREF="thankyou.cgi?email=$email">ÆüËÜ¤Î Linux ³¦ÃøÌ¾¿Í¤Î¥¥¹¥Þ¡¼¥¯ÉÕ¤´¶¼Õ¾õ</A>¤òº¹¤·¾å¤²¤Æ¤ª¤ê¤Þ¤¹¡£
  28 <A HREF="thankyou.cgi?email=$email">¤³¤Á¤é¤Ø¤É¤¦¤¾¡£</A></P>
  29 THANKS
  30 jfenq::print_html_footer;
  31
  32 exit;