[bean]

Ez a pici script minden ADSL-esnek jól jöhet -- akkor írtam, amikor egy ADSL végén csücsölõ szerver úgy kapcsolódott vissza a 'Netre hogy PPPoE kapcsolat volt, tehát a pppd nem kapcsolódott újra, de IP címet már nem kapott:

#!/bin/sh
comm=exec ping -c 4 `ip addr show|grep inet|grep ppp0|cut -d" " -f8|cut -d"/" -f1`|grep " 0%">/tmp/log
if [ -s /tmp/log ]
then
echo minden ok
else
adsl-stop
killall -9 pppd
adsl-start
fi

ötpercenként fut cronból: /usr/local/bin/ppp-check >/dev/null 2>&1

Szerkesztette: bean 2004. 05. 03. 14:56 -kor

[NAron]

import pygame, pygame.transform
from Numeric import *

def felparabola(kepernyo, hova):
    seged = 0
    x = 0.0
    while (seged < 200) :
  x = x + 0.1
  y = x*x
  seged = seged + 1
  kepernyo.fill((255-seged,255-seged,255-seged), (y, 300+(x*10*hova),5,5))

pygame.init()
kepernyo = pygame.display.set_mode((800,600), 0, 24)
kepernyo.fill((0,70,180))
felparabola(kepernyo, 1)
felparabola(kepernyo, -1)
pygame.display.update()
pygame.time.delay(3000)

Ez egy python nyelven írt próbálkozás a pygame modul használatára. Negyed órája raktam fel a pygamet, így még csak most ismerkedek vele. Azért fogom majd bonyolultabb dolgokra is használni. A pygame egyébként egy SDL felület pythonhoz.
A programhoz leírás csak annyi, hogy a képernyõre egy parabolát rajzol ki.

Szerkesztette: NAron 2004. 05. 03. 17:31 -kor

[Delawer]

Ismét egy régi kis program.
A cél az volt, hogy adott könyvtárban az azonos kiterjesztésû fájlokat szépen átnevezze.
Kezdetleges, menüvezérelt és amikor találtam ennél jóval profibb programokat, akkor nem is foglalkoztam vele
re-name (DOS-os átnevezõ programocska)

[gma]

Hi,
régebben volt egy jó kis gyümölcspóker-automata programom, ami egy valós gépet szimulált. Megpróbálom elõkeresni, hátha valami õs-cdmen rajta van.
Naon jó volt  
Csalt mint az eredeti 

Szerkesztette: gma 2004. 05. 04. 11:47 -kor

[OctaLAN]

Hát fejlesztéseim nem mind publikusak, de akad az is.
Egy részben általam készített oldal (3-an dolgoztunk rajta):
Vászoly település honlapja

[KovacsUr]

Csináltam Total Commander plug-int WebShotshoz. WBC, WBZ, WB1, WBD, SPV kiterjesztésekhez érdemes hozzárendelni.

A WBZ fájlok szerkezetét még nem sikerült teljesen kihámozni, mert csak egy fájlt tartalmazó WBZ-ket láttam. Ha valakinek van több fájlos WBZ-je, sikoltozzon privátban.

Két megjegyzés:
- A szoftver egyelõre tesztelés alatt áll, mindenki saját felelõsségére használja.
- A Webshots galéria legtöbb képe szerzõi jogvédelem alatt áll, a Webshots szoftveren kívüli használatuk nem megengedett.

[?uestLove]

hm... webshots..?
lecsekkolom azt a plugint! 
de... lehet, hogy hülyeséget kérdezek, viszont ha jól emlékszem a wbz-k egyetlen képet tartalmazó file-ok, nem?

[?uestLove]

ja... és ha már itt vagyok, én is linkelek ide két általam készített apróságot... 

az elsõ egy elte-eaf4 beadandó volt, és adatbáziskezelésrõl szól, VC++6-ban íródott.
A forrás és a hozzá tartozó adatbázis. /remélem, jó linkeket adtam meg...  :confused:  /
ugyanennek a kvázi linuxos változata, ami KDeveleop2.1 alatt készült, ITT található. ez 3.5 mega körül van, de benne van minden, a futtatható állomány is. adatbázist nem tudok adni... 

a második hobbiból készített progi, egy sima egyszerû bmp-t beolvas, és megcsinálja rá az emboss filtert. /gy.k.: plasztikus hatású dombor-szerû képet készít, remélem, így érthetõ voltam /
szal ITT a forrás, az exe és egy bmp egy zip-ben.

remélem, kellõképpen nagyképûnek sikerült feltüntetnem magam...  

ha találok még valami okosat, felteszem 

[KovacsUr]

Idézet: ?uestLove - Dátum: 2004. máj. 8, szombat - 0:49

hm... webshots..?
lecsekkolom azt a plugint! 
de... lehet, hogy hülyeséget kérdezek, viszont ha jól emlékszem a wbz-k egyetlen képet tartalmazó file-ok, nem?

Hát ez az... Nem tudom, én is még csak olyat láttam, amiben egy kép volt, de a fáljformátumból úgy látszik, lehetne benne több is. Közben lett új változat: Webshots.wcx 0.98, ezzel már lehet létrehozni is fájlokat (azaz visszafele is mûködik).

Szerkesztette: KovacsUr 2004. 05. 08. 16:54 -kor

[KovacsUr]

Bocs, megint én Csináltam ennek a Webshots Plug-innek egy SourceForge projectet, ezentúl itt lesz frissítés (ha lesz ). Forrás ugyanitt.

[Nevergone]

Közben jelzem, hogy a téma kiemelt lett, így nem vész a múlt homályába, ha esetleg ritkábban irogatunk ide...

[Delawer]

Idézet: KovacsUr - Dátum: 2004. máj. 15, szombat - 15:22

Bocs, megint én Csináltam ennek a Webshots Plug-innek egy SourceForge projectet, ezentúl itt lesz frissítés (ha lesz ). Forrás ugyanitt.

Ejha!  

[Delawer]

Idézet: Nevergone - Dátum: 2004. máj. 15, szombat - 16:52

Közben jelzem, hogy a téma kiemelt lett, így nem vész a múlt homályába, ha esetleg ritkábban irogatunk ide...

Ma csak ilyet csinálok: 

[Tommaso]

Hadd járuljak hozzá ehhez a remek topichoz én is az elsõéves házimmal


Liftszim

Fut Win2k-n, de kell hozzá valami CPU lassító progi, pl. cpulower

Megleltem a hozzá írt felhasználói doksit is, lehet mulatni pl ezen:

3. HARDVER IGÉNY

   - Nem árt hozzá egy jobb gép (mondjuk 486DX2-66)
   - 64 Kb szabad hagyományos memória
   - VGA monitorkártya (640x480 felbontás 16 színnel)
   - legalább MSDOS 5.0, vagy WIN'95 (nem ajánlott)

[giotto]

ez a script egyszeruen lefutattja a $netstat -ep parancsot es annak a kimenetet rendezi szepen felhasznaloi sorrendbe

 #!/usr/bin/perl
 ##########################################################
 #
 #  kosztie-nak $netstat -ep kimenetenetek ujraepitese
 #
 ##########################################################
 
 system("netstat -ep >/tmp/netstat");
 open(FILENEV,"netstat") || die "nem sikerult megnyitni";
 print "\n";
 while(<FILENEV>) {
   ++$i;
   last if ($_ =~ /^Active UNIX/); # itt inkabb ugorjunk ki az agbol...
   if($i>2){
     @kifele=split(/ *\s/,$_);
     push(@lista,@kifele);
    }
 }
 for($j=6;$j<$#lista;$j+=9) { # megnezzuk az osszes usert...
   $user=$lista[$j] if $user ne $lista[$j];
   $talalat=0;
   $szamlalo=0;
   for($l=0;$l<$#olduser;$l++) { # vegigporgetjuk a mar talalt userekek kozott...
     $talalat++ if $olduser[$l] eq $user;
   }
   if($talalat == 0) { # nem taltuk meg az eddigi userek kozott...
     for($m=6;$m<=$#lista;$m+=9) { # vegigporgetjuk a bemeneten...
       if($lista[$m] eq $user) {
       print "$lista[$m]:\n" if $szamlalo != 1;
       $szamlalo=1;
       write();
       }
     }
   }
   push(@olduser,$user);
 }
 unlink("/tmp/netstat");
 print "\n";
 
 format STDOUT =
 @<< @# @# @<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<< @<<<<<<<<< @<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<
 $lista[$m-6] $lista[$m-5] $lista[$m-4] $lista[$m-3] $lista[$m-2] $lista[$m-1] $lista[$m]  $lista[$m+1] $lista[$m+2]

[giotto]

egy unalmas napon elkezdtem egy cdkatalogizalot fejleszteni, majd felbehagytam. ez lett belole
termeszetesen ha lesz vegleges verzio akkor azt is kiteszem. Persze ez is teljesen mukodo verzio, csak par dolog hianyzik belole amit en meg beletennek

 #!/usr/bin/perl
 ############################################
 # 
 #  2 do: rekurziv kerese is kene de NAGYON!!! -> kesz    
 # ^^^^^^^^ 
 # filelist() minimalizalas... 
 # rekurziv csak az adott catalogban mukodik... 
 # ujrastrukturalsa a file megoldasnak??? 
 # Atvinni az egeszet a grafikus feluletre... 
 #        ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨      
 #        catalog es disk atnevezesenek lehetosege!!! 
 # helpscreen() ujrakonfigolasa...  
 # 
 #  ráér: hibakezeles pl: --min = /[a-z]/i => kilep   
 #        kulon dir-ben valo kereses kell-e. mivan???    
 #        mount point leszedese.... 
 # 
 ############################################
 use Getopt::Long;
 use File::Find;
 use HTTP::Date;
 use Term::ANSIColor;
 #use warnings; # minek is???
 #use Config;   # a mountolashoz.....
 #use Pod::Usage; # a helpscreenhez kell, jo ez nekem???
 GetOptions(
    'version'=>\$opt_v,   # verzioszam...
   'help'=>\$opt_h,      # helpscreen => ezen meg dolgozni kell...
   'catalog=s'=>\$opt_c, # catalog [ez a dir] => modositas a rekurziv kereseben...
   'disk=s'=>\$opt_D,    # ez pedig a filok a dirben...
   'dir=s'=>\$opt_d,     # az eleresi ut
   'rename=s'=>\$opt_r,  # => atnevezes, mind a dirt mind a fileokat...
   'min=f'=>\$opt_m,     # min file meret...
   'max=f'=>\$opt_M,     # max file meret...
   'ext=s'=>\$opt_e,     # kiterjeszes...
   'name=s'=>\$opt_n,    # ezt tartalmazza => meg kene csinalni...
   'search'=>\$opt_s,  # rekurziv kereses...
      'list'=>\$opt_l       # disk lista => modositani kell => datum kiiratasa kell-e???
  );
 if($opt_v) {
    version();
   }
  elsif($opt_l) {
    $bbdir="$ENV{HOME}/.bluebox";
    filelist();
    }
  elsif($opt_h) {
     helpscreen();
    }
  elsif($opt_D || $opt_s) {
    $bbdir="$ENV{HOME}/.bluebox";
 #   if($opt_r) {
 #     rename("$bbdir/$opt_c/$opt_d","$bbdir/$opt_c/$opt_r");
 #     die "$!";
 #   }
    if(!$opt_m && !$opt_M) {
       $opt_m=0;
      }
     else {
 #    elsif($opt_m =~ /[0-9]/ || $opt_M =~ /[0-9]/){
      $opt_m=($opt_m*1024)*1024 if $opt_m;
      $opt_M=($opt_M*1024)*1024 if $opt_M;
     }
 #    else {
 #      die "asdf";
 #    }
    if($opt_d) {
        $mappa="";
        unless(-d $bbdir) {
        mkdir("$bbdir",0777) || die "nem hozhato letre: $!";}
        unless(-d "$bbdir/$opt_c") {
        mkdir("$bbdir/$opt_c",0777) || die "nem hozhato letre: $!";}
        open(LISTA,">$bbdir/$opt_c/$opt_D.bbx");
        find(\&wanted,$opt_d);
       }
     else{
        kifele();
        print "\n";
       }
   }
 sub wanted {
 #keresés...
 $files[0]=-s if -f;
 $files[0]= 0 if -d;
 if(-f && $files[0] > $opt_m && !$opt_M) {
    motor();#a legkisebb file...
   }
  elsif(-f && $files[0] < $opt_M && !$opt_m) {
    motor();#a legnagyobb file...
    }
  elsif(-f && $files[0] < $opt_M && $files[0] > $opt_m) {
    motor();#ket ertek kozott..
    }
 } 
 sub motor {
 #a kereso motor...
 @mtime=stat($_);
 #@name=split(/$opt_d/,$File::Find::name);#.-nal nem megy.. illetve /dir/mappa/ -nal sem...
 print LISTA "$File::Find::name\\##\\$mtime[7]\\##\\$mtime[9]\\##\\";
 }
 sub kifele {
 #a kikereso motor, rekurzív...
   if($opt_s){
     opendir(DIR,"$bbdir/$opt_c") || die($!);
     foreach $_ (sort readdir(DIR)){
       if($_ =~ /bbx/){
         $mappa="";
         @bbx=split(/\./,$_);
         $tiszta=""; # a kiterjesztes leszedese
         for($i=0;$i<$#bbx;$i++) {
           $tiszta=join("",$tiszta,"$bbx[$i]");
         }
         open(LISTA,"$bbdir/$opt_c/$_") || die "nem sikerult megnyitni: $!\n";
         kikeres(); 
       }
     }
     closedir(DIR);
   }
    else {
      open(LISTA,"$bbdir/$opt_c/$opt_D.bbx") || die "nem sikerult megnyitni: $!\n";
      kikeres(); 
    }
 }
 sub kikeres{
 #a megfelelo file kivalasztasa.....
   while(<LISTA>) {
      @eredmeny=split(/\\##\\/,$_);
       for($i=0;$i<$#eredmeny;$i+=3) {
         $mtime=time2str($eredmeny[$i+2]);
         @time=split(/ /,$mtime);
  $time[2]="01" if $time[2] eq "Jan";
 $time[2]="02" if $time[2] eq "Feb";
 $time[2]="03" if $time[2] eq "Mar";
 $time[2]="04" if $time[2] eq "Apr";
 $time[2]="05" if $time[2] eq "May";
 $time[2]="06" if $time[2] eq "Jun";
 $time[2]="07" if $time[2] eq "Jul";
 $time[2]="08" if $time[2] eq "Aug";
 $time[2]="09" if $time[2] eq "Sep";
 $time[2]="10" if $time[2] eq "Oct";
 $time[2]="11" if $time[2] eq "Nov";
 $time[2]="12" if $time[2] eq "Dec";
 if($eredmeny[$i+1] > $opt_m && !$opt_M) {
           file();#a legkisebb file...
         }
  elsif($eredmeny[$i+1] < $opt_M && !$opt_m) {
    file();#a legnagyobb file...
          }
  elsif($eredmeny[$i+1] < $opt_M && $eredmeny[$i+1] > $opt_m) {
       file();#ket ertek kozott..
  }
        }
     }
 }
 sub file {
 #o"felsege a filenev...
   $size="byte"; #ha szurnenk a meretet felvetelkor...
   if($eredmeny[$i+1] > 1024) {
     $eredmeny[$i+1]/=1024;
     $size="kilo";
   }
   if($eredmeny[$i+1] > 1024) {
     $eredmeny[$i+1]/=1024;
     $size="mega";
   }
   @file=split(/\//,$eredmeny[$i]);
   $teljes=""; # a dir leszedese
   for($j=0;$j<$#file;$j++) {
     $teljes=join("",$teljes,"$file[$j]\/");
   }
   if(!$opt_e) {
     fileprint();  
 #   write(); ez csak a kepernyonel kell...
   }
    elsif($file[-1] =~ /$opt_e$/ ) {
      fileprint();
 #    write(); ez csak a kepernyonel kell...
    }
 }
 sub fileprint {
 #a kiiratas....
 #  print color 'BOLD';
   if($opt_s && ($tiszta ne $ellenor)){
 #    print color 'BOLD';
     print "\n================================================================================\n";
     print " $tiszta\n";
     print "================================================================================\n";
     $tiszta=$ellenor;
 #    print color 'reset';
   }
   if($mappa ne $teljes) {
     $mappa=$teljes;
     print "\n$mappa\n\n";
   }
   print "  $file[-1]";
   print color 'red';
   print " => ";
   print color 'reset';
   print color 'BOLD'; # azelott itt feher volt....
   printf "%5.2f", $eredmeny[$i+1];
   print " $size";
   print color 'reset';
   print color 'red';
   print " => ";
 #  print color 'reset';
   print color 'yellow';
   print "$time[3]-$time[2]-$time[1] ";
   print color 'reset';
   print "$time[4]\n";
 }
 sub filelist {
 #a projectlista
 #ezt meg kikell pofozni....
   $osszes=0;
   print "\n";
   opendir(DIR,"$bbdir/$opt_c") || die($!);
   foreach $_ (sort readdir(DIR)){
     if($_ =~ /bbx$/){
       $mappa="";
       @bbx=split(/\./,$_);
       $tiszta=""; # a kiterjesztes leszedese
       for($i=0;$i<$#bbx;$i++) {
         $tiszta=join("",$tiszta,"$bbx[$i]");
       }
     #kifele();
     print "$tiszta\n";
     ++$osszes;
     }
   }
   closedir(DIR);
   print "\n";
   print "file-ok szama: $osszes";
   print "\n";
 } 
 sub helpscreen {
 #helpscreen...
 my $screen = <<"HELP"; 
 
  hasznalat: pl.: -dir /mnt/vidor -catalog particiok -disk vidor
                  -catalog particiok -disk vidor --min 5 -e jpg  
       -v   --version # verzioszam...
       -h   --help     # helpscreen => ezen meg dolgozni kell..
       -c   --catalog # catalog [ez a dir] => modositas a rekurziv kereseben..
            --disk      # ez pedig a filok a dirben...
            --dir       # az eleresi ut
            --rename   # => atnevezes, mind a dirt mind a fileokat...
            --min       # min file meret...
            --max       # max file meret...
       -e   --ext       # kiterjeszes...
            --name      # ezt tartalmazza => meg kene csinalni...
            --search  # rekurziv kereses...
       -l   --list     # disk lista => modositani kell, datum kiirasa kell-e? 
 HELP
 print $screen;
 }
 sub version {
 #verziószám...
 my $ver = <<"VERZIO"; 
  0.07.3
 VERZIO
 print $ver;
 }
 #------------------------------------------------------------------------------
 #out of order...
 format STDOUT =
   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @####.## 
 @>>>>
 $file[-1],$eredmeny[$i+1],$size,$time[3],-$time[2],-$time[1], $time[4]
 .

Szerkesztette: giotto 2004. 05. 18. 15:02 -kor

[giotto]

az adott mappaban rekurzivan kisbetusiti a filokat, ebbol a 'tr A-z a-z' modositasaval villamgyorsan lehet ekezetmentesitot csinalni

#!/bin/bash
 find $1 -depth |
 while read name
 do
     name=${name%/}
     dir=${name%/*}
     if [ "$dir" = "$name" ]
     then
         dir=.
     fi
     file=${name##*/}
     newfile=`echo "$file" | tr A-Z a-z` # igeny szerint
     newname="$dir/$newfile"
     if [ "$newname" != "$name" ]
     then
         if [ ! -e "$newname" ]
         then
             echo "Moving \`$name' to \`$newname'"
             mv "$name" "$newname"
         else
             echo "Name collision: \`$name' to \`$newname'"
         fi
     fi
 done

[kroozo]

egyet én is beírok.
most csaptam össze nemrég egy kicsi consoleos emailküldõ progit beadandónak. mondjuk nem nagy kaland

Csatolt fájl:

•  lamail.tar.gz (0byte)
  Letöltések:: 49

[jimmi]

Hali!

Ezt az amõba játékot még régebben írtam. A gép nem túl erõs, de azért egy gyengébb játékost meg tud verni. Az [1] és [2] gombokkal lehet váltani, hogy melyik játékost ki vezérelje (ember vagy gép).

jimmi

[Delawer]

Idézet: jimmi - Dátum: 2004. máj. 22, szombat - 4:04

Hali!

Ezt az amõba játékot még régebben írtam. A gép nem túl erõs, de azért egy gyengébb játékost meg tud verni. Az [1] és [2] gombokkal lehet váltani, hogy melyik játékost ki vezérelje (ember vagy gép).

jimmi

Én letöltöttem és tetszett! Gratula! 

ui.: Forrást +lehet ismerni?

Szerkesztette: Delawer 2004. 05. 25. 19:46 -kor