Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use MIME::Entity;

$mail = MIME::Entity->build(
Type      =>  'text/plain;charset=utf-8',
From      =>  'christian.gabriel@shortnote.de',
To        =>  'christian.gabriel@shortnote.de',
Cc        =>  'michael.sprenglewski@intel.com,' .
              'andreasx.hernitschek@intel.com,stephenx.m.riehm@intel.com,' .
              'bernhardx.u.minks@intel.com,andreas.bednarski@intel.com,tech@tool.de',
Subject   =>  'ProgressBar Modul, Dokumentation und Demo',
Data      =>  <<'TEXT_ENDE' );

Hallo,

ich hatte ja versprochen, die ProgressBar-Implementierung noch mit
einer Doku zu versehen. 

Dazu habe ich ein Beispiel-Skript geschrieben, das in 8 Democases
die wesentlichen Funktionalitaeten des  ProgressBar-Moduls
demonstriert.

Einfach die beiden Dateien  ProgressBar.pm  und Demo_ProgressBar.pl
in ein Verzeichnis stellen, dann aufrufen:

perl Demo_ProgressBar.pl  <nr>    (wobei <nr> = 1...8)

Wesentliche Eigenschaften von ProgressBar sind:

-  Ein Bar springt niemals zurueck
-  Verschiedene Levels koennen angezeigt werden
-  Tasks koennen dynamisch zum PLAN hinzugefuegt werden
-  Steps koennen gemacht werden, obwohl keine geplanten Steps mehr da sind


Im Code von ProgressBar habe ich die OptiCM-spezifischen Funktionen
dadurch deaktiviert, dass ich ihnen OPTI... vorangestellt habe
(ich konnte das nicht mehr testen). Der effektive Code von
ProgressBar.pm  besteht daher aus den ersten 291 Zeilen.

Wenns Fragen gibt, koennt Ihr mich genre fragen.


Viele Gruesse

Christian


******************************
Christian Gabriel
Nuernberger Str. 134
90762 Fuerth
0172/4121651
christian.gabriel@shortnote.de
******************************




TEXT_ENDE

      $mail->attach(
          Type      =>  'text/plain',
          Path      =>  "Demo_ProgressBar.pl",
          Encoding  =>  'base64'
      );

      $mail->attach(
          Type      =>  'text/plain',
          Path      =>  "ProgressBar.pm",
          Encoding  =>  'base64'
      );




$mail->send();
#rename($0,"$0.sent");