Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use strict;
use DivBasicF::GoogleCal;

my $lfd_nr = shift;
my @pars   = @ARGV;
my $c = DivBasicF::GoogleCal->new(
          cg       => 'christian.gabriel@shortnote.de',
          jazzchor => 'm37b6pat56ivqp7hoin5pd90mo@group.calendar.google.com'
        );

print $c->auth("christian.gabriel\@shortnote.de","widor123") . "\n";


if ($lfd_nr == 1) {
   print $c->create_entry("jazzchor","ift","Termin ift","Nuernberg",
                       "2008-10-12T09:00:00","2008-10-12T11:00:00",
                       <<'TEXT_ENDE') . "\n";
cirrus@ift-informatik.de
TEXT_ENDE
}


if ($lfd_nr == 3) {
   my $erg = $c->find_entry("jazzchor","2008-10-11T00:00:00",
                                   "2008-11-01T00:00:00");
   if (!@$erg) { print "not exists\n"; exit; }
   $c->change_entry($erg->[0],"T","ift14",
               "ADD","cirrus14\@ift-informatik.de");
   $c->update_entry($erg->[0]) . "\n";
}

if ($lfd_nr == 2) {
   my $erg = $c->find_entry("2008-10-11T00:00:00",
                                   "2008-11-01T00:00:00");
   print $c->delete_entry($erg->[0]) . "\n";
}

if ($lfd_nr == 4) {
   my $erg = $c->find_entry("jazzchor",2,"");
   foreach my $o (@$erg) {
      print $o->{'IDR'} . "\n";
   }
}