#!/usr/bin/perl $| = 1; use lib '/usr/local/lib/perl5/lib/perl5'; use CGI qw(:all); $q = new CGI (); print $q->header("text/html;charset=UTF-8"); print $q->start_html(-title=>'AD4Net',style=>{-src=>'https://is.ad4net.cz/style.css'},-code=>"div {text-align: left; color: red;}"); my $par = $q->param("guller"); if ( $par eq "clear" ) { `rm /home/guller/running`; } print ""; print ''; print '
'; print '
'; open (INF, "; print $radka; } close (INF); print '
'; print '
'; print '
'; print ''; print ''; print ''; print ''; print ''; print ''; print '
GULLER TARGETTING GULLER GULLER PAPER GULLER MAIL
'; print '

'; print '
'; print '
'; print 'Spouštění
'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
T-O LJS_AZV LJS_DAH LJS_DGB LJS_HHA LJS_KBV LJS_KUR LJS_LJ LJS_MRS OVB
BVZ MGO NBM OVZ HAR N24 RMM NOZ BING BOLL AZU
'; print '

'; print '
Logy
'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
T-O LOG LJS_AZV LOG LJS_DAH LOG LJS_DGB LOG LJS_HHA LOG LJS_KBV LOG LJS_KUR LOG LJS_LJ LOG LJS_MRS LOG OVB LOG
BVZ LOG MGO LOG NBM LOG OVZ LOG HAR LOG N24 LOG RMM LOG NOZ LOG BING LOG BOLL LOG AZU LOG


GULLER LOG GULLER PAPER LOG
'; print '

'; print '
Pomucky
'; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print '
Watch LOG OffersList G_clear GULLER MAIL LOG
'; print '
'; print '
'; print '
'; #print '
'; #print '
'; # print ''; print $q->end_html;