From anio at webgroup-bg.com Thu Apr 1 03:30:56 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin Message-ID: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Zdraveite.Imam problem s parsvaneto na edin konfig.Izpolzvama modula Tie::File zashtoto s nego mi e po-lesno.Konfiga e sas sledniq format: ################# # SMTP Server Host SMTPHost = 'mail.somehost.com' ################# # MAIL Recipient Recipient = 'recipient@somehost.com' vzimam parametrite taka: tie @smtp_settings, 'Tie::File', $smtp_file; for (@smtp_settings) { chomp; next if /^#/; next if /^$/; if (/^(\w+)\s=\s'(\S+)'/) { $smtp_host = $2 if ($1 eq 'SMTPHost'); $recipient = $2 if ($1 eq 'Recipient'); $reverse_path = $2 if ($1 eq 'Reverse'); } } Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq universalno i formata na SMTP_config na nqma zna4enie za parsera. Blagodarq vi. From sas at bitex.com Thu Apr 1 03:42:00 2004 From: sas at bitex.com (Alexander Jeliazkov) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> References: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> Message-ID: <406BE3E8.5060507@bitex.com> sofia-pm-list - An official of Sofia's Perl hackers Alexander Jeliazkov anio@webgroup-bg.com wrote: >sofia-pm-list - An official of Sofia's Perl hackers >anio@webgroup-bg.com >Zdraveite.Imam problem s parsvaneto na edin konfig.Izpolzvama modula >Tie::File zashtoto s nego mi e po-lesno.Konfiga e sas sledniq format: >################# ># SMTP Server Host >SMTPHost = 'mail.somehost.com' > >################# ># MAIL Recipient >Recipient = 'recipient@somehost.com' > >vzimam parametrite taka: > >tie @smtp_settings, 'Tie::File', $smtp_file; >for (@smtp_settings) { > chomp; > next if /^#/; > next if /^$/; > if (/^(\w+)\s=\s'(\S+)'/) { > $smtp_host = $2 if ($1 eq 'SMTPHost'); > $recipient = $2 if ($1 eq 'Recipient'); > $reverse_path = $2 if ($1 eq 'Reverse'); > } >} > >Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot >Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme >nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq >universalno i formata na SMTP_config na nqma zna4enie za parsera. >Blagodarq vi. > > tie @smtp_settings, 'Tie::File', $smtp_file, autochomp => '1'; From roam at ringlet.net Thu Apr 1 03:48:49 2004 From: roam at ringlet.net (Peter Pentchev) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> References: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> Message-ID: <20040401094849.GJ757@straylight.m.ringlet.net> On Thu, Apr 01, 2004 at 12:30:56PM +0300, anio@webgroup-bg.com wrote: > sofia-pm-list - An official of Sofia's Perl hackers > anio@webgroup-bg.com > Zdraveite.Imam problem s parsvaneto na edin konfig.Izpolzvama modula > Tie::File zashtoto s nego mi e po-lesno.Konfiga e sas sledniq format: > ################# > # SMTP Server Host > SMTPHost = 'mail.somehost.com' > > ################# > # MAIL Recipient > Recipient = 'recipient@somehost.com' > > vzimam parametrite taka: > > tie @smtp_settings, 'Tie::File', $smtp_file; > for (@smtp_settings) { > chomp; [snip] > Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot > Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme > nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq > universalno i formata na SMTP_config na nqma zna4enie za parsera. > Blagodarq vi. Hmm.. ne znam dali shte pomogne, no pyrvo opitaj da izpolzvash 'recsep', kakto e opisano v dokimentacijata na Tie::File. Syvsem otdelno ot tova, az v edin moment pochti se otkazah ot izpolzvaneto na 'chomp', kogato mozhe da mi byde podaden Windowski file; vmesto tova na njakoi mesta pravja s/[\r\n]*$//, koeto kazhi-rechi sigurno raboti :) G'luck, Peter -- Peter Pentchev roam@ringlet.net roam@sbnd.net roam@FreeBSD.org PGP key: http://people.FreeBSD.org/~roam/roam.key.asc Key fingerprint FDBA FD79 C26F 3C51 C95E DF9E ED18 B68D 1619 4553 This sentence claims to be an Epimenides paradox, but it is lying. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 187 bytes Desc: not available Url : http://mail.pm.org/archives/sofia-pm/attachments/20040401/8c88be14/attachment.bin From anio at webgroup-bg.com Thu Apr 1 04:35:42 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Mersi mnogo.Sega shte probvam Message-ID: <35020.212.104.97.96.1080815742.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com From m.grigorov at abacustrade.com Thu Apr 1 07:44:48 2004 From: m.grigorov at abacustrade.com (Martin Grigorov) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <20040401094849.GJ757@straylight.m.ringlet.net> References: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> <20040401094849.GJ757@straylight.m.ringlet.net> Message-ID: <200404011344.48935.m.grigorov@abacustrade.com> sofia-pm-list - An official of Sofia's Perl hackers Martin Grigorov > [snip] > > > Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot > > Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme > > nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq > > universalno i formata na SMTP_config na nqma zna4enie za parsera. > > Blagodarq vi. > > Hmm.. ne znam dali shte pomogne, no pyrvo opitaj da izpolzvash 'recsep', > kakto e opisano v dokimentacijata na Tie::File. > > Syvsem otdelno ot tova, az v edin moment pochti se otkazah ot > izpolzvaneto na 'chomp', kogato mozhe da mi byde podaden Windowski file; > vmesto tova na njakoi mesta pravja s/[\r\n]*$//, koeto kazhi-rechi > sigurno raboti :) > > G'luck, > Peter Mda, spored perldoc -f chomp, chomp shte izreje $/. Tyi 4e mojesh da si napravish i neshto podobno : BEGIN { $/ = "\r\n" if ( $^O =~ m/win/i ); } i da si shtrakash s prysti :) Neshto podobno mai trqbva samia Perl da si pravi vytreshno, no iavno ne go pravi. ( test-nah go s Perl 5.8.0 ) Marto From anio at webgroup-bg.com Thu Apr 1 05:04:44 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin Message-ID: <35105.212.104.97.96.1080817484.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com i taka ne stava: if ($^O =~ /win/i) { tie @smtp_settings, 'Tie::File', $smtp_file,, recsep => "\015\012"; } else { tie @smtp_settings, 'Tie::File', $smtp_file; } From sas at bitex.com Thu Apr 1 05:05:35 2004 From: sas at bitex.com (Alexander Jeliazkov) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <200404011344.48935.m.grigorov@abacustrade.com> References: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> <20040401094849.GJ757@straylight.m.ringlet.net> <200404011344.48935.m.grigorov@abacustrade.com> Message-ID: <406BF77F.3040500@bitex.com> sofia-pm-list - An official of Sofia's Perl hackers Alexander Jeliazkov Martin Grigorov wrote: >sofia-pm-list - An official of Sofia's Perl hackers >Martin Grigorov > > >>[snip] >> >> >> >>>Vsi4ko raboti i pod Windows i pod Linux, no kogato smenq Config fila ot >>>Win format na Linux ("\r\n" -> "\n") i vsi4ko se obyrkva.Ne moje da vzeme >>>nito edna ot nastroikite.Molq pomognete.Kajete kak da go napravq >>>universalno i formata na SMTP_config na nqma zna4enie za parsera. >>>Blagodarq vi. >>> >>> >>Hmm.. ne znam dali shte pomogne, no pyrvo opitaj da izpolzvash 'recsep', >>kakto e opisano v dokimentacijata na Tie::File. >> >>Syvsem otdelno ot tova, az v edin moment pochti se otkazah ot >>izpolzvaneto na 'chomp', kogato mozhe da mi byde podaden Windowski file; >>vmesto tova na njakoi mesta pravja s/[\r\n]*$//, koeto kazhi-rechi >>sigurno raboti :) >> >>G'luck, >>Peter >> >> > > > To vsystnost mai po default autochomp = 1, taka che veroqtno problema e kakto ti kazvash. V sluchaq autochomp nqma da pomogne, mi nai-veroqtno tova koeto si napisal. >Mda, spored perldoc -f chomp, chomp shte izreje $/. >Tyi 4e mojesh da si napravish i neshto podobno : > >BEGIN { > $/ = "\r\n" if ( $^O =~ m/win/i ); >} > >i da si shtrakash s prysti :) >Neshto podobno mai trqbva samia Perl da si pravi vytreshno, no iavno ne go >pravi. ( test-nah go s Perl 5.8.0 ) > >Marto > > From anio at webgroup-bg.com Thu Apr 1 05:10:13 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin Message-ID: <35124.212.104.97.96.1080817813.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Mislq 4e namerih reshenie,makar i ne tova,koeto iskah. Vsi4ko raboti kogato mahna tezi dva reda: #next if /^#/; #next if /^$/; From sas at bitex.com Thu Apr 1 05:36:55 2004 From: sas at bitex.com (Alexander Jeliazkov) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <35105.212.104.97.96.1080817484.squirrel@mail.webgroup-bg.com> References: <35105.212.104.97.96.1080817484.squirrel@mail.webgroup-bg.com> Message-ID: <406BFED7.2070408@bitex.com> sofia-pm-list - An official of Sofia's Perl hackers Alexander Jeliazkov anio@webgroup-bg.com wrote: >sofia-pm-list - An official of Sofia's Perl hackers >anio@webgroup-bg.com >i taka ne stava: >if ($^O =~ /win/i) { > tie @smtp_settings, 'Tie::File', $smtp_file,, recsep => "\015\012"; >} else { > tie @smtp_settings, 'Tie::File', $smtp_file; >} > > A taka? tie @smtp_settings, 'Tie::File', $smtp_file,autochomp => 0 , recsep => "\015\012"; From sas at bitex.com Thu Apr 1 05:38:23 2004 From: sas at bitex.com (Alexander Jeliazkov) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <35124.212.104.97.96.1080817813.squirrel@mail.webgroup-bg.com> References: <35124.212.104.97.96.1080817813.squirrel@mail.webgroup-bg.com> Message-ID: <406BFF2F.9040105@bitex.com> sofia-pm-list - An official of Sofia's Perl hackers Alexander Jeliazkov anio@webgroup-bg.com wrote: >sofia-pm-list - An official of Sofia's Perl hackers >anio@webgroup-bg.com >Mislq 4e namerih reshenie,makar i ne tova,koeto iskah. >Vsi4ko raboti kogato mahna tezi dva reda: > #next if /^#/; > #next if /^$/; > > > A vtoriqt red kakvo tochno pravi? From anio at webgroup-bg.com Thu Apr 1 05:50:37 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin Message-ID: <35552.212.104.97.96.1080820237.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com da preska4a praznite redove,no tuk sym go slojil poinerciq :))) naistina nqma nujda ot nego. sega vsi4ko raboti i ne iskam da go pipam pove4e za da ne se oakam :))) From kumcho at vulcho.com Thu Apr 1 06:07:39 2004 From: kumcho at vulcho.com (Vulcho Nedelchev) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <35124.212.104.97.96.1080817813.squirrel@mail.webgroup-bg.com> References: <35124.212.104.97.96.1080817813.squirrel@mail.webgroup-bg.com> Message-ID: <1080821259.14253.2.camel@weby.bastun.net> sofia-pm-list - An official of Sofia's Perl hackers Vulcho Nedelchev ?? ??, 2004-04-01 ? 14:10, anio@webgroup-bg.com ??????: > sofia-pm-list - An official of Sofia's Perl hackers > anio@webgroup-bg.com > Mislq 4e namerih reshenie,makar i ne tova,koeto iskah. > Vsi4ko raboti kogato mahna tezi dva reda: Mislq che e hubawo da slozhish na tezi 2 reda \s* > #next if /^#/; next if /^\s*#/; > #next if /^$/; next if /^\s*$/ mislq che \r shte popadne tam i nqma da ti precakwa configa :) -- perl -e '$D="-";$N="\n";print $D x30,$N,(join $N,@INC),$N,$D x30,$N;' --------------------- or point your browser at http://www.vulcho.com/ From sofit at proshe.bg Thu Apr 1 07:00:34 2004 From: sofit at proshe.bg (Stanislav Zahariev) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin Message-ID: <1909904320.20040401160034@proshe.bg> sofia-pm-list - An official of Sofia's Perl hackers Stanislav Zahariev Zdrawej anio, awbc> tie @smtp_settings, 'Tie::File', $smtp_file; awbc> for (@smtp_settings) { awbc> chomp; awbc> next if /^#/; awbc> next if /^$/; awbc> if (/^(\w+)\s=\s'(\S+)'/) { awbc> $smtp_host = $2 if ($1 eq 'SMTPHost'); awbc> $recipient = $2 if ($1 eq 'Recipient'); awbc> $reverse_path = $2 if ($1 eq 'Reverse'); awbc> } awbc> } 4udel li si se dali ima izobsto nqkakwa razlika mejdu \cM\n i \n (kojto opredelq kraq na redowete pri Windows i syotwetno linux) za tozi regulqren izraz? Sys sigurnost nqma da se spre pri next-owete. Bi moglo da ne successne pri if (/^(\w+)\s=\s'(\S+)'/) {, no i tam ste mine... Tej kato samoto '(\S+)' wyobste ne wliqe kakwo ima sled '-ta, dali ste e \n ili \r\n . Ne znam dali sym praw, no... P.S. Predlagam ti da prawish pone ^\s*(\w+)\s*=\s*'(\S+)'/, no pomisli dali towa ti pozwolqwa da prawish sth = 'Hello dude, what\'s up?' i dali go iskash... -- Best regards, Stanislav From anio at webgroup-bg.com Thu Apr 1 07:30:43 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Win <-> Lin In-Reply-To: <355915618.20040401155655@proshe.bg> References: <34976.212.104.97.96.1080811856.squirrel@mail.webgroup-bg.com> <355915618.20040401155655@proshe.bg> Message-ID: <37188.212.104.97.96.1080826243.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Zdravei Stanislave. Mislq, 4e pone tozi next shte mine: next if /^#/; i ako ne se lyja i az - "\n" ne se match-va osven ako ne go slojish ry4no toest ako slojish tova /^(\w+)\s=\s'(\S+)'$/ dokolkoto si spomnqm dori da ima "\n" ili "\r\n" ako vsi4ko drugo e nared RegEx-a shte e True.Za da se matchva i toi mislq 4e trqbvashe da se soji otzad "x" - m/izraz/x ,moje i da byrkam tonata bukva. Best regards Anio > Zdrawej anio, > awbc> tie @smtp_settings, 'Tie::File', $smtp_file; > awbc> for (@smtp_settings) { > awbc> chomp; > awbc> next if /^#/; > awbc> next if /^$/; > awbc> if (/^(\w+)\s=\s'(\S+)'/) { > awbc> $smtp_host = $2 if ($1 eq 'SMTPHost'); > awbc> $recipient = $2 if ($1 eq 'Recipient'); > awbc> $reverse_path = $2 if ($1 eq 'Reverse'); > awbc> } > awbc> } > > 4udel li si se dali ima izobsto nqkakwa razlika mejdu \cM\n i \n (kojto > opredelq kraq na redowete pri Windows i syotwetno linux) za tozi > regulqren izraz? Sys sigurnost nqma da se spre pri next-owete. Bi > moglo da ne successne pri if (/^(\w+)\s=\s'(\S+)'/) {, no i tam ste > mine... Tej kato samoto '(\S+)' wyobste ne wliqe kakwo ima sled '-ta, > dali ste e \n ili \r\n . Ne znam dali sym praw, no... > > P.S. Predlagam ti da prawish pone ^\s*(\w+)\s*=\s*'(\S+)'/, no pomisli > dali towa ti pozwolqwa da prawish sth = 'Hello dude, what\'s up?' i > dali go iskash... > > -- > Best regards, > Stanislav mailto:sofit@proshe.bg > From anio at webgroup-bg.com Mon Apr 5 02:58:49 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: CGI::Session CGI::Session::Auth Message-ID: <34808.212.104.97.96.1081151929.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Zdraweite pak.Molq daite syvet.Nqkoi izpolzva li nqkoi ot tezi dva modula?Apache::Session po-dobar li e ot CGI::Session? Trqbva da naprawq edna WEB stranica za logvane za WEB Mail i se 4udq ot kade da zapo4na s logvaneto na userite.Trqbva da ima user::pass i saotvetno menajirane na sesiqta posle.4udq se ry4no li da pravq checkvaneto na parolite ili da izpolzvam nqkoi modul. S tezi moduli za sesii izobshto ne sym rabotil i tepyrva trqbva da gi razu4avam. Spored vas koe e nai-dobre da izpolzvam, daite mi nqkakyv syvet. Blagodarq predvaritelno. From m.grigorov at abacustrade.com Tue Apr 6 10:14:02 2004 From: m.grigorov at abacustrade.com (Martin Grigorov) Date: Thu Aug 5 00:21:46 2004 Subject: HTTP header v CGI sreda ?! Message-ID: <200404061514.03952.m.grigorov@abacustrade.com> sofia-pm-list - An official of Sofia's Perl hackers Martin Grigorov Zdraveite Nqkoi znae li nqkakyv na4in kak moga da si hvana custom header-i v CGI sreda ? T.e. iskam neshto podobno na $r->headers_in() v mod_perl sreda. Znam 4e parse-vaneto na header-ite se poema ot httpd, sled koeto toi poema otgovornostta da populate-ne HTTP_XXXXX header-ite, no dotam, a az iskam da hvana i malko moi header-i ( takiva koito ne sa po nikakvi specifikacii ). Seshtam se 4e biah 4el nqkyde, 4e se polzva NPH (non-parsed headers) za tezi celi, no tam pisheshe i 4e tova ne e hubavo. Priznavam si, 4e ne sym probval oshte. Tyi 4e iskam da vi pitam dali znaete nqkakvi trikove. Marto From roam at ringlet.net Tue Apr 6 07:39:33 2004 From: roam at ringlet.net (Peter Pentchev) Date: Thu Aug 5 00:21:46 2004 Subject: HTTP header v CGI sreda ?! In-Reply-To: <200404061514.03952.m.grigorov@abacustrade.com> References: <200404061514.03952.m.grigorov@abacustrade.com> Message-ID: <20040406123932.GA921@straylight.m.ringlet.net> On Tue, Apr 06, 2004 at 03:14:02PM +0000, Martin Grigorov wrote: > sofia-pm-list - An official of Sofia's Perl hackers > Martin Grigorov > Zdraveite > > Nqkoi znae li nqkakyv na4in kak moga da si hvana custom header-i v CGI sreda ? > T.e. iskam neshto podobno na $r->headers_in() v mod_perl sreda. > > Znam 4e parse-vaneto na header-ite se poema ot httpd, sled koeto toi poema > otgovornostta da populate-ne HTTP_XXXXX header-ite, no dotam, a az iskam da > hvana i malko moi header-i ( takiva koito ne sa po nikakvi specifikacii ). > Seshtam se 4e biah 4el nqkyde, 4e se polzva NPH (non-parsed headers) za tezi > celi, no tam pisheshe i 4e tova ne e hubavo. Priznavam si, 4e ne sym probval > oshte. > > Tyi 4e iskam da vi pitam dali znaete nqkakvi trikove. Ne, nikakvi trikove njama da ti pomognat - web serveryt prosto ne ti podava tazi informacija. Edin ot nachinite da se ubedish v tova e edin poglednesh source na PHP, chastta, kojato obrabotva funkcijata phpinfo() - tam sekcijata "HTTP Headers Information" e postavena v #ifdef APACHE, t.e. tazi informacija e available samo i edinstveno kogato PHP e compilirano kato Apache module, standalone CGI ne mozhe da ja poluchi izobshto :( G'luck, Peter -- Peter Pentchev roam@ringlet.net roam@sbnd.net roam@FreeBSD.org PGP key: http://people.FreeBSD.org/~roam/roam.key.asc Key fingerprint FDBA FD79 C26F 3C51 C95E DF9E ED18 B68D 1619 4553 I had to translate this sentence into English because I could not read the original Sanskrit. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 187 bytes Desc: not available Url : http://mail.pm.org/archives/sofia-pm/attachments/20040406/7b639510/attachment.bin From anio at webgroup-bg.com Tue Apr 6 07:51:30 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: CGI::Session Message-ID: <36235.212.104.97.96.1081255890.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Neznam dali nqkoi e pro4el predishniq mi posting,no shte mi dadete li syvet za teq sesii? From m.grigorov at abacustrade.com Wed Apr 7 05:04:55 2004 From: m.grigorov at abacustrade.com (Martin Grigorov) Date: Thu Aug 5 00:21:46 2004 Subject: HTTP header v CGI sreda ?! In-Reply-To: <20040406123932.GA921@straylight.m.ringlet.net> References: <200404061514.03952.m.grigorov@abacustrade.com> <20040406123932.GA921@straylight.m.ringlet.net> Message-ID: <200404071004.55860.m.grigorov@abacustrade.com> sofia-pm-list - An official of Sofia's Perl hackers Martin Grigorov On Tuesday 06 April 2004 12:39, you wrote: > On Tue, Apr 06, 2004 at 03:14:02PM +0000, Martin Grigorov wrote: > > sofia-pm-list - An official of Sofia's Perl hackers > > Martin Grigorov > > Zdraveite > > > > Nqkoi znae li nqkakyv na4in kak moga da si hvana custom header-i v CGI > > sreda ? T.e. iskam neshto podobno na $r->headers_in() v mod_perl sreda. > > > > Znam 4e parse-vaneto na header-ite se poema ot httpd, sled koeto toi > > poema otgovornostta da populate-ne HTTP_XXXXX header-ite, no dotam, a az > > iskam da hvana i malko moi header-i ( takiva koito ne sa po nikakvi > > specifikacii ). Seshtam se 4e biah 4el nqkyde, 4e se polzva NPH > > (non-parsed headers) za tezi celi, no tam pisheshe i 4e tova ne e hubavo. > > Priznavam si, 4e ne sym probval oshte. > > > > Tyi 4e iskam da vi pitam dali znaete nqkakvi trikove. > > Ne, nikakvi trikove njama da ti pomognat - web serveryt prosto ne ti > podava tazi informacija. Edin ot nachinite da se ubedish v tova e edin > poglednesh source na PHP, chastta, kojato obrabotva funkcijata phpinfo() - > tam sekcijata "HTTP Headers Information" e postavena v #ifdef APACHE, t.e. > tazi informacija e available samo i edinstveno kogato PHP e compilirano > kato Apache module, standalone CGI ne mozhe da ja poluchi izobshto :( > > G'luck, > Peter Mda Merci Marto From anio at webgroup-bg.com Thu Apr 15 03:35:39 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:46 2004 Subject: Tekst ot links sys HTML::LinkExtor Message-ID: <36542.212.104.97.96.1082018139.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com Znae li nqkoi dali moga s tozi modul osven linkovete ot stranicata da moga da vzema i samiqt tekst m/u i tagovete From roam at ringlet.net Thu Apr 15 06:28:33 2004 From: roam at ringlet.net (Peter Pentchev) Date: Thu Aug 5 00:21:46 2004 Subject: Tekst ot links sys HTML::LinkExtor In-Reply-To: <36542.212.104.97.96.1082018139.squirrel@mail.webgroup-bg.com> References: <36542.212.104.97.96.1082018139.squirrel@mail.webgroup-bg.com> Message-ID: <20040415112833.GB966@straylight.m.ringlet.net> On Thu, Apr 15, 2004 at 11:35:39AM +0300, anio@webgroup-bg.com wrote: > Znae li nqkoi dali moga s tozi modul osven linkovete ot stranicata da moga > da vzema i samiqt tekst m/u i tagovete ???????? ?????? HTML::LinkExtractor; ? ???????? ???????? ????: HTML::LinkExtractor is used for extracting links from HTML. It is very similar to HTML::LinkExtor, except that besides getting the URL, you also get the link-text. http://search.cpan.org/~podmaster/HTML-LinkExtractor-0.11/LinkExtractor.pm ????????, ????? -- Peter Pentchev roam@ringlet.net roam@sbnd.net roam@FreeBSD.org PGP key: http://people.FreeBSD.org/~roam/roam.key.asc Key fingerprint FDBA FD79 C26F 3C51 C95E DF9E ED18 B68D 1619 4553 If I had finished this sentence, -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 187 bytes Desc: not available Url : http://mail.pm.org/archives/sofia-pm/attachments/20040415/1a418fad/attachment.bin From anio at webgroup-bg.com Thu Apr 15 07:07:01 2004 From: anio at webgroup-bg.com (anio@webgroup-bg.com) Date: Thu Aug 5 00:21:47 2004 Subject: Tekst ot links sys HTML::LinkExtor Message-ID: <39816.212.104.97.96.1082030821.squirrel@mail.webgroup-bg.com> sofia-pm-list - An official of Sofia's Perl hackers anio@webgroup-bg.com ????? ??????. ????? ?? ????,?? ????? ?????.??????? ?? ??? HTML::Parser ???? ???? ?? ????????? ?? Usenet.?? ?? paste-?? ??? ??? ?? ????? ?? ?? ?????? ?? ???? ????? ???? ???: my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => 'http://perl.com'); my $res = $ua->request($req); my $content = $res->content; my $p = HTML::Parser->new(api_version => 3); my @linklist; $p->handler( start => \&a_start_handler, "tagname,self,attr" ); $p->unbroken_text( 1 ); $p->parse( $content ) || die $!; foreach my $link ( @linklist ){ print $link->[0]; #link print $link->[1]; #text } sub a_start_handler { my( $tag, $self, $attr ) = @_; # we only act on {href} ) ){ $self->handler(text => sub { $text = shift; $text =~ s/\n//g; },"dtext"); $self->handler( end => \&a_end_handler, "tagname,self" ); } foreach my $key ( keys %$attr ){ # print ">$key=$attr->{$key}\n"; } } sub a_end_handler { return if shift ne "a"; my $self = shift; push @linklist, [ $href, $text ] if defined $text && $text !~ /^\s*$/; $self->handler(end => undef ); $self->handler(text => undef ); } From roam at ringlet.net Thu Apr 15 07:18:09 2004 From: roam at ringlet.net (Peter Pentchev) Date: Thu Aug 5 00:21:47 2004 Subject: Tekst ot links sys HTML::LinkExtor In-Reply-To: <39816.212.104.97.96.1082030821.squirrel@mail.webgroup-bg.com> References: <39816.212.104.97.96.1082030821.squirrel@mail.webgroup-bg.com> Message-ID: <20040415121809.GC966@straylight.m.ringlet.net> On Thu, Apr 15, 2004 at 03:07:01PM +0300, anio@webgroup-bg.com wrote: > sofia-pm-list - An official of Sofia's Perl hackers > anio@webgroup-bg.com > ????? ??????. > ????? ?? ????,?? ????? ?????.??????? ?? ??? HTML::Parser ???? ???? ?? > ????????? ?? Usenet.?? ?? paste-?? ??? ??? ?? ????? ?? ?? ?????? ?? ???? > ????? ???? ???: ??, ? ???? ? ??????? :) ? ????? ???????, ?????? ????????? ????????? ???????? ? ?????? ??????? Windows-1251, ?? ? MIME Content-Type header-? ???? ????????? ? charset iso-8859-1... ???? ?????????? ?? ???? ?? ???, ????? ???????? mutt ?? ??????, ? ????? ?? ?? ??????????? ?????????? ?????????; ???????????, ????? ??-?????? ?????????? ?? ????, ????? ?? ????? :) ????????, ????? -- Peter Pentchev roam@ringlet.net roam@sbnd.net roam@FreeBSD.org PGP key: http://people.FreeBSD.org/~roam/roam.key.asc Key fingerprint FDBA FD79 C26F 3C51 C95E DF9E ED18 B68D 1619 4553 "yields falsehood, when appended to its quotation." yields falsehood, when appended to its quotation. -------------- next part -------------- A non-text attachment was scrubbed... Name: not available Type: application/pgp-signature Size: 187 bytes Desc: not available Url : http://mail.pm.org/archives/sofia-pm/attachments/20040415/988c90b2/attachment.bin From editor at spisanie.com Thu Apr 22 03:57:52 2004 From: editor at spisanie.com (Mr. Bogomil Shopov) Date: Thu Aug 5 00:21:47 2004 Subject: Perl v PHP Message-ID: <40878910.8090101@spisanie.com> Zdrawejte Eto malko interesno info http://www.zend.com/php5/articles/php5-perl.php Bogomil -------------- next part -------------- A non-text attachment was scrubbed... Name: editor.vcf Type: text/x-vcard Size: 275 bytes Desc: not available Url : http://mail.pm.org/archives/sofia-pm/attachments/20040422/57813aaf/editor.vcf