Free PERL Web Form Generator - Informix

Everyone, I modified Marc Beneteau's Genquery software from www.perl.com to work with Informix. These programs will automatically generate Web based forms based upon the table name that you send the program. I have a web site where this is working and can be viewed at www.webulate.com. Please remember it will be a little slow.... I have it running under Linux on a 75 MHZ machine. These are PERL programs which will need to be stored under your cgi-bin directories... please see Marc's documentation on how CGI works. Anyway it should give you good start to create web based forms to perform add, change, delete and update through the web. Please look at the code and make changes for your database. Enjoy. David Meyer Guerilla Software begin 666 add.pl M(R$O=7-R+V)I;B]P97)L("UW( T*( T*0D5'24X-"GL-"B1%3E9[)T1"4$%4 M2"=](#T@(B]H;VUE+VEN9F]R;6EX(CL-"B1%3E9[)TE.1D]234E84T525D52 M)WT@/2 B9&5M;U]S92([#0HD14Y6>R=)3D9/4DU)6$1)4B=](#T@(B]H;VUE M+VEN9F]R;6EX(CL-"B1%3E9[)TQ$7TQ)0E)!4EE?4$%42"=](#T@(B]H;VUE M+VEN9F]R;6EX+VEN8VPZ+VAO;64O:6YF;W)M:7@O:6YC;"]E<W%L.B]H;VUE M+VEN9F]R;6EX+VQI8B\\Z+VAO;64O:6YF;W)M:7@O;&EB+V5S<6PB.PT*?0T* M#0IU<V4@0T=).R -"G5S92!$0DD[( T*<F5Q=6ER92 B9V5N<75E<GDN<&PB M.R -"G)E<75I<F4@(F=E;G%U97)Y7W-I=&4N<&PB.R -"B -"B1Q/6YE=R!# M1TD[( T*<')I;G0@)'$M/FAE861E<BPD<2T^<W1A<G1?:'1M;"@I.R -"B1D M96)U9STD<2T^<&%R86TH)V1E8G5G)RD[( T*:68H(61E9FEN960@)&1E8G5G M*2'1A8FQE/21Q+3YP87)A;2@G=&%B;&4G*3L@#0ID M8D]P96XH*3L@#0H@#0II9BAD969I;F5D("1Q+3YP87)A;2@G<W5B;6ET)RDI M('L@#0HC4W5B;6ET(&AA<R!B965N('!R97-S960@#0H))'5S97)K97D])'$M M/G!A<F%M*"=U<V5R:V5Y)RD[( T*"2-I9B@D=7-E<FME>2!E<2 G)RD@>R - M"@DC"7!R:6YT("(\\8CXG57-E<FME>2<\\+V(^(&ES(&$@<F5Q=6ER960@9FEE M;&0N($5N=&5R(&%N>2!V86QU92!K;F]W;B!O;FQY('1O('EO=2 B+" -"@DC M"0DB:6X@;W)D97(@=&\\@<')O=&5C="!Y;W5R(')E8V]R9"!F<F]M('5N875T M:&]R:7IE9"!U<&1A=&5S(CL@#0H)(PEE>&ET.R -"@DC?2 -"@DC8VAE8VL@ M9F]R(&1U<&QI8V%T97,@#0H))'-Q;#U'96Y7:&5R92@D<2PB<V5L96-T("H@ M9G)O;2 B+B1T86)L92D[( T*"6EF*"1D96)U9RD@>W!R:6YT(")<;G-Q;#TB M+"1S<6PL(EQN(CM]( T*"61B17AE8W5T92@D<W%L*3L@#0H)0&9I96QD<SUD M8D9E=&-H*"D[( T*"6EF*&1E9FEN960@0&9I96QD<RD@>R -"@D)<')I;G0@ M)'$M/F@R*")296-O<F0@86QR96%D>2!E>&ES=',L(&]R(&ES(&)L86YK(BD[ M( T*"0EE>&ET.R -"@E]( T*"21S<6P]1V5N26YS97)T*"1Q+"1T86)L92D[ M( T*"6EF*"1D96)U9RD@>W!R:6YT("(\\8G(^7&YS<6P](BPD<W%L+")<;B([ M?2 -"@DD8V]U;G0]9&)$;R@D<W%L*3L@#0H)9&)#;&]S92@I.R -"@EI9B@D M8V]U;G0]/3$I('L@#0H)"7!R:6YT("=296-O<F0@:&%S(&)E96X@861D960@ M<W5C8V5S<V9U;&QY+B @57-E('1H92 \\8CY"86-K/"]B/B!B=71T;VX@)RP@ M#0H)"0DG;VX@>6]U<B!B<F]W<V5R(&]R(#QA(&AR968](B\\B/F=O(&)A8VL@ M=&\\@:&]M93PO83XG.R -"@E](&5L<V4@>R -"@D)<')I;G0@)T%N(&5R<F]R M(&]C8W5R<F5D("T@<F5C;W)D(&AA<R!N;W0@8F5E;B!A9&1E9"<[( T*"7T@ M#0H)97AI=#L@#0I]( T*( T*( T*(V1I<W!L87D@8FQA;FL@9F]R;2 -"G!R M:6YT0V5N=&5R*"1T86)L92XB.D%D9"!N97<@<F5C;W)D(BD[( T*<')I;G0@ M)U1O(&=O('1O(%%U97)Y(&9O<FT@/&$@:')E9CUQ=65R>2YP;#]T86)L93TG M+"1T86)L92PG/F-L:6-K(&AE<F4\\+V$^)SL@#0IP<FEN=" B/' ^(BPD<2T^ M<W1A<G1?9F]R;3L@#0I'96Y&;W)M*"1D96)U9RPD=&%B;&4I.R C1V5N97)A M=&4@82!F;W)M(&9R;VT@=&%B;&4@<W1R=6-T=7)E( T*<')I;G0@(CQP/B(L M)'$M/G-U8FUI="@G<W5B;6ET)RPG061D(&YE=R!R96-O<F0G*3L@#0IP<FEN M=" G/&EN<'5T('1Y<&4]:&ED9&5N(&YA;64]9&5B=6<@=F%L=64](B<L)&1E M8G5G+"<B/B<[( T*<')I;G0@)SQI;G!U="!T>7!E/6AI9&1E;B!N86UE/71A M8FQE('9A;'5E/2(G+"1T86)L92PG(CXG.R -"G!R:6YT("1Q+3YE;F1?9F]R M;3L@#0ID8D-L;W-E0W5R<V]R*"D[( T*9&)#;&]S92@I.R -"F5X:70[( T* #( T* ` end begin 666 delete.pl M(R$O=7-R+V)I;B]P97)L("UW( T*( T*=7-E($-'23L@#0IU<V4@1$)).R - M"G)E<75I<F4@(F=E;G%U97)Y+G!L(CL@#0IR97%U:7)E(")G96YQ=65R>5]S M:71E+G!L(CL@#0H@#0HD<3UN97<@0T=).R -"G!R:6YT("1Q+3YH96%D97(L M)'$M/G-T87)T7VAT;6PH*3L@#0HD9&5B=6<])'$M/G!A<F%M*"=D96)U9R<I M.R -"FEF*"%D969I;F5D("1D96)U9RD@>R1D96)U9STP?2 -"B1T86)L93TD M<2T^<&%R86TH)W1A8FQE)RD[( T*)&ED/21Q+3YP87)A;2@G:60G*3L@#0H@ M#0H@#0II9BAD969I;F5D("1Q+3YP87)A;2@G<W5B;6ET)RD@?'P@9&5F:6YE M9" D<F5M;W1E7W5S97(I('L@#0HC4W5B;6ET(&AA<R!B965N('!R97-S960@ M#0H)9&)/<&5N*"D[( T*"6EF*"1R96UO=&5?=7-E<BD@>R -"@D))'5S97)K M97D])')E;6]T95]U<V5R.R -"@E](&5L<V4@>R -"@D))'5S97)K97D])'$M M/G!A<F%M*"=U<V5R:V5Y)RD[( T*"7T@#0H):68H(2AD969I;F5D("1U<V5R M:V5Y*2!\\?" D=7-E<FME>2!E<2 G)RD@>R -"@D)<')I;G0@(CQB/B=5<V5R M:V5Y)SPO8CX@:7,@82!R97%U:7)E9"!F:65L9"X@16YT97(@=&AE('9A;'5E M('EO=2!U<V5D('=H96X@>6]U(&-R96%T960@=&AI<R!R96-O<F0@(CL@#0H) M"65X:70[( T*"7T@#0H))'-Q;#TB9&5L971E(&9R;VT@(BXD=&%B;&4N(B!W M:&5R92!I9#TB+B1I9#L@#0H):68H)'5S97)K97D@;F4@)W-Y<V%D;6EN)RD@ M>R -"@D))'-Q;"X](B!A;F0@=7-E<FME>3TG(BXD=7-E<FME>2XB)R([( T* M"7T@#0H):68H)&1E8G5G*2![<')I;G0@(EQN<W%L/2(L)'-Q;"PB7&XB.WT@ M#0H))&-O=6YT/61B1&\\H)'-Q;"D[( T*"61B0VQO<V4H*3L@#0H):68H)&-O M=6YT/3TQ*2![( T*"0EP<FEN=" G4F5C;W)D(&AA<R!B965N(&1E;&5T960N M("!5<V4@=&AE(#QB/D)A8VL\\+V(^(&)U='1O;B G+" -"@D)"2=O;B!Y;W5R M(&)R;W=S97(@;W(@/&$@:')E9CTB+R(^9V\\@8F%C:R!T;R!H;VUE/"]A/CPO M:#(^)SL@#0H)?2!E;'-E('L@#0H)"7!R:6YT("=!;B!E<G)O<B!O8V-U<G)E M9" M(')E8V]R9"!H87,@;F]T(&)E96X@9&5L971E9"X@)RP@#0H)"2=097)H M87!S('1H:7,@<F5C;W)D(&1O97,@;F]T(&)E;&]N9R!T;R!Y;W4_("<[( T* M"7T@#0H)97AI=#L@#0I]( T*( T*( T*(V1I<W!L87D@8FQA;FL@9F]R;2 - M"G!R:6YT0V5N=&5R*"1T86)L92XB.D1E;&5T92!296-O<F0B*3L@#0IP<FEN M=" D<2T^<W1A<G1?9F]R;3L@#0IP<FEN=" B/&EN<'5T('1Y<&4]=&5X="!N M86UE/75S97)K97D@<VEZ93TQ-CX@)FYB<W!%;G1E<B!T:&4@:V5Y('EO=2!U M<V5D('=H96X@>6]U(&-R96%T960@=&AI<R!R96-O<F0B.R -"G!R:6YT("(\\ M<#XB+"1Q+3YS=6)M:70H)W-U8FUI="<L)T1E;&5T92!296-O<F0G*3L@#0IP M<FEN=" G/&EN<'5T('1Y<&4]:&ED9&5N(&YA;64]9&5B=6<@=F%L=64](B<L M)&1E8G5G+"<B/B<[( T*<')I;G0@)SQI;G!U="!T>7!E/6AI9&1E;B!N86UE M/71A8FQE('9A;'5E/2(G+"1T86)L92PG(CXG.R -"G!R:6YT("<\\:6YP=70@ M='EP93UH:61D96X@;F%M93UI9"!V86QU93TB)RPD:60L)R(^)SL@#0IP<FEN :=" D<2T^96YD7V9O<FT[( T*97AI=#L@#0H` ` end begin 666 genquery.pl M(R$O=7-R+V)I;B]P97)L("UW( T*(R!G96YQ=65R>2YP;"!V,2XP,2 @#0HC M(")'96YE<FEC(B!344P@<75E<GD@9V5N97)A=&]R(&%N9"!H=&UL(&9O<FT@ M86YD('1A8FQE(&=E;F5R871O<BX@(" -"B,@075T:&]R.DUA<F,@0F5N971E M874@;6%R8T!O9&)S;V9T+F-O;2 @1&%T93I/8W0O.3@@#0H@#0IP86-K86=E M(&=E;G%U97)Y.R -"B -"B,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,@#0HC M3W!E;B!D871A8F%S92!C;VYN96-T:6]N( T*<W5B(&UA:6XG9&)/<&5N('L@ M#0H-"@T*"21D8FAO<W0@/2 G;&]C86QH;W-T)SL-"B @(" @(" @)&1B;F%M M92 ]("=W96(R)SL-"B @(" @(" @)&1B=7-E<B ]("=I;F9O<FUI>"<[#0H@ M(" @(" @("1X>'!A<W,@/2 G9&)A)SL-"B @(" @(" @)&1B<&%S<R ]("=D M8F$G.PT*#0H-"@T*(" @(" @(" D<W1R(#T@(B<D9&)N86UE)RP@)R1D8G5S M97(G+" G)'AX<&%S<R<L("=);F9O<FUI>"<B.PT*(" @(" @(" C)G-T;71? M;F]T92@B(R!$0DDM/F-O;FYE8W0H)'-T<BE<;B(I.PT*(" @(" @(" D9&)H M(#T@1$))+3YC;VYN96-