"Fossies" - the Fresh Open Source Software Archive

Member "absence-v2.1/cgi-bin/delres" (10 Jul 2008, 314 Bytes) of package /linux/www/web-absence-2.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    1 #!/usr/local/bin/perl
    2 
    3 use AbsenceDB;
    4 
    5 if (!@ARGV) {
    6     print "usage: $0 <res-id>\n";
    7     exit;
    8 }
    9 
   10 #($person_id, $start, $end, $type, $desc) = @ARGV;
   11 
   12 $ret = AbsenceDB::deleteReservation($ARGV[0]);
   13 
   14 print "ret = [$ret]\n";
   15 
   16 #if (!$ret) {
   17 #   print "add failed. conflict?\n";
   18 #} else {
   19 #   print "successfully added.\n";
   20 #}