Ogłoszenie z dnia 13-09-1997

Maciej Maciejowski

Re: Poszukiwany specjalista internetowy -



Opis stanowiska:

Osrodek Informacji Tratwa wrote:
> Ośrodek Informacji "Tratwa"

> Poszukujemy specjalisty z bardzo dobrą znajomoscią internetu, komputerow
> klasy PC, języka HTML, appletów JAVA, skryptów CGI-BIN, podstawowa
^^^^^^^^^^^^^^^^
Dawno mnie nie bylo na tej grupie ale widze ze nic sie nie zmienilo :)
Teraz to juz sie pisze skrypty CGI-BIN ?? Ohh.. kurde wypadlem chyba z
obiegu... Ale widac ze potrzebuja kogos kto sie zna na internecie..
Obawiam sie jedynie ze kazdy kto umie przeczytac ta liste znalazl by
zatrudnienie ( wymagana znajomosc kitowania :).. Ehhh co to sie porobilo..

> umiejetność tworzenia grafik.

Czyli tak:
znac sie na komputerach : (servis, instalacja modemow, instalacja sieci
lokalnych, i oprogramowania )
webmastering: ( robienie klientom stron i swojej rodzimej firmie tez )

programista: (pisanie appletow w Javie i cgi a co za tym idzie znajomosc
systemow operacyjnych )
grafik - artysta:(najchetniej Cybernetyczny Geniusz znajacy sie za marketingu
i sposobach graficznej reklamy wplywajacej na podswiadomosc)

czyli razem to musi byc niezle szkolona osoba.

ale polecam uruchomienie tego programiku :)

Start - tu ciac :)

#!/usr/bin/perl

# ustalamy paramerty :)
$sendmail = "/usr/lib/sendmail";
$moja_reka = "4000";

# podaj mi swoje dane :)

print "Imie : "; $imie = ; chomp $imie;
print "Nazwisko: "; $nazw = ; chomp $nazw;
print "E-mail : "; $mail = ; chomp $mail;

# ustalmy kwote

print "Podaj cyferkami ilosc NPL ktore mozesz mi\n";
print "wyplacac na reke co miesiac: "; $wyplata = ; chomp $wyplata;

if($wyplata >= $moja_reka) {
$niezdecydowany = 0;
}
else {
print "Niestety nie odpowiada mi ta kwota chcesz sprobowac ponownie? [t/n]";
$value = ; chomp $value;
}
if($value eq "t" || $value eq "T") {
print "To jaka masz propozycje ?: "; $wyplata = ; chomp $wyplata;
$niezdecydowany = 1;
}

if($niezdecydowany eq '1' && $wyplata >= $moja_reka) {
print "Okey, skontaktuje sie niedlugo\n";
&info;
}
elsif($niezdecydowany eq '0' && $wyplata >= $moja_reka) {
print "No wlasnie o to chodzilo!!\n";
&zgoda;
&list;
}
else {
print "No coz nie kazdego stac na specjaliste...\n";
}

####
sub info {
open(INFO, "|$sendmail -fmoon\@tschad.irc.pl $mail");
print INFO < From: Maciej Maciejowski
Reply-To: moon\@priv.onet.pl

Szanowny(a) Panie(ni) $imie $nazw

Poinformowales(as) mnie, ze jestes w stanie spelnic moja zapotrzebowania
finansowe. Bardzo mi z tego powodu milo ale musze zrezygnowac gdyz nie
jest Pan(i) pewny(a) swojej decyzji. Co widac bylo podczas wpisywania
kwoty ktora miala zaspokoic moje wymagania.


Pozdrawiam
Maciej Maciejowski
EOF
close(INFO);
}

sub zgoda {
open(OK, "|$sendmail -fmoon\@tschad.irc.pl $mail");
print OK < From: Maciej Maciejowski
Reply-To: moon\@priv.onet.pl

Szanowny(a) Panie(ni) $imie $nazw

Poinformowales(as) mnie, ze jestes w stanie spelnic moja zapotrzebowania
finansowe. Czyli umowilismy sie na $wyplata PLN na reke? Ale musze jeszcze
zapytac czy dobrze sie czujesz ? Jezeli tak to przelej 2000 zaliczniki na
moje konto BPH SA V Oddzial Krakow 10601392-3983912-27000-480891


Pozdrawiam
EFO
close(OK);
}

sub list {
open(OKI, "|$sendmail -f$mail moon\@priv.onet.pl");
print OKI < From: $imie $nazw <$mail>
Reply-To: $mail

Mam dla Ciebie prace za $wyplata PLN miesiecznie.

$imie $nazw

FOE
close(OKI);
}

#Koniec :)


jeju nie chce mi sie poprawiac mam nadzieje ze bedzie dzialal :)
A nie zapomnij ustawic sciezki do sendmaila jak go nie masz to
wlasnie masz ale problem :) heiheiheiheiehe


--
m00n