init.pl help needed please

From: M.E. (somewhere_at_downunder.com.au)
Date: 06/30/04

  • Next message: Gunnar Hjalmarsson: "Re: init.pl help needed please" 
    Date: Wed, 30 Jun 2004 10:03:45 +1000

    I have following not working it report that I have
    Can't find string terminator "STR" anywhere before EOF at init.pl line 50.
    Compilation failed in require at /s101/home4/sgiwedding/cgi/form.pl line 9.

    I can not find how to fix this as I really don't know anything about pearl
    and need to get this form working .
    Terminator STR is there so why it is complaining?

    Can you please help?

    Thanks

    ------------------
     sub estab {
     ####################
     ### ?????? ###
     ####################

     # (1)sendmail???????????????

           $SENDMAIL = '/usr/sbin/sendmail';

     # (2)???????????(1.??/0.????)

           $CONFIRM_FLAG = 0;

     # (3)?????????????????(URL????)???????

     # $CONFIRM_TMPL = 'check_mail.html';

     # (4)????????????????????

           $REQUIRED =
     qq(church!!!name1!!!name2!!!name3!!!name4!!!name5!!!name6!!!name7!!!
     name8!!!_email!!!tel!!!);

     # (5)???????/?????????????????
     # ?????????????,???????????????

           $SENDTO = 'info@sgiwedding.com';
           $SENDFROM = 'info@sgiwedding.com';

     # (6)???????????????????(??)??????????

           $SUBJECT = '????????????';

     # (7)??????????HTML?URL

           $THANKS = 'http://www.sgiwedding.com/send.html';

     # (8)??????????

           chomp($FORMAT = <<'STR');
     **********************************
        ????????????
     **********************************

     ##name1##? ??????????????????????????
     ??????????????????
     ????????????????????????

     ---- ???? ----

     ?????? : ##church##
     ????? : 200##h_year## ? ##h_month## ? ##h_day## ? ##jikan##

     ???? : ##name1## ##name2##
                : ##name3## ##name4##
     ???? : 19##m_year## ? ##m_month## ? ##m_day## ?

     ???? : ##name5## ##name6##
                : ##name7## ##name8##
     ???? : 19##f_year## ? ##f_month## ? ##f_day## ?

     ??? : ##whoinfo##
     ????? : ##zip1## - ##zip2##
     ? ? : ##address##
     ???? : ##tel##
     ???? : ##tes2##
     E-mail : ##_email##

     ?????????? :
       ##question##

    ? sunshine-wedding.com ??????????
     mailto: info@sgiwedding.com
     STR} 1;
    ---------------------------------------

  • Next message: Gunnar Hjalmarsson: "Re: init.pl help needed please"

    Relevant Pages

    • pearl expert..anyone?
      ... I have following not working it report that I have ... Can't find string terminator "STR" anywhere before EOF at init.pl line 50. ...
      (comp.lang.php)
    • pearl form question please
      ... I have following not working it report that I have ... Can't find string terminator "STR" anywhere before EOF at init.pl line 50. ...
      (alt.php)
    • Re: XML Parsing too slow with XML::Simple
      ... your benchmark code at ... Can't find string terminator "'" anywhere before EOF at -e line 1. ... I am on Windows XP SP2 with Perl 5.8.7 ...
      (comp.lang.perl.misc)
    • Please help
      ... CustConnection= " & cboCustomer.Text ... Set ContRecSet = New ADODB.Recordset ... ContRecSet.Open str, conn, adOpenForwardOnly, adLockReadOnly, ... If Not (.BOF And .EOF) Then ...
      (microsoft.public.vb.com)
    • Re: Problem with replacing string in file
      ... if ($line1 =~ m/$key/) { ... close $LOGFILE; ... Can't find string terminator "'" anywhere before EOF at -e line 1. ...
      (perl.beginners)