% -*- mode: slang; mode: fold; -*-----------------------------------------
% orig autor: Slawek Szczyrba
% zmiany (Hamster): tsca
% wiecej @ http://www.geocities.com/tsca.geo/slang.html
% v0.1-h Tue Mar 20 23:19:01 2001
%
% UWAGA:
% To makro wymaga Hamstera i slrn-a w wersji co najmniej 0.9.6.4pl4

 define forward_prhn ()
{ variable
    News_Out = "c:\\tsca\\hamster\\groups\\news.out\\",
    editor   = "edit",
    % editor = "c:\\tsca\\jed-win\\jed.exe",

% ------------------- nie musisz zmieniac niczego ponizej ------     %{{{

 mnie      = get_variable_value("realname"),
 juzer     = get_variable_value("username"),
 dzie      = get_variable_value("hostname"),
 artykul   = article_as_string(),
 newsgroup = current_newsgroup(),
 autor     = extract_displayed_article_header("From"),
 subject   = extract_displayed_article_header("Subject"),
 msgid     = extract_displayed_article_header("Message-ID"),
 spacje    = "                                                                                ",

   % nazwa/numerek pliku w hamster\News.Out
   pozycja = 0, nazwaplik, plik, nr=1;
   while (stat_file(News_Out+string(nr)+".msg") != NULL ) nr++;
   nazwaplik = News_Out+string(nr)+".msg"; plik = fopen(nazwaplik,"w");

 fputs(sprintf("From: %s <%s@%s>\n",mnie,juzer,dzie,3),plik);
 fputs(sprintf("Subject: [%s] %s\n",newsgroup,subject,2),plik);

   % pliterkowe naglowki and stuff
   fputs("Newsgroups: pl.rec.humor.najlepsze\n"+
         "Content-Transfer-Encoding: 8bit\n"+
         "Content-Type: text/plain; charset=iso-8859-2\n"+
         "Mime-Version: 1.0\n"+
         "User-Agent: slrn > frwd.sl > Hamster (MS Windows)\n\n",plik);

 fputs(sprintf("[ From     : %s ]\n",substr(autor     + spacje,1,62)),plik);
 fputs(sprintf("[ Subject  : %s ]\n",substr(subject   + spacje,1,62)),plik);
 fputs(sprintf("[ Newsgroup: %s ]\n",substr(newsgroup + spacje,1,62)),plik);
 fputs(sprintf("[ Msg-ID   : %s ]\n",substr(msgid     + spacje,1,62)),plik);
 fputs("\n  ------- Poczatek cytowanego artykulu -------",plik);
 pozycja = string_match(artykul,"\n\n",1);
 fputs(substr(artykul,pozycja,strlen(artykul)-pozycja),plik);
 fputs("\n  -------- Koniec cytowanego artykulu --------\n\n",plik);
 () = fflush(plik);
 () = fclose(plik);
 () = system (sprintf("%s %s",editor,nazwaplik));

 if (1 == get_yes_no_cancel("Wyslac artykul na p.r.h.n? "))
    { message ("Artykul wyslany."); break; }
 else () = system (sprintf("del %s",nazwaplik));
      message ("Anulowano.");
}
%                                                                    %}}}

definekey ("forward_prhn", "%", "article");

% -- koniec tekstu

    Source: geocities.com/tsca.geo/slang

               ( geocities.com/tsca.geo)