Valeu a Pena!
Por Augusto Petta*
Ainda sob impacto da linda homenagem que recebi, preparada pela diretoria do Sindicato dos Professores de Campinas e Região , escrevo este artigo, com o intuito de agradecer a todos e a todas, de que de uma forma ou de outra, contribuíram para que o Dia do Professor deste ano fosse o mais emocionante de minha vida.
Durante as saudações, os vídeos apresentados( um feito pela diretoria do SINPRO sobre a minha história de vida e outro construído pelos meus filhos e que se constitui numa verdadeira declaração de amor) , e a leitura das manifestações por escrito que ainda estou fazendo, um” filme” de toda minha vida é projetado na minha mente e no meu coração. E, evidentemente , a projeção desse “filme”, me conduz à reflexão sobre essa longa trajetória política, que envolve movimento estudantil , movimento sindical e partido político.
Todas essas manifestações têm para mim um significado especial porque, por um lado, elas me proporcionam a certeza de que valeu a pena todos os esforços e energias despendidos e, por outro demonstram que há espaço para o reconhecimento da importância da militância engajada.
Disse, durante a homenagem, que não podemos cruzar os braços enquanto houver uma pessoa passando fome . Os últimos dados, já com a crise do capitalismo em andamento, demonstram que ultrapassa a 1 bilhão, o número de famintos no mundo. Sabemos, que num sistema, como o capitalista, que se baseia na exploração, não há como erradicar totalmente a fome, a miséria e o desemprego. Por isso, precisamos nos preparar, cada vez mais, para uma longa e difícil caminhada até a conquista do socialismo.
E longa caminhada , exige envolvimento da juventude. O socialismo só terá futuro se os jovens de hoje se envolverem na luta pela sua conquista. Nesse sentido, durante a homenagem, o Presidente Nacional do PCdoB, Renato Rabelo, referiu-se à importância de se ter a atenção voltada para a formação política das novas gerações. O Ministro dos Esportes, Orlando Silva Júnior , que também esteve presente na homenagem , sempre muito preocupado com que o PCdoB consiga atingir seus objetivos estratégicos, manifestou a expectativa de que, no futuro, sua filha possa dar continuidade a essa luta.
Foram tantas as presenças marcantes e representativas e as manifestações por escrito que engrandeceram sobretudo a homenagem, que ainda levarei um bom tempo para assimilá-las e adquirir condições para agradecer a cada um dos companheiros e companheiras.
* Augusto César Petta é professor, sociólogo, Coordenador Técnico do Centro de Estudos Sindicais (CES), ex- Presidente do SINPRO-Campinas e região, ex-Presidente da CONTEE.
<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Valeu a Pena!" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art390.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Valeu a Pena!" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Valeu a Pena!" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art390.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. <% End Sub %>