Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Utility/

Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Upload File :
Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/Utility/GUIdb.pm

package Utility::GUIdb;

use strict;
use DivBasicF::COMCGI;
use vars qw(@ISA);
@ISA = qw(DivBasicF::COMCGI);

#**************************************************************

sub choose_main_menu {

   my $self = shift;
   my $mode = shift;
   my $text = shift;

   my $text1 = <<'TEXT_ENDE';
<HTML>
<P>
<A HREF="---URL---?session=---SESSION---&param1=c">Kalender</A>
<P>
<A HREF="---URL---?session=---SESSION---&param1=a">Adressen</A>
<P>
<A HREF="---URL---?session=---SESSION---&param1=m">Mehr</A>
<P>
<A HREF="---URL---?session=---SESSION---&param1=q">Quit</A>
<P>
</HTML>
TEXT_ENDE

   $text1 =~ s/---URL---/$self->{'URL'}/g;

   return($text1);
   
}


#**************************************************************

sub choose_adr_menu {

   my $self  = shift;
   my $mode  = shift;
   my $text  = shift;
   my $datum = shift;
   my $param = shift;
   my $rolle = shift;

   my $text1 = <<'TEXT_ENDE';
<HTML>
<P>
<FORM ACTION="---URL---" METHOD="POST">
   <INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
   <INPUT TYPE="HIDDEN" NAME="param1"  VALUE="d">
   <INPUT TYPE="TEXT" NAME="param2" VALUE="---DATUM---">
   <INPUT TYPE="SUBMIT" VALUE="Datum">
</FORM>
<P>
<FORM ACTION="---URL---" METHOD="POST">
   <INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
   <INPUT TYPE="HIDDEN" NAME="param1"  VALUE="p">
   <INPUT TYPE="TEXT" NAME="param2" VALUE="---PARAMETER---">
   <INPUT TYPE="SUBMIT" VALUE="Parameter">
</FORM>
<P>
<FORM ACTION="---URL---" METHOD="POST">
   <INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
   <INPUT TYPE="HIDDEN" NAME="param1"  VALUE="r">
   <INPUT TYPE="TEXT" NAME="param2" VALUE="---ROLLE---">
   <INPUT TYPE="SUBMIT" VALUE="Rolle">
</FORM>
<P>
<FORM ACTION="---URL---" METHOD="POST">
   <INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
   <INPUT TYPE="HIDDEN" NAME="param1"  VALUE="s">
   Pattern:  <INPUT TYPE="TEXT" NAME="param2" VALUE="">
   Template: <INPUT TYPE="TEXT" NAME="param3" VALUE="">
   Sort:     <INPUT TYPE="TEXT" NAME="param4" VALUE="">
   <INPUT TYPE="SUBMIT" VALUE="Suche">
</FORM>
<P>
<FORM ACTION="---URL---" METHOD="POST">
   <INPUT TYPE="HIDDEN" NAME="session" VALUE="---SESSION---">
   <INPUT TYPE="HIDDEN" NAME="param1"  VALUE="q">
   <INPUT TYPE="SUBMIT" VALUE="Quit">
</FORM>
<HTML>
TEXT_ENDE

   $text1 =~ s/---URL---/$self->{'URL'}/g;
   $text1 =~ s/---DATUM---/$datum/g;
   $text1 =~ s/---PARAMETER---/$param/g;
   $text1 =~ s/---ROLLE---/$rolle/g;

   return($text1);
   
}


#**************************************************************


1;

bypass 1.0, Devloped By El Moujahidin (the source has been moved and devloped)
Email: contact@elmoujehidin.net bypass 1.0, Devloped By El Moujahidin (the source has been moved and devloped) Email: contact@elmoujehidin.net